44 |
C & R & levels = Nr \\ |
C & R & levels = Nr \\ |
45 |
C & L & levels = MAX(Nr,NrPhys) \\ |
C & L & levels = MAX(Nr,NrPhys) \\ |
46 |
C & M & levels = MAX(Nr,NrPhys) - 1 \\ |
C & M & levels = MAX(Nr,NrPhys) - 1 \\ |
47 |
|
C & G & levels = Ground_level Number \\ |
48 |
|
C & I & levels = sea-Ice_level Number \\ |
49 |
C \end{tabular} |
C \end{tabular} |
50 |
C \end{center} |
C \end{center} |
51 |
|
|
53 |
IMPLICIT NONE |
IMPLICIT NONE |
54 |
#include "SIZE.h" |
#include "SIZE.h" |
55 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
|
c #include "EESUPPORT.h" |
|
56 |
#include "PARAMS.h" |
#include "PARAMS.h" |
57 |
|
|
58 |
C !INPUT PARAMETERS: |
C !INPUT PARAMETERS: |
199 |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
200 |
|
|
201 |
diagName = 'SALTSQan' |
diagName = 'SALTSQan' |
202 |
diagTitle = 'Square of Salt anomaly (=SALTSQ-35^2 (g^2/kg^2)' |
diagTitle = 'Square of Salt anomaly (=(SALT-35)^2 (g^2/kg^2)' |
203 |
diagUnits = DIAGS_MK_UNITS( '('//sUnit4c//')^2', myThid ) |
diagUnits = DIAGS_MK_UNITS( '('//sUnit4c//')^2', myThid ) |
204 |
diagCode = 'SM MR ' |
diagCode = 'SM MR ' |
205 |
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
403 |
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
404 |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
405 |
|
|
406 |
|
diagName = 'PHIHYDSQ' |
407 |
|
diagTitle = 'Square of Hyd. (ocean) press / (atmos) geoPotential' |
408 |
|
diagUnits = 'm^4/s^4 ' |
409 |
|
diagCode = 'SM MR ' |
410 |
|
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
411 |
|
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
412 |
|
|
413 |
diagName = 'PHIBOT ' |
diagName = 'PHIBOT ' |
414 |
diagTitle = 'ocean bottom pressure / top. atmos geo-Potential' |
diagTitle = 'ocean bottom pressure / top. atmos geo-Potential' |
415 |
diagUnits = 'm^2/s^2 ' |
diagUnits = 'm^2/s^2 ' |
497 |
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
498 |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
499 |
|
|
500 |
|
#ifdef SHORTWAVE_HEATING |
501 |
|
diagName = 'SWFLUX ' |
502 |
|
diagTitle = 'net upward SW radiation, >0 increases theta ' |
503 |
|
diagUnits = 'W/m^2 ' |
504 |
|
diagCode = 'SM U1 ' |
505 |
|
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
506 |
|
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
507 |
|
#endif |
508 |
|
|
509 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
510 |
|
diagName = 'PRESSURE' |
511 |
|
diagTitle = 'Atmospheric Pressure (Pa) ' |
512 |
|
diagUnits = DIAGS_MK_UNITS( rUnit2c, myThid ) |
513 |
|
diagCode = 'SM MR ' |
514 |
|
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
515 |
|
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
516 |
|
|
517 |
|
diagName = 'RSURF ' |
518 |
|
diagTitle = 'Surface (Pressure, Height) (Pa,m)' |
519 |
|
diagUnits = DIAGS_MK_UNITS( rUnit2c, myThid ) |
520 |
|
diagCode = 'SM M1 ' |
521 |
|
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
522 |
|
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
523 |
|
|
524 |
|
|
525 |
RETURN |
RETURN |
526 |
END |
END |