/[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.10 by heimbach, Sun Oct 22 01:00:51 2006 UTC revision 1.11 by heimbach, Mon Oct 23 16:29:48 2006 UTC
# Line 89  c     ----------------- Line 89  c     -----------------
89            kdiag(n) = nlevs - 1            kdiag(n) = nlevs - 1
90          ELSEIF (gdiag(n)(10:10) .EQ. 'G') THEN          ELSEIF (gdiag(n)(10:10) .EQ. 'G') THEN
91            kdiag(n) = nGroundLev            kdiag(n) = nGroundLev
         ELSEIF (gdiag(n)(10:10) .EQ. 'I') THEN  
           kdiag(n) = 3  
92          ELSEIF (gdiag(n)(10:10) .NE. ' ') THEN          ELSEIF (gdiag(n)(10:10) .NE. ' ') THEN
93  C-      others: set 1 level:  C-      others: set 1 level:
94            kdiag(n) = 1            kdiag(n) = 1
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22