/[MITgcm]/MITgcm/model/src/dynamics.F
ViewVC logotype

Diff of /MITgcm/model/src/dynamics.F

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

revision 1.144 by jmc, Sat Jan 16 22:55:53 2010 UTC revision 1.146 by jmc, Fri May 14 23:21:02 2010 UTC
# Line 146  C     myThid :: Thread number for this i Line 146  C     myThid :: Thread number for this i
146        INTEGER myIter        INTEGER myIter
147        INTEGER myThid        INTEGER myThid
148    
149    C     !FUNCTIONS:
150    #ifdef ALLOW_DIAGNOSTICS
151          LOGICAL  DIAGNOSTICS_IS_ON
152          EXTERNAL DIAGNOSTICS_IS_ON
153    #endif
154    
155  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
156  C     == Local variables  C     == Local variables
157  C     fVer[UV]               o fVer: Vertical flux term - note fVer  C     fVer[UV]               o fVer: Vertical flux term - note fVer
# Line 190  C                      index into fVerTe Line 196  C                      index into fVerTe
196        INTEGER k, km1, kp1, kup, kDown        INTEGER k, km1, kp1, kup, kDown
197    
198  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
199          LOGICAL dPhiHydDiagIsOn
200        _RL tmpFac        _RL tmpFac
201  #endif /* ALLOW_DIAGNOSTICS */  #endif /* ALLOW_DIAGNOSTICS */
202    
# Line 244  CEOP Line 251  CEOP
251       &   CALL DEBUG_ENTER( 'DYNAMICS', myThid )       &   CALL DEBUG_ENTER( 'DYNAMICS', myThid )
252  #endif  #endif
253    
254    #ifdef ALLOW_DIAGNOSTICS
255          dPhiHydDiagIsOn = .FALSE.
256          IF ( useDiagnostics )
257         &  dPhiHydDiagIsOn = DIAGNOSTICS_IS_ON( 'Um_dPHdx', myThid )
258         &               .OR. DIAGNOSTICS_IS_ON( 'Vm_dPHdy', myThid )
259    #endif
260    
261  C-- Call to routine for calculation of  C-- Call to routine for calculation of
262  C   Eliassen-Palm-flux-forced U-tendency,  C   Eliassen-Palm-flux-forced U-tendency,
263  C   if desired:  C   if desired:
# Line 310  cph) Line 324  cph)
324            fVerV  (i,j,2) = 0. _d 0            fVerV  (i,j,2) = 0. _d 0
325            phiHydF (i,j)  = 0. _d 0            phiHydF (i,j)  = 0. _d 0
326            phiHydC (i,j)  = 0. _d 0            phiHydC (i,j)  = 0. _d 0
327    #ifndef INCLUDE_PHIHYD_CALCULATION_CODE
328            dPhiHydX(i,j)  = 0. _d 0            dPhiHydX(i,j)  = 0. _d 0
329            dPhiHydY(i,j)  = 0. _d 0            dPhiHydY(i,j)  = 0. _d 0
330    #endif
331            phiSurfX(i,j)  = 0. _d 0            phiSurfX(i,j)  = 0. _d 0
332            phiSurfY(i,j)  = 0. _d 0            phiSurfY(i,j)  = 0. _d 0
333            guDissip(i,j)  = 0. _d 0            guDissip(i,j)  = 0. _d 0
# Line 468  C        phiHyd(z=0)=0 Line 484  C        phiHyd(z=0)=0
484       O        phiHydC, dPhiHydX, dPhiHydY,       O        phiHydC, dPhiHydX, dPhiHydY,
485       I        myTime, myIter, myThid )       I        myTime, myIter, myThid )
486           ENDIF           ENDIF
487    #ifdef ALLOW_DIAGNOSTICS
488             IF ( dPhiHydDiagIsOn ) THEN
489               tmpFac = -1. _d 0
490               CALL DIAGNOSTICS_SCALE_FILL( dPhiHydX, tmpFac, 1,
491         &                           'Um_dPHdx', k, 1, 2, bi, bj, myThid )
492               CALL DIAGNOSTICS_SCALE_FILL( dPhiHydY, tmpFac, 1,
493         &                           'Vm_dPHdy', k, 1, 2, bi, bj, myThid )
494             ENDIF
495    #endif /* ALLOW_DIAGNOSTICS */
496    
497  C--      Calculate accelerations in the momentum equations (gU, gV, ...)  C--      Calculate accelerations in the momentum equations (gU, gV, ...)
498  C        and step forward storing the result in gU, gV, etc...  C        and step forward storing the result in gU, gV, etc...
Legend:
Removed from v.1.144  
changed lines
  Added in v.1.146
  ViewVC Help
Powered by ViewVC 1.1.22