/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_fill_state.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_fill_state.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.7 by jmc, Mon Jun 14 21:54:47 2004 UTC revision 1.9 by jmc, Thu Jul 1 18:40:40 2004 UTC
# Line 15  C $Name$ Line 15  C $Name$
15    
16  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
17        _RL dummy(1-OLx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy)        _RL dummy(1-OLx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy)
18          _RL dummys(1-OLx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy)
19        integer i,j,K,bi,bj        integer i,j,K,bi,bj
20        integer km1        integer km1
21    
# Line 24  C $Name$ Line 25  C $Name$
25          do bi = myBxLo(myThid), myBxHi(myThid)          do bi = myBxLo(myThid), myBxHi(myThid)
26            do j = 1,sNy            do j = 1,sNy
27            do i = 1,sNx            do i = 1,sNx
28             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)
29            enddo            enddo
30            enddo            enddo
31          enddo          enddo
32          enddo          enddo
33          call fill_diagnostics(myThid,'ETANSQ  ',0,1,0,1,1,dummy)          call fill_diagnostics(myThid,'ETANSQ  ',0,1,0,1,1,dummys)
34    
35          call fill_diagnostics(myThid,'UVEL    ',0,Nr,0,1,1,uVel)          call fill_diagnostics(myThid,'UVEL    ',0,Nr,0,1,1,uVel)
36          call fill_diagnostics(myThid,'VVEL    ',0,Nr,0,1,1,vVel)          call fill_diagnostics(myThid,'VVEL    ',0,Nr,0,1,1,vVel)
# Line 212  C $Name$ Line 213  C $Name$
213           enddo           enddo
214          enddo          enddo
215          enddo          enddo
216          call fill_diagnostics(myThid,'UVELMASS',0,Nr,0,1,1,salt)          call fill_diagnostics(myThid,'UVELMASS',0,Nr,0,1,1,dummy)
217    
218          do bj = myByLo(myThid), myByHi(myThid)          do bj = myByLo(myThid), myByHi(myThid)
219          do bi = myBxLo(myThid), myBxHi(myThid)          do bi = myBxLo(myThid), myBxHi(myThid)
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22