File indexing completed on 2022-03-18 05:09:21 UTC
view on githubraw file Latest commit 0cd0083d on 2022-03-17 22:08:42 UTC
0cd0083da8 Ou W*0001 #include "ECCO_OPTIONS.h"
0002
0003
0004
0005
0006
0007
0008 SUBROUTINE ECCO_DIAGNOSTICS_INIT( myThid )
0009
0010
0011
0012
0013
0014 IMPLICIT NONE
0015
0016
0017 #include "EEPARAMS.h"
0018 #include "SIZE.h"
0019 #include "PARAMS.h"
0020
0021
0022
0023 INTEGER myThid
0024
0025
0026 #ifdef ALLOW_DIAGNOSTICS
0027
0028 CHARACTER*(16) DIAGS_MK_UNITS
0029 EXTERNAL DIAGS_MK_UNITS
0030
0031
0032
0033
0034
0035
0036
0037
0038
0039 INTEGER diagNum
0040
0041 CHARACTER*8 diagName
0042 CHARACTER*16 diagCode
0043 CHARACTER*16 diagUnits
0044 CHARACTER*(80) diagTitle
0045 CHARACTER*2 rUnit2c
0046
0047 IF ( usingPCoords ) THEN
0048 rUnit2c= 'Pa'
0049 ELSE
0050 rUnit2c= 'm '
0051 ENDIF
0052
0053 diagName = 'SSH '
0054 diagTitle = 'Dynamic Sea Surface Height Anomaly'
0055 diagUnits = DIAGS_MK_UNITS( rUnit2c, myThid )
0056 diagCode = 'SM M1 '
0057 CALL DIAGNOSTICS_ADDTOLIST( diagNum,
0058 I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
0059
0060 diagName = 'SSHIBC '
0061 diagTitle =
0062 I 'Inverted Barometer (IB) Correction to Sea Surface Height'
0063 diagUnits = DIAGS_MK_UNITS( rUnit2c, myThid )
0064 diagCode = 'SM M1 '
0065 CALL DIAGNOSTICS_ADDTOLIST( diagNum,
0066 I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
0067
0068 diagName = 'SSHNOIBC'
0069 diagTitle = 'Sea Surface Height Anomaly without IB '
0070 I //'Correction (=SSH+SSHIBC)'
0071 diagUnits = DIAGS_MK_UNITS( rUnit2c, myThid )
0072 diagCode = 'SM M1 '
0073 CALL DIAGNOSTICS_ADDTOLIST( diagNum,
0074 I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
0075
0076 diagName = 'STERICHT'
0077 diagTitle = 'Steric Sea Surface Height Anomaly (=SSH-OBP)'
0078 diagUnits = DIAGS_MK_UNITS( rUnit2c, myThid )
0079 diagCode = 'SM M1 '
0080 CALL DIAGNOSTICS_ADDTOLIST( diagNum,
0081 I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
0082
0083 diagName = 'OBP '
0084 diagTitle = 'Ocean Bottom Pressure'
0085 diagUnits = 'm '
0086 diagCode = 'SM M1 '
0087 CALL DIAGNOSTICS_ADDTOLIST( diagNum,
0088 I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
0089
0090 diagName = 'OBPGMAP '
0091 diagTitle = 'Ocean Bottom Pressure '
0092 I //'Including Global Mean Atmospheric Pressure'
0093 diagUnits = 'm '
0094 diagCode = 'SM M1 '
0095 CALL DIAGNOSTICS_ADDTOLIST( diagNum,
0096 I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
0097
0098 #endif /* ALLOW_DIAGNOSTICS */
0099
0100 RETURN
0101 END