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' |
diagName = 'PRESSURE' |
511 |
diagTitle = 'Atmospheric Pressure (Pa) ' |
diagTitle = 'Atmospheric Pressure (Pa) ' |