--- MITgcm/model/src/dynamics.F 2001/05/29 14:01:37 1.68 +++ MITgcm/model/src/dynamics.F 2001/06/06 14:55:45 1.69 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/dynamics.F,v 1.68 2001/05/29 14:01:37 adcroft Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/dynamics.F,v 1.69 2001/06/06 14:55:45 adcroft Exp $ C $Name: $ #include "CPP_OPTIONS.h" @@ -751,5 +751,21 @@ ENDDO ENDDO +#ifndef EXCLUDE_DEBUGMODE + 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) + CALL DEBUG_STATS_RL(Nr,theta,'Theta (DYNAMICS)',myThid) + CALL DEBUG_STATS_RL(Nr,salt,'Salt (DYNAMICS)',myThid) + CALL DEBUG_STATS_RL(Nr,Gu,'Gu (DYNAMICS)',myThid) + CALL DEBUG_STATS_RL(Nr,Gv,'Gv (DYNAMICS)',myThid) + CALL DEBUG_STATS_RL(Nr,Gt,'Gt (DYNAMICS)',myThid) + CALL DEBUG_STATS_RL(Nr,Gs,'Gs (DYNAMICS)',myThid) + CALL DEBUG_STATS_RL(Nr,GuNm1,'GuNm1 (DYNAMICS)',myThid) + 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 + RETURN END