/[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.58 by jmc, Fri Jul 1 18:49:35 2011 UTC revision 1.59 by jmc, Tue Jul 26 20:05:20 2011 UTC
# Line 333  C-       get all the levels (for vertica Line 333  C-       get all the levels (for vertica
333                IF ( mDbl.GT.0 ) THEN                IF ( mDbl.GT.0 ) THEN
334                 DO bj = myByLo(myThid), myByHi(myThid)                 DO bj = myByLo(myThid), myByHi(myThid)
335                  DO bi = myBxLo(myThid), myBxHi(myThid)                  DO bi = myBxLo(myThid), myBxHi(myThid)
                  DO k = 1,nlevels(listId)  
336                    CALL DIAGNOSTICS_GET_DIAG(                    CALL DIAGNOSTICS_GET_DIAG(
337       I                         0, undefRL,       I                         0, undefRL,
338       O                         qtmp2(1-OLx,1-OLy,k,bi,bj),       O                         qtmp2(1-OLx,1-OLy,1,bi,bj),
339       I                         mDbl, 0, im, 0, bi, bj, myThid )       I                         mDbl, 0, im, 0, bi, bj, myThid )
                  ENDDO  
340                  ENDDO                  ENDDO
341                 ENDDO                 ENDDO
342                ENDIF                ENDIF
Legend:
Removed from v.1.58  
changed lines
  Added in v.1.59
  ViewVC Help
Powered by ViewVC 1.1.22