--- MITgcm/model/src/dynamics.F 2001/06/06 14:55:45 1.69 +++ MITgcm/model/src/dynamics.F 2001/06/06 15:14:06 1.70 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/dynamics.F,v 1.69 2001/06/06 14:55:45 adcroft Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/dynamics.F,v 1.70 2001/06/06 15:14:06 adcroft Exp $ C $Name: $ #include "CPP_OPTIONS.h" @@ -752,6 +752,7 @@ ENDDO #ifndef EXCLUDE_DEBUGMODE + If (debugMode) THEN CALL DEBUG_STATS_RL(1,EtaN,'EtaN (DYNAMICS)',myThid) CALL DEBUG_STATS_RL(Nr,vVel,'Vvel (DYNAMICS)',myThid) CALL DEBUG_STATS_RL(Nr,wVel,'Wvel (DYNAMICS)',myThid) @@ -765,6 +766,7 @@ CALL DEBUG_STATS_RL(Nr,GvNm1,'GvNm1 (DYNAMICS)',myThid) CALL DEBUG_STATS_RL(Nr,GtNm1,'GtNm1 (DYNAMICS)',myThid) CALL DEBUG_STATS_RL(Nr,GsNm1,'GsNm1 (DYNAMICS)',myThid) + ENDIF #endif RETURN