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

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

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

revision 1.7 by jmc, Tue Feb 15 02:19:52 2005 UTC revision 1.8 by jmc, Mon May 23 02:22:07 2005 UTC
# Line 75  C---+----1----+----2----+----3----+----4 Line 75  C---+----1----+----2----+----3----+----4
75  c     Diagnostic Levels  c     Diagnostic Levels
76  c     -----------------  c     -----------------
77        DO n = 1,ndiagt        DO n = 1,ndiagt
78          IF (gdiag(n)(10:10) .EQ. '0')  kdiag(n) = 0          IF     (gdiag(n)(10:10) .EQ. '0') THEN
79          IF (gdiag(n)(10:10) .EQ. '1')  kdiag(n) = 1            kdiag(n) = 0
80          IF (gdiag(n)(10:10) .EQ. 'R')  kdiag(n) = Nr          ELSEIF (gdiag(n)(10:10) .EQ. '1') THEN
81          IF (gdiag(n)(10:10) .EQ. 'L')  kdiag(n) = nlevs            kdiag(n) = 1
82          IF (gdiag(n)(10:10) .EQ. 'M')  kdiag(n) = nlevs - 1          ELSEIF (gdiag(n)(10:10) .EQ. 'R') THEN
83          IF (gdiag(n)(10:10) .EQ. 'G')  kdiag(n) = nGroundLev            kdiag(n) = Nr
84            ELSEIF (gdiag(n)(10:10) .EQ. 'L') THEN
85              kdiag(n) = nlevs
86            ELSEIF (gdiag(n)(10:10) .EQ. 'M') THEN
87              kdiag(n) = nlevs - 1
88            ELSEIF (gdiag(n)(10:10) .EQ. 'G') THEN
89              kdiag(n) = nGroundLev
90            ELSEIF (gdiag(n)(10:10) .NE. ' ') THEN
91    C-      others: set 1 level:
92              kdiag(n) = 1
93            ENDIF
94        ENDDO        ENDDO
95    
96        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
# Line 164  C--   Check for multiple definition of t Line 174  C--   Check for multiple definition of t
174    
175  C--   Check that number of levels to write (in data.diagnostics) does not  C--   Check that number of levels to write (in data.diagnostics) does not
176  C     exceeds max size: nlevs=max(Nr,NrPhys)  C     exceeds max size: nlevs=max(Nr,NrPhys)
177  C-  note: a better place would be in DIAGNOSTICS_CHECK but prefer to do it  C-  note: a better place would be in DIAGNOSTICS_CHECK but prefer to do it
178  C         here where nlevs is defined.  C         here where nlevs is defined.
179        DO n=1,nlists        DO n=1,nlists
180          IF ( nlevels(n).GT.nlevs ) THEN          IF ( nlevels(n).GT.nlevs ) THEN
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22