/[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.21 by jmc, Mon Jul 11 18:59:07 2005 UTC revision 1.22 by molod, Mon Jul 11 21:58:19 2005 UTC
# Line 52  C     == Local variables == Line 52  C     == Local variables ==
52  C--   fill momentum state-var diagnostics:  C--   fill momentum state-var diagnostics:
53    
54          CALL DIAGNOSTICS_FILL(etaN, 'ETAN    ',0, 1,0,1,1,myThid)          CALL DIAGNOSTICS_FILL(etaN, 'ETAN    ',0, 1,0,1,1,myThid)
55    
56            IF ( DIAGNOSTICS_IS_ON('RSURF   ',myThid) ) THEN
57             DO bj = myByLo(myThid), myByHi(myThid)
58              DO bi = myBxLo(myThid), myBxHi(myThid)
59               DO j = 1,sNy
60                DO i = 1,sNx
61                  tmp1k(i,j,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)
62                ENDDO
63               ENDDO
64              ENDDO
65             ENDDO
66             CALL DIAGNOSTICS_FILL(tmp1k,'RSURF   ',0,1,0,1,1,myThid)
67            ENDIF
68    
69          CALL DIAGNOSTICS_SCALE_FILL(etaN,tmpFac,2,          CALL DIAGNOSTICS_SCALE_FILL(etaN,tmpFac,2,
70       &                              'ETANSQ  ',0, 1,0,1,1,myThid)       &                              'ETANSQ  ',0, 1,0,1,1,myThid)
71                
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22