/[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.145 by jmc, Wed Jan 20 03:50:56 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 468  C        phiHyd(z=0)=0 Line 482  C        phiHyd(z=0)=0
482       O        phiHydC, dPhiHydX, dPhiHydY,       O        phiHydC, dPhiHydX, dPhiHydY,
483       I        myTime, myIter, myThid )       I        myTime, myIter, myThid )
484           ENDIF           ENDIF
485    #ifdef ALLOW_DIAGNOSTICS
486             IF ( dPhiHydDiagIsOn ) THEN
487               tmpFac = -1. _d 0
488               CALL DIAGNOSTICS_SCALE_FILL( dPhiHydX, tmpFac, 1,
489         &                           'Um_dPHdx', k, 1, 2, bi, bj, myThid )
490               CALL DIAGNOSTICS_SCALE_FILL( dPhiHydY, tmpFac, 1,
491         &                           'Vm_dPHdy', k, 1, 2, bi, bj, myThid )
492             ENDIF
493    #endif /* ALLOW_DIAGNOSTICS */
494    
495  C--      Calculate accelerations in the momentum equations (gU, gV, ...)  C--      Calculate accelerations in the momentum equations (gU, gV, ...)
496  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.145
  ViewVC Help
Powered by ViewVC 1.1.22