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 |