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

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

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

revision 1.52 by jmc, Sun Jun 12 19:16:09 2011 UTC revision 1.53 by jmc, Tue Jun 14 00:18:37 2011 UTC
# Line 71  c     COMMON /LOCAL_DIAGNOSTICS_OUT/ qtm Line 71  c     COMMON /LOCAL_DIAGNOSTICS_OUT/ qtm
71        INTEGER mate, mVec        INTEGER mate, mVec
72        CHARACTER*10 gcode        CHARACTER*10 gcode
73        _RL undefRL        _RL undefRL
74          INTEGER nFilled
75        INTEGER nLevOutp, kLev        INTEGER nLevOutp, kLev
76    
77        INTEGER iLen        INTEGER iLen
# Line 200  C--     Start processing 1 Fld : Line 201  C--     Start processing 1 Fld :
201            IF (mate.GT.0) im = im + kdiag(mate)*(lm-1)            IF (mate.GT.0) im = im + kdiag(mate)*(lm-1)
202            IF (mVec.GT.0) im = im + kdiag(mVec)*(lm-1)            IF (mVec.GT.0) im = im + kdiag(mVec)*(lm-1)
203    
204            IF ( ndiag(ip,1,1).EQ.0 ) THEN            nFilled = ndiag(ip,1,1)
205              IF ( flds(md,listId).EQ.'PhiVEL  ' ) THEN
206                  CALL DIAGNOSTICS_CALC_PHIVEL(
207         I                         listId, md, ndId, ip, im, lm,
208         U                         nFilled, qtmp1, qtmp2,
209         I                         myTime, myIter, myThid )
210              ENDIF
211    
212    c         IF ( ndiag(ip,1,1).EQ.0 ) THEN
213              IF ( nFilled.EQ.0 ) THEN
214  C-        Empty diagnostics case :  C-        Empty diagnostics case :
215    
216              _BEGIN_MASTER( myThid )              _BEGIN_MASTER( myThid )
# Line 241  C-        Empty diagnostics case : Line 251  C-        Empty diagnostics case :
251                ENDDO                ENDDO
252              ENDDO              ENDDO
253    
254            ELSE  c         ELSE
255              ELSEIF ( ndiag(ip,1,1).NE.0 ) THEN
256  C-        diagnostics is not empty :  C-        diagnostics is not empty :
257    
258              IF ( debugLevel.GE.debLevB .AND. myThid.EQ.1 ) THEN              IF ( debugLevel.GE.debLevB .AND. myThid.EQ.1 ) THEN
Legend:
Removed from v.1.52  
changed lines
  Added in v.1.53
  ViewVC Help
Powered by ViewVC 1.1.22