58 |
CEOP |
CEOP |
59 |
|
|
60 |
C !LOCAL VARIABLES: |
C !LOCAL VARIABLES: |
61 |
|
INTEGER diagNum |
62 |
CHARACTER*8 diagName |
CHARACTER*8 diagName |
63 |
CHARACTER*16 diagCode |
CHARACTER*16 diagCode |
64 |
CHARACTER*16 diagUnits |
CHARACTER*16 diagUnits |
74 |
diagTitle = 'Hydrostatic (ocean) pressure / (atmos) geo-Potential' |
diagTitle = 'Hydrostatic (ocean) pressure / (atmos) geo-Potential' |
75 |
diagUnits = 'm2/s2 ' |
diagUnits = 'm2/s2 ' |
76 |
diagCode = 'SM MR ' |
diagCode = 'SM MR ' |
77 |
CALL DIAGNOSTICS_ADD2LIST( |
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
78 |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
79 |
|
|
80 |
diagName = 'PHIBOT ' |
diagName = 'PHIBOT ' |
81 |
diagTitle = 'ocean bottom pressure / top. atmos geo-Potential' |
diagTitle = 'ocean bottom pressure / top. atmos geo-Potential' |
82 |
diagUnits = 'm2/s2 ' |
diagUnits = 'm2/s2 ' |
83 |
diagCode = 'SM MR ' |
diagCode = 'SM MR ' |
84 |
CALL DIAGNOSTICS_ADD2LIST( |
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
85 |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
86 |
|
|
87 |
diagName = 'PHIBOTSQ' |
diagName = 'PHIBOTSQ' |
88 |
diagTitle = 'Square of ocean bottom pressure / top. geo-Potential' |
diagTitle = 'Square of ocean bottom pressure / top. geo-Potential' |
89 |
diagUnits = 'm4/s4 ' |
diagUnits = 'm4/s4 ' |
90 |
diagCode = 'SM M1 ' |
diagCode = 'SM M1 ' |
91 |
CALL DIAGNOSTICS_ADD2LIST( |
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
92 |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
93 |
|
|
94 |
diagName = 'DRHODR ' |
diagName = 'DRHODR ' |
95 |
diagTitle = 'Stratification: d.Sigma/dr (kg/m3/r_unit) ' |
diagTitle = 'Stratification: d.Sigma/dr (kg/m3/r_unit) ' |
96 |
diagUnits = 'kg/m4 ' |
diagUnits = 'kg/m4 ' |
97 |
diagCode = 'SM LR ' |
diagCode = 'SM LR ' |
98 |
CALL DIAGNOSTICS_ADD2LIST( |
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
99 |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
100 |
|
|
101 |
diagName = 'DETADT2 ' |
diagName = 'DETADT2 ' |
102 |
diagTitle = 'Square of Eta (Surf.P,SSH) Tendency ((r_unit/s)^2)' |
diagTitle = 'Square of Eta (Surf.P,SSH) Tendency ((r_unit/s)^2)' |
103 |
diagUnits = 'm2 or Pa2 /sec2 ' |
diagUnits = 'm2 or Pa2 /sec2 ' |
104 |
diagCode = 'SM M1 ' |
diagCode = 'SM M1 ' |
105 |
CALL DIAGNOSTICS_ADD2LIST( |
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
106 |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
107 |
|
|
108 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |