--- MITgcm/model/src/calc_gt.F	2001/02/04 14:38:46	1.29
+++ MITgcm/model/src/calc_gt.F	2001/02/06 03:08:59	1.30
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/Attic/calc_gt.F,v 1.29 2001/02/04 14:38:46 cnh Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/Attic/calc_gt.F,v 1.30 2001/02/06 03:08:59 cnh Exp $
 C $Name:  $
 
 #include "CPP_OPTIONS.h"
@@ -102,6 +102,16 @@
       ENDDO
 #endif
 
+CcnhDebugStarts
+      DO j=1-OLy,sNy+OLy
+       DO i=1-OLx,sNx+OLx
+        fZon(i,j)      = 0.0
+        fMer(i,j)      = 0.0
+        fVerT(i,j,kUp) = 0.0
+       ENDDO
+      ENDDO
+CcnhDebugEnds
+
       afFacT = 1. _d 0
       dfFacT = 1. _d 0
       TOP_LAYER = K .EQ. 1