/[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.11 by edhill, Wed Jul 7 03:10:14 2004 UTC revision 1.12 by jmc, Wed Sep 8 01:49:26 2004 UTC
# Line 10  C $Name$ Line 10  C $Name$
10  #include "EEPARAMS.h"  #include "EEPARAMS.h"
11  #include "GRID.h"  #include "GRID.h"
12  #include "DYNVARS.h"  #include "DYNVARS.h"
13    #include "SURFACE.h"
14    
15        integer myThid        integer myThid
16    
# Line 32  C $Name$ Line 33  C $Name$
33        enddo        enddo
34        call fill_diagnostics(myThid,'ETANSQ  ',0,1,0,1,1,dummys)        call fill_diagnostics(myThid,'ETANSQ  ',0,1,0,1,1,dummys)
35                
36    #ifdef EXACT_CONSERV
37          do bj = myByLo(myThid), myByHi(myThid)
38            do bi = myBxLo(myThid), myBxHi(myThid)
39              do j = 1,sNy
40                do i = 1,sNx
41                  dummys(i,j,bi,bj) = dEtaHdt(i,j,bi,bj)*dEtaHdt(i,j,bi,bj)
42                enddo
43              enddo
44            enddo
45          enddo
46          call fill_diagnostics(myThid,'DETADT2 ',0,1,0,1,1,dummys)
47    #endif
48          
49        call fill_diagnostics(myThid,'UVEL    ',0,Nr,0,1,1,uVel)        call fill_diagnostics(myThid,'UVEL    ',0,Nr,0,1,1,uVel)
50        call fill_diagnostics(myThid,'VVEL    ',0,Nr,0,1,1,vVel)        call fill_diagnostics(myThid,'VVEL    ',0,Nr,0,1,1,vVel)
51        call fill_diagnostics(myThid,'WVEL    ',0,Nr,0,1,1,wVel)        call fill_diagnostics(myThid,'WVEL    ',0,Nr,0,1,1,wVel)
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22