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 |
RETURN |
RETURN |
509 |
END |
END |