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 ' |
498 |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
499 |
|
|
500 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
501 |
|
diagName = 'PRESSURE' |
502 |
|
diagTitle = 'Atmospheric Pressure (Pa) ' |
503 |
|
diagUnits = DIAGS_MK_UNITS( rUnit2c, myThid ) |
504 |
|
diagCode = 'SM MR ' |
505 |
|
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
506 |
|
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
507 |
|
|
508 |
|
diagName = 'RSURF ' |
509 |
|
diagTitle = 'Surface (Pressure, Height) (Pa,m)' |
510 |
|
diagUnits = DIAGS_MK_UNITS( rUnit2c, myThid ) |
511 |
|
diagCode = 'SM M1 ' |
512 |
|
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
513 |
|
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
514 |
|
|
515 |
|
|
516 |
RETURN |
RETURN |
517 |
END |
END |