/[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.152 by jmc, Wed Nov 17 06:05:29 2010 UTC revision 1.153 by jmc, Thu Nov 18 00:57:24 2010 UTC
# Line 247  C--- Line 247  C---
247  CEOP  CEOP
248    
249  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
250        IF ( debugLevel .GE. debLevB )        IF (debugMode) CALL DEBUG_ENTER( 'DYNAMICS', myThid )
      &   CALL DEBUG_ENTER( 'DYNAMICS', myThid )  
251  #endif  #endif
252    
253  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
# Line 640  C---+----1----+----2----+----3----+----4 Line 639  C---+----1----+----2----+----3----+----4
639  C--   Step forward W field in N-H algorithm  C--   Step forward W field in N-H algorithm
640          IF ( nonHydrostatic ) THEN          IF ( nonHydrostatic ) THEN
641  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
642           IF ( debugLevel .GE. debLevB )           IF (debugMode) CALL DEBUG_CALL('CALC_GW', myThid )
      &     CALL DEBUG_CALL('CALC_GW', myThid )  
643  #endif  #endif
644           CALL TIMER_START('CALC_GW          [DYNAMICS]',myThid)           CALL TIMER_START('CALC_GW          [DYNAMICS]',myThid)
645           CALL CALC_GW(           CALL CALC_GW(
# Line 691  Cml) Line 689  Cml)
689  #endif /* ALLOW_DIAGNOSTICS */  #endif /* ALLOW_DIAGNOSTICS */
690    
691  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
692        If ( debugLevel .GE. debLevB ) THEN        IF ( debugLevel .GE. debLevB ) THEN
693         CALL DEBUG_STATS_RL(1,EtaN,'EtaN (DYNAMICS)',myThid)         CALL DEBUG_STATS_RL(1,EtaN,'EtaN (DYNAMICS)',myThid)
694         CALL DEBUG_STATS_RL(Nr,uVel,'Uvel (DYNAMICS)',myThid)         CALL DEBUG_STATS_RL(Nr,uVel,'Uvel (DYNAMICS)',myThid)
695         CALL DEBUG_STATS_RL(Nr,vVel,'Vvel (DYNAMICS)',myThid)         CALL DEBUG_STATS_RL(Nr,vVel,'Vvel (DYNAMICS)',myThid)
# Line 721  C       but it does not mean that it is Line 719  C       but it does not mean that it is
719  #endif  #endif
720    
721  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
722        IF ( debugLevel .GE. debLevB )        IF (debugMode) CALL DEBUG_LEAVE( 'DYNAMICS', myThid )
      &   CALL DEBUG_LEAVE( 'DYNAMICS', myThid )  
723  #endif  #endif
724    
725        RETURN        RETURN
Legend:
Removed from v.1.152  
changed lines
  Added in v.1.153
  ViewVC Help
Powered by ViewVC 1.1.22