/[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.155 by jmc, Sun Apr 17 03:16:22 2011 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 265  C   if desired: Line 264  C   if desired:
264        CALL CALC_EP_FORCING(myThid)        CALL CALC_EP_FORCING(myThid)
265  #endif  #endif
266    
267    #ifdef ALLOW_AUTODIFF_MONITOR_DIAG
268          CALL DUMMY_IN_DYNAMICS( mytime, myiter, myThid )
269    #endif
270    
271  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
272  C--   HPF directive to help TAMC  C--   HPF directive to help TAMC
273  CHPF$ INDEPENDENT  CHPF$ INDEPENDENT
# Line 640  C---+----1----+----2----+----3----+----4 Line 643  C---+----1----+----2----+----3----+----4
643  C--   Step forward W field in N-H algorithm  C--   Step forward W field in N-H algorithm
644          IF ( nonHydrostatic ) THEN          IF ( nonHydrostatic ) THEN
645  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
646           IF ( debugLevel .GE. debLevB )           IF (debugMode) CALL DEBUG_CALL('CALC_GW', myThid )
      &     CALL DEBUG_CALL('CALC_GW', myThid )  
647  #endif  #endif
648           CALL TIMER_START('CALC_GW          [DYNAMICS]',myThid)           CALL TIMER_START('CALC_GW          [DYNAMICS]',myThid)
649           CALL CALC_GW(           CALL CALC_GW(
# Line 662  C-    end of bi,bj loops Line 664  C-    end of bi,bj loops
664    
665  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
666        IF (useOBCS) THEN        IF (useOBCS) THEN
667         CALL OBCS_PRESCRIBE_EXCHANGES(myThid)          CALL OBCS_EXCHANGES( myThid )
668        ENDIF        ENDIF
669  #endif  #endif
670    
# Line 691  Cml) Line 693  Cml)
693  #endif /* ALLOW_DIAGNOSTICS */  #endif /* ALLOW_DIAGNOSTICS */
694    
695  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
696        If ( debugLevel .GE. debLevB ) THEN        IF ( debugLevel .GE. debLevB ) THEN
697         CALL DEBUG_STATS_RL(1,EtaN,'EtaN (DYNAMICS)',myThid)         CALL DEBUG_STATS_RL(1,EtaN,'EtaN (DYNAMICS)',myThid)
698         CALL DEBUG_STATS_RL(Nr,uVel,'Uvel (DYNAMICS)',myThid)         CALL DEBUG_STATS_RL(Nr,uVel,'Uvel (DYNAMICS)',myThid)
699         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 723  C       but it does not mean that it is
723  #endif  #endif
724    
725  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
726        IF ( debugLevel .GE. debLevB )        IF (debugMode) CALL DEBUG_LEAVE( 'DYNAMICS', myThid )
      &   CALL DEBUG_LEAVE( 'DYNAMICS', myThid )  
727  #endif  #endif
728    
729        RETURN        RETURN
Legend:
Removed from v.1.152  
changed lines
  Added in v.1.155
  ViewVC Help
Powered by ViewVC 1.1.22