559 |
CALL DIAGNOSTICS_ADDTOLIST( diagNum, |
CALL DIAGNOSTICS_ADDTOLIST( diagNum, |
560 |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
561 |
|
|
562 |
|
diagName = 'PHI_SURF' |
563 |
|
diagTitle = DIAGS_MK_TITLE('Surface Dynamical '//pTitle,myThid) |
564 |
|
diagUnits = 'm^2/s^2 ' |
565 |
|
diagCode = 'SM M1 ' |
566 |
|
CALL DIAGNOSTICS_ADDTOLIST( diagNum, |
567 |
|
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
568 |
|
|
569 |
#ifdef NONLIN_FRSURF |
#ifdef NONLIN_FRSURF |
570 |
diagName = 'PHIHYDcR' |
diagName = 'PHIHYDcR' |
571 |
diagTitle = DIAGS_MK_TITLE( 'Hydrostatic ' |
diagTitle = DIAGS_MK_TITLE( 'Hydrostatic ' |