/[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.13 by jmc, Mon Dec 13 21:55:48 2004 UTC revision 1.14 by jmc, Wed Dec 15 00:20:37 2004 UTC
# Line 37  C $Name$ Line 37  C $Name$
37         CALL DIAGNOSTICS_FILL(tmp1k,'ETANSQ  ',0,1,0,1,1,myThid)         CALL DIAGNOSTICS_FILL(tmp1k,'ETANSQ  ',0,1,0,1,1,myThid)
38        ENDIF        ENDIF
39                
40          CALL DIAGNOSTICS_FILL(phiHydLow,'PHIBOT  ',0,1,0,1,1,myThid)
41    
42          IF ( DIAGNOSTICS_IS_ON('PHIBOTSQ',myThid) ) THEN
43           DO bj = myByLo(myThid), myByHi(myThid)
44            DO bi = myBxLo(myThid), myBxHi(myThid)
45              DO j = 1,sNy
46                DO i = 1,sNx
47                  tmp1k(i,j,bi,bj) = phiHydLow(i,j,bi,bj)
48         &                          *phiHydLow(i,j,bi,bj)
49                ENDDO
50              ENDDO
51            ENDDO
52           ENDDO
53           CALL DIAGNOSTICS_FILL(tmp1k,'PHIBOTSQ',0,1,0,1,1,myThid)
54          ENDIF
55          
56  #ifdef EXACT_CONSERV  #ifdef EXACT_CONSERV
57        IF ( DIAGNOSTICS_IS_ON('DETADT2 ',myThid) ) THEN        IF ( DIAGNOSTICS_IS_ON('DETADT2 ',myThid) ) THEN
58         DO bj = myByLo(myThid), myByHi(myThid)         DO bj = myByLo(myThid), myByHi(myThid)
# Line 52  C $Name$ Line 68  C $Name$
68        ENDIF        ENDIF
69  #endif  #endif
70                
71          CALL DIAGNOSTICS_FILL(totPhihyd,'PHIHYD  ',0,Nr,0,1,1,myThid)
72        CALL DIAGNOSTICS_FILL(uVel, 'UVEL    ',0,Nr,0,1,1,myThid)        CALL DIAGNOSTICS_FILL(uVel, 'UVEL    ',0,Nr,0,1,1,myThid)
73        CALL DIAGNOSTICS_FILL(vVel, 'VVEL    ',0,Nr,0,1,1,myThid)        CALL DIAGNOSTICS_FILL(vVel, 'VVEL    ',0,Nr,0,1,1,myThid)
74        CALL DIAGNOSTICS_FILL(wVel, 'WVEL    ',0,Nr,0,1,1,myThid)        CALL DIAGNOSTICS_FILL(wVel, 'WVEL    ',0,Nr,0,1,1,myThid)
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22