829 |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
830 |
#endif /* ALLOW_GENERIC_ADVDIFF */ |
#endif /* ALLOW_GENERIC_ADVDIFF */ |
831 |
|
|
832 |
#ifdef ALLOW_DIAGNOSTICS |
#ifdef ALLOW_EDDYPSI |
833 |
diagName = 'TAUXEDDY' |
diagName = 'TAUXEDDY' |
834 |
diagTitle = 'Zonal Eddy Stress' |
diagTitle = 'Zonal Eddy Stress' |
835 |
diagUnits = 'N/m**2 ' |
diagUnits = 'N/m**2 ' |
836 |
diagCode = 'UU P MR ' |
diagCode = 'UU P MR ' |
837 |
diagMate = diagNum |
diagMate = diagNum |
838 |
CALL DIAGNOSTICS_ADDTOLIST( diagNum, |
CALL DIAGNOSTICS_ADDTOLIST( diagNum, |
839 |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
840 |
|
|
841 |
diagName = 'TAUYEDDY' |
diagName = 'TAUYEDDY' |
842 |
diagTitle = 'Meridional Eddy Stress' |
diagTitle = 'Meridional Eddy Stress' |
843 |
diagUnits = 'N/m**2 ' |
diagUnits = 'N/m**2 ' |
844 |
diagCode = 'VV P MR ' |
diagCode = 'VV P MR ' |
845 |
diagMate = diagNum |
diagMate = diagNum |
846 |
CALL DIAGNOSTICS_ADDTOLIST( diagNum, |
CALL DIAGNOSTICS_ADDTOLIST( diagNum, |
847 |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
848 |
#endif /* ALLOW_DIAGNOSTICS */ |
|
849 |
|
#ifdef ALLOW_GMREDI |
850 |
|
diagName = 'UVELMEAN' |
851 |
|
diagTitle = 'Zonal Component of Mean Velocity (m/s)' |
852 |
|
diagUnits = 'm/s ' |
853 |
|
diagCode = 'UUR MR ' |
854 |
|
diagMate = diagNum + 2 |
855 |
|
CALL DIAGNOSTICS_ADDTOLIST( diagNum, |
856 |
|
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
857 |
|
|
858 |
|
diagName = 'VVELMEAN' |
859 |
|
diagTitle = 'Meridional Component of Mean Velocity (m/s)' |
860 |
|
diagUnits = 'm/s ' |
861 |
|
diagCode = 'VVR MR ' |
862 |
|
diagMate = diagNum |
863 |
|
CALL DIAGNOSTICS_ADDTOLIST( diagNum, |
864 |
|
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
865 |
|
|
866 |
|
#endif /* ALLOW_GMREDI */ |
867 |
|
|
868 |
|
#endif /* ALLOW_EDDYPSI */ |
869 |
|
|
870 |
RETURN |
RETURN |
871 |
END |
END |