--- MITgcm/model/src/dynamics.F	2005/07/30 23:39:48	1.122
+++ MITgcm/model/src/dynamics.F	2005/08/16 22:52:06	1.123
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/dynamics.F,v 1.122 2005/07/30 23:39:48 jmc Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/dynamics.F,v 1.123 2005/08/16 22:52:06 jmc Exp $
 C $Name:  $
 
 #include "PACKAGES_CONFIG.h"
@@ -219,6 +219,11 @@
 C---
 CEOP
 
+#ifdef ALLOW_DEBUG
+      IF ( debugLevel .GE. debLevB )
+     &   CALL DEBUG_ENTER( 'DYNAMICS', myThid )
+#endif
+
 C-- Call to routine for calculation of
 C   Eliassen-Palm-flux-forced U-tendency,
 C   if desired:
@@ -488,8 +493,8 @@
 C--   Step forward W field in N-H algorithm
       IF ( momStepping .AND. nonHydrostatic ) THEN
 #ifdef ALLOW_DEBUG
-          IF ( debugLevel .GE. debLevB )
-     &     CALL DEBUG_CALL('CALC_GW',myThid)
+         IF ( debugLevel .GE. debLevB )
+     &     CALL DEBUG_CALL('CALC_GW', myThid )
 #endif
          CALL TIMER_START('CALC_GW          [DYNAMICS]',myThid)
          CALL CALC_GW( myTime, myIter, myThid )
@@ -544,5 +549,10 @@
       ENDIF
 #endif
 
+#ifdef ALLOW_DEBUG
+      IF ( debugLevel .GE. debLevB )
+     &   CALL DEBUG_LEAVE( 'DYNAMICS', myThid )
+#endif
+
       RETURN
       END