/[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.6 by jmc, Thu May 3 21:42:15 2007 UTC revision 1.7 by jmc, Tue May 6 15:52:51 2014 UTC
# Line 86  C-jmc: Without CD-scheme, this is OK ; b Line 86  C-jmc: Without CD-scheme, this is OK ; b
86         ENDDO         ENDDO
87        ENDIF        ENDIF
88    
   
89  C--   Tidal body force: written as gradient of geopotential  C--   Tidal body force: written as gradient of geopotential
90  C True M2 frequency is  C True M2 frequency is
91  c     tidal_freq=2.*pi/(43200.+25.*60.)  c     tidal_freq=2.*pi/(43200.+25.*60.)
# Line 275  C     i,j       :: Loop counters Line 274  C     i,j       :: Loop counters
274  C     kSurface  :: index of surface layer  C     kSurface  :: index of surface layer
275        INTEGER i, j        INTEGER i, j
276        INTEGER kSurface        INTEGER kSurface
277          _RL recip_Cp
278  CEOP  CEOP
279  #ifdef SHORTWAVE_HEATING  #ifdef SHORTWAVE_HEATING
280        integer two        integer two
# Line 291  CEOP Line 291  CEOP
291        ELSE        ELSE
292         kSurface = 1         kSurface = 1
293        ENDIF        ENDIF
294          recip_Cp = 1. _d 0 / HeatCapacity_Cp
295    
296  C--   Forcing term  C--   Forcing term
297  #ifdef ALLOW_AIM  #ifdef ALLOW_AIM
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22