746 |
CALL DIAGNOSTICS_ADDTOLIST( diagNum, |
CALL DIAGNOSTICS_ADDTOLIST( diagNum, |
747 |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
748 |
|
|
749 |
|
diagName = 'AB_gU ' |
750 |
|
diagTitle = 'U momentum tendency from Adams-Bashforth' |
751 |
|
diagUnits = 'm/s^2 ' |
752 |
|
diagCode = 'UUR MR ' |
753 |
|
diagMate = diagNum + 2 |
754 |
|
CALL DIAGNOSTICS_ADDTOLIST( diagNum, |
755 |
|
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
756 |
|
|
757 |
|
diagName = 'AB_gV ' |
758 |
|
diagTitle = 'V momentum tendency from Adams-Bashforth' |
759 |
|
diagUnits = 'm/s^2 ' |
760 |
|
diagCode = 'VVR MR ' |
761 |
|
diagMate = diagNum |
762 |
|
CALL DIAGNOSTICS_ADDTOLIST( diagNum, |
763 |
|
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
764 |
|
|
765 |
|
#ifdef ALLOW_NONHYDROSTATIC |
766 |
|
diagName = 'AB_gW ' |
767 |
|
diagTitle = 'W momentum tendency from Adams-Bashforth' |
768 |
|
diagUnits = DIAGS_MK_UNITS( rUnit2c//'/s^2', myThid ) |
769 |
|
diagCode = 'WM LR ' |
770 |
|
CALL DIAGNOSTICS_ADDTOLIST( diagNum, |
771 |
|
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
772 |
|
#endif /* ALLOW_NONHYDROSTATIC */ |
773 |
|
|
774 |
|
#ifdef ALLOW_GENERIC_ADVDIFF |
775 |
|
diagName = 'AB_gT ' |
776 |
|
diagTitle = 'Potential Temp. tendency from Adams-Bashforth' |
777 |
|
diagUnits = DIAGS_MK_UNITS( tUnit4c//'/s', myThid ) |
778 |
|
diagCode = 'SMR MR ' |
779 |
|
CALL DIAGNOSTICS_ADDTOLIST( diagNum, |
780 |
|
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
781 |
|
|
782 |
|
diagName = 'AB_gS ' |
783 |
|
diagTitle = DIAGS_MK_TITLE( |
784 |
|
& sTitle//'tendency from Adams-Bashforth', myThid ) |
785 |
|
diagUnits = DIAGS_MK_UNITS( sUnit4c//'/s', myThid ) |
786 |
|
diagCode = 'SMR MR ' |
787 |
|
CALL DIAGNOSTICS_ADDTOLIST( diagNum, |
788 |
|
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
789 |
|
#endif /* ALLOW_GENERIC_ADVDIFF */ |
790 |
|
|
791 |
RETURN |
RETURN |
792 |
END |
END |