fork download
copy 
  1. ! Program to calculate wave types
  2. !
  3. program waves
  4.  
  5.     real :: waveHt, wavePer, beachS, inshoreB
  6.     ! Define gravitational acceleration cm sec^(-2)
  7.     real, parameter :: gC = 981.0 
  8.  
  9.     write (*,*) 'Enter wave data: '
  10.     write (*,*) '    breaker wave height (cm): '
  11.     read (*,*) waveHt 
  12.     write (*,*) '    wave period (sec):  '
  13.     read (*,*) wavePer
  14.     write (*,*) '    beach slope:  '
  15.     read(*,*) beachS 
  16.  
  17. ! Perform calculations
  18.  
  19.     inshoreB = waveHt / (gC * beachS * (wavePer**2));
  20.  
  21.     if (inshoreB < 0.003) then
  22.         write (*,*) 'Breaking waves are surging'
  23.     else if (inshoreB > 0.068) then
  24.         write (*,*) 'Breaking waves are spilling'
  25.     else
  26.         write (*,*) 'Breaking waves are plunging'
  27.     end if 
  28.  
  29. end program waves
  30.  
Runtime error #stdin #stdout 0.01s 2620KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
 Enter wave data: 
     breaker wave height (cm):
https://ideone.com/3Gx1G
language:
Fortran (gfortran 8.3)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!