--- MITgcm/pkg/diagnostics/diagnostics_fill_state.F	2004/06/14 21:54:47	1.7
+++ MITgcm/pkg/diagnostics/diagnostics_fill_state.F	2004/06/23 20:41:28	1.8
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/diagnostics/diagnostics_fill_state.F,v 1.7 2004/06/14 21:54:47 jmc Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/diagnostics/diagnostics_fill_state.F,v 1.8 2004/06/23 20:41:28 molod Exp $
 C $Name:  $
 
 #include "PACKAGES_CONFIG.h"
@@ -15,6 +15,7 @@
 
 #ifdef ALLOW_DIAGNOSTICS
       _RL dummy(1-OLx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy)
+      _RL dummys(1-OLx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy)
       integer i,j,K,bi,bj
       integer km1
 
@@ -24,12 +25,12 @@
         do bi = myBxLo(myThid), myBxHi(myThid)
           do j = 1,sNy
           do i = 1,sNx
-           dummy(i,j,1,bi,bj) = etaN(i,j,bi,bj)*etaN(i,j,bi,bj)
+           dummys(i,j,bi,bj) = etaN(i,j,bi,bj)*etaN(i,j,bi,bj)
           enddo
           enddo
         enddo
         enddo
-        call fill_diagnostics(myThid,'ETANSQ  ',0,1,0,1,1,dummy)
+        call fill_diagnostics(myThid,'ETANSQ  ',0,1,0,1,1,dummys)
 
         call fill_diagnostics(myThid,'UVEL    ',0,Nr,0,1,1,uVel)
         call fill_diagnostics(myThid,'VVEL    ',0,Nr,0,1,1,vVel)