/[MITgcm]/MITgcm/verification/tidal_basin_2d/code/external_forcing.F
ViewVC logotype

Diff of /MITgcm/verification/tidal_basin_2d/code/external_forcing.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by adcroft, Tue Mar 25 15:24:25 2003 UTC revision 1.3 by adcroft, Thu May 15 15:19:02 2003 UTC
# Line 92  C Make the tide relatively strong (about Line 92  C Make the tide relatively strong (about
92       &     -SIN( tidal_freq*myCurrentTime + 2.*longitud1 )       &     -SIN( tidal_freq*myCurrentTime + 2.*longitud1 )
93       &    )*recip_DXC(i,j,bi,bj)       &    )*recip_DXC(i,j,bi,bj)
94       &   *_maskW(i,j,kLev,bi,bj)       &   *_maskW(i,j,kLev,bi,bj)
95       &   *min( myCurrentTime/86400. , 1.)  c    &   *min( myCurrentTime/86400. , 1.)
96         ENDDO         ENDDO
97        ENDDO        ENDDO
98    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22