/[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.5 by jmc, Mon Feb 7 03:46:10 2005 UTC revision 1.6 by jmc, Sun Feb 13 23:26:03 2005 UTC
# Line 24  C                   &  1  &  levels = 1 Line 24  C                   &  1  &  levels = 1
24  C                   &  R  &  levels = Nr  \\  C                   &  R  &  levels = Nr  \\
25  C                   &  L  &  levels = MAX(Nr,NrPhys)  \\  C                   &  L  &  levels = MAX(Nr,NrPhys)  \\
26  C                   &  M  &  levels = MAX(Nr,NrPhys) - 1  \\  C                   &  M  &  levels = MAX(Nr,NrPhys) - 1  \\
27    C                   &  G  &  levels = Ground_level Number \\
28    C                   &  I  &  levels = sea-Ice_level Number \\
29  C       \end{tabular}  C       \end{tabular}
30  C     \end{center}  C     \end{center}
31    
# Line 31  C     !USES: Line 33  C     !USES:
33        IMPLICIT NONE        IMPLICIT NONE
34    
35  #include "SIZE.h"  #include "SIZE.h"
36    #define SIZE_IS_SET
37  #include "EEPARAMS.h"  #include "EEPARAMS.h"
38  #include "PARAMS.h"  #include "PARAMS.h"
39  #include "DIAGNOSTICS_SIZE.h"  #include "DIAGNOSTICS_SIZE.h"
# Line 43  C     !USES: Line 46  C     !USES:
46         PARAMETER (Nrphys=0)         PARAMETER (Nrphys=0)
47  #endif  #endif
48    
49    #ifdef ALLOW_LAND
50    #include "LAND_SIZE.h"
51    #else
52          INTEGER land_nLev
53          PARAMETER ( land_nLev = 0 )
54    #endif
55    
56  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
57  C     myThid :: my Thread Id number  C     myThid :: my Thread Id number
58        INTEGER myThid        INTEGER myThid
59  CEOP  CEOP
60    
61  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
62        INTEGER l, n, nlevs        INTEGER l, n, nlevs, nGroundLev
63        INTEGER  dUnit, stdUnit        INTEGER  dUnit, stdUnit
64        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
65        CHARACTER*(72) ccHead, ccLine        CHARACTER*(72) ccHead, ccLine
# Line 60  C     !LOCAL VARIABLES: Line 70  C     !LOCAL VARIABLES:
70  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
71    
72        nlevs   = MAX(Nr,Nrphys)        nlevs   = MAX(Nr,Nrphys)
73          nGroundLev = land_nLev
74    
75  c     Diagnostic Levels  c     Diagnostic Levels
76  c     -----------------  c     -----------------
# Line 69  c     ----------------- Line 80  c     -----------------
80          IF (gdiag(n)(10:10) .EQ. 'R')  kdiag(n) = Nr          IF (gdiag(n)(10:10) .EQ. 'R')  kdiag(n) = Nr
81          IF (gdiag(n)(10:10) .EQ. 'L')  kdiag(n) = nlevs          IF (gdiag(n)(10:10) .EQ. 'L')  kdiag(n) = nlevs
82          IF (gdiag(n)(10:10) .EQ. 'M')  kdiag(n) = nlevs - 1          IF (gdiag(n)(10:10) .EQ. 'M')  kdiag(n) = nlevs - 1
83            IF (gdiag(n)(10:10) .EQ. 'G')  kdiag(n) = nGroundLev
84        ENDDO        ENDDO
85    
86        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22