File indexing completed on 2021-04-08 05:12:34 UTC
view on githubraw file Latest commit ba0b0470 on 2021-04-08 01:06:32 UTC
a30418b6b9 Ed H*0001 #include "TIMEAVE_OPTIONS.h"
0002
0003
0004
85abc0b94e Ed H*0005
a30418b6b9 Ed H*0006
0007
85abc0b94e Ed H*0008 SUBROUTINE TIMEAVE_INIT_FIXED( myThid )
a30418b6b9 Ed H*0009
0010
0011
0012
0013
0014
0015 IMPLICIT NONE
0016 #include "SIZE.h"
0017 #include "EEPARAMS.h"
0018 #include "PARAMS.h"
204b7e5ebb Jean*0019
0020
0021
0022 #ifdef ALLOW_MNC
0023 #include "MNC_PARAMS.h"
0024 #endif
a30418b6b9 Ed H*0025
0026
0027 INTEGER myThid
0028
0029
f31930e56f Ed H*0030 #ifdef ALLOW_TIMEAVE
a30418b6b9 Ed H*0031
f31930e56f Ed H*0032 #ifdef ALLOW_MNC
204b7e5ebb Jean*0033 IF ( useMNC.AND.timeave_mnc ) THEN
a30418b6b9 Ed H*0034
0035 CALL MNC_CW_ADD_VNAME('ETAtave', 'Cen_xy_Hn__-__t',3,4,myThid)
580dd6560d Ed H*0036 CALL MNC_CW_ADD_VATTR_TEXT('ETAtave','long_name',
a30418b6b9 Ed H*0037 & 'time-averaged free-surface_r-anomaly', myThid)
580dd6560d Ed H*0038 CALL MNC_CW_ADD_VATTR_TEXT('ETAtave','units','m', myThid)
0039 CALL MNC_CW_ADD_VATTR_TEXT('ETAtave',
a30418b6b9 Ed H*0040 & 'coordinates','XC YC RC iter', myThid)
0041
204b7e5ebb Jean*0042 CALL MNC_CW_ADD_VNAME('Eta2tave', 'Cen_xy_Hn__-__t',3,4,myThid)
0043 CALL MNC_CW_ADD_VATTR_TEXT('Eta2tave','long_name',
a30418b6b9 Ed H*0044 & 'time-averaged free-surface_r-anomaly squared', myThid)
204b7e5ebb Jean*0045 CALL MNC_CW_ADD_VATTR_TEXT('Eta2tave','units','m^2', myThid)
0046 CALL MNC_CW_ADD_VATTR_TEXT('Eta2tave',
a30418b6b9 Ed H*0047 & 'coordinates','XC YC RC iter', myThid)
0048
0049 CALL MNC_CW_ADD_VNAME('Ttave', 'Cen_xy_Hn__C__t', 4,5, myThid)
580dd6560d Ed H*0050 CALL MNC_CW_ADD_VATTR_TEXT('Ttave','units','degC', myThid)
0051 CALL MNC_CW_ADD_VATTR_TEXT('Ttave','long_name',
a30418b6b9 Ed H*0052 & 'time-averaged potential_temperature', myThid)
580dd6560d Ed H*0053 CALL MNC_CW_ADD_VATTR_TEXT('Ttave',
a30418b6b9 Ed H*0054 & 'coordinates','XC YC RC iter', myThid)
0055
0056 CALL MNC_CW_ADD_VNAME('Stave', 'Cen_xy_Hn__C__t', 4,5, myThid)
580dd6560d Ed H*0057 CALL MNC_CW_ADD_VATTR_TEXT('Stave','long_name',
a30418b6b9 Ed H*0058 & 'time-averaged salinity', myThid)
580dd6560d Ed H*0059 CALL MNC_CW_ADD_VATTR_TEXT('Stave',
a30418b6b9 Ed H*0060 & 'coordinates','XC YC RC iter', myThid)
af78eb62fa Bayl*0061 CALL MNC_CW_ADD_VATTR_TEXT('Stave','description',
0062 & 'time-averaged salinity', myThid)
a30418b6b9 Ed H*0063
0064 CALL MNC_CW_ADD_VNAME('uVeltave', 'U_xy_Hn__C__t', 4,5, myThid)
580dd6560d Ed H*0065 CALL MNC_CW_ADD_VATTR_TEXT('uVeltave','units','m/s', myThid)
0066 CALL MNC_CW_ADD_VATTR_TEXT('uVeltave',
a30418b6b9 Ed H*0067 & 'coordinates','XU YU RC iter', myThid)
af78eb62fa Bayl*0068 CALL MNC_CW_ADD_VATTR_TEXT('uVeltave','description',
0069 & 'time-averaged zonal velocity', myThid)
a30418b6b9 Ed H*0070
0071 CALL MNC_CW_ADD_VNAME('vVeltave', 'V_xy_Hn__C__t', 4,5, myThid)
580dd6560d Ed H*0072 CALL MNC_CW_ADD_VATTR_TEXT('vVeltave','units','m/s', myThid)
0073 CALL MNC_CW_ADD_VATTR_TEXT('vVeltave',
a30418b6b9 Ed H*0074 & 'coordinates','XV YV RC iter', myThid)
af78eb62fa Bayl*0075 CALL MNC_CW_ADD_VATTR_TEXT('vVeltave','description',
0076 & 'time-averaged merid. velocity', myThid)
a30418b6b9 Ed H*0077
efb82d6109 Bayl*0078 CALL MNC_CW_ADD_VNAME('wVeltave', 'Cen_xy_Hn__L__t',4,5,myThid)
580dd6560d Ed H*0079 CALL MNC_CW_ADD_VATTR_TEXT('wVeltave','units','m/s', myThid)
af78eb62fa Bayl*0080 CALL MNC_CW_ADD_VATTR_TEXT('vVeltave','description',
0081 & 'time-averaged vertical velocity', myThid)
a30418b6b9 Ed H*0082
efb82d6109 Bayl*0083 CALL MNC_CW_ADD_VNAME('UTtave', 'U_xy_Hn__C__t', 4,5, myThid)
580dd6560d Ed H*0084 CALL MNC_CW_ADD_VATTR_TEXT('UTtave','units','degC*m/s',myThid)
af78eb62fa Bayl*0085 CALL MNC_CW_ADD_VATTR_TEXT('UTtave','description',
0086 & 'Zonal velocity and potential temp. t-ave product', myThid)
a30418b6b9 Ed H*0087
efb82d6109 Bayl*0088 CALL MNC_CW_ADD_VNAME('VTtave', 'V_xy_Hn__C__t', 4,5, myThid)
580dd6560d Ed H*0089 CALL MNC_CW_ADD_VATTR_TEXT('VTtave','units','degC*m/s',myThid)
af78eb62fa Bayl*0090 CALL MNC_CW_ADD_VATTR_TEXT('VTtave','description',
0091 & 'Merid velocity and potential temp. t-ave product', myThid)
a30418b6b9 Ed H*0092
efb82d6109 Bayl*0093 CALL MNC_CW_ADD_VNAME('WTtave', 'Cen_xy_Hn__L__t', 4,5, myThid)
580dd6560d Ed H*0094 CALL MNC_CW_ADD_VATTR_TEXT('WTtave','units','degC*m/s',myThid)
af78eb62fa Bayl*0095 CALL MNC_CW_ADD_VATTR_TEXT('WTtave','description',
0096 & 'Vert. velocity and potential temp. t-ave product', myThid)
a30418b6b9 Ed H*0097
efb82d6109 Bayl*0098 CALL MNC_CW_ADD_VNAME('UStave', 'U_xy_Hn__C__t', 4,5, myThid)
ba0b047096 Mart*0099 CALL MNC_CW_ADD_VATTR_TEXT('UStave','units','g/kg*m/s', myThid)
af78eb62fa Bayl*0100 CALL MNC_CW_ADD_VATTR_TEXT('UStave','description',
0101 & 'Zonal velocity and Salinity t-ave product', myThid)
0102
efb82d6109 Bayl*0103 CALL MNC_CW_ADD_VNAME('VStave', 'V_xy_Hn__C__t', 4,5, myThid)
ba0b047096 Mart*0104 CALL MNC_CW_ADD_VATTR_TEXT('VStave','units','g/kg*m/s', myThid)
af78eb62fa Bayl*0105 CALL MNC_CW_ADD_VATTR_TEXT('VStave','description',
0106 & 'Merid velocity and Salinity t-ave product', myThid)
0107
efb82d6109 Bayl*0108 CALL MNC_CW_ADD_VNAME('WStave', 'Cen_xy_Hn__L__t', 4,5, myThid)
ba0b047096 Mart*0109 CALL MNC_CW_ADD_VATTR_TEXT('WStave','units','g/kg*m/s', myThid)
af78eb62fa Bayl*0110 CALL MNC_CW_ADD_VATTR_TEXT('WStave','description',
0111 & 'Vert velocity and Salinity t-ave product', myThid)
a30418b6b9 Ed H*0112
0113 CALL MNC_CW_ADD_VNAME('TTtave', 'Cen_xy_Hn__C__t', 4,5, myThid)
af78eb62fa Bayl*0114 CALL MNC_CW_ADD_VATTR_TEXT('TTtave','units','degC^2', myThid)
0115 CALL MNC_CW_ADD_VATTR_TEXT('TTtave','description',
0116 & 'Potl Temp Squared t-ave', myThid)
0117
efb82d6109 Bayl*0118 CALL MNC_CW_ADD_VNAME('UUtave', 'U_xy_Hn__C__t', 4,5, myThid)
af78eb62fa Bayl*0119 CALL MNC_CW_ADD_VATTR_TEXT('UUtave','units','m^2/s^2', myThid)
0120 CALL MNC_CW_ADD_VATTR_TEXT('UUtave','description',
0121 & 'Zonal Vel. Squared t-ave', myThid)
0122
efb82d6109 Bayl*0123 CALL MNC_CW_ADD_VNAME('VVtave', 'V_xy_Hn__C__t', 4,5, myThid)
af78eb62fa Bayl*0124 CALL MNC_CW_ADD_VATTR_TEXT('VVtave','units','m^2/s^2', myThid)
0125 CALL MNC_CW_ADD_VATTR_TEXT('VVtave','description',
0126 & 'Merid Vel. Squared t-ave', myThid)
0127
a30418b6b9 Ed H*0128 CALL MNC_CW_ADD_VNAME('UVtave', 'Cen_xy_Hn__C__t', 4,5, myThid)
af78eb62fa Bayl*0129 CALL MNC_CW_ADD_VATTR_TEXT('UVtave','units','m^2/s^2', myThid)
0130 CALL MNC_CW_ADD_VATTR_TEXT('UVtave','description',
0131 & 'Horiz. Vel. Product t-ave', myThid)
0132
a30418b6b9 Ed H*0133 CALL MNC_CW_ADD_VNAME('KEtave', 'Cen_xy_Hn__C__t', 4,5, myThid)
af78eb62fa Bayl*0134 CALL MNC_CW_ADD_VATTR_TEXT('KEtave','units','m^2/s^2', myThid)
0135 CALL MNC_CW_ADD_VATTR_TEXT('KEtave','description',
0136 & 'Kinetic Energy t-ave', myThid)
0137
a30418b6b9 Ed H*0138 CALL MNC_CW_ADD_VNAME('Tdiftave', 'Cen_xy_Hn__C__t',4,5,myThid)
0139
af78eb62fa Bayl*0140 CALL MNC_CW_ADD_VNAME('uZtave', 'U_xy_Hn__C__t', 4,5, myThid)
950470c481 Bayl*0141 CALL MNC_CW_ADD_VATTR_TEXT('uZtave','units','m/s^2', myThid)
af78eb62fa Bayl*0142 CALL MNC_CW_ADD_VATTR_TEXT('uZtave','description',
0143 & 'Zonal Vel. and Rel. Vorticity Product t-ave', myThid)
0144
0145 CALL MNC_CW_ADD_VNAME('vZtave', 'V_xy_Hn__C__t', 4,5, myThid)
0146 CALL MNC_CW_ADD_VATTR_TEXT('vZtave','units','m/s^2', myThid)
0147 CALL MNC_CW_ADD_VATTR_TEXT('vZtave','description',
0148 & 'Merid Vel. and Rel. Vorticity Product t-ave', myThid)
a30418b6b9 Ed H*0149
0150 CALL MNC_CW_ADD_VNAME('PhHytave', 'Cen_xy_Hn__C__t',4,5,myThid)
0151
0152 CALL MNC_CW_ADD_VNAME('PHLtave', 'Cen_xy_Hn__-__t',3,4,myThid)
0153 CALL MNC_CW_ADD_VNAME('PHL2tave', 'Cen_xy_Hn__-__t',3,4,myThid)
0154
0155 CALL MNC_CW_ADD_VNAME('Convtave', 'Cen_xy_Hn__C__t',4,5,myThid)
af78eb62fa Bayl*0156 CALL MNC_CW_ADD_VATTR_TEXT('Convtave','description',
0157 & 'Convection t-ave', myThid)
a30418b6b9 Ed H*0158
0159 CALL MNC_CW_ADD_VNAME('uFluxtave', 'Cen_xy_Hn__-__t',3,4,myThid)
0160 CALL MNC_CW_ADD_VNAME('vFluxtave', 'Cen_xy_Hn__-__t',3,4,myThid)
0161 CALL MNC_CW_ADD_VNAME('tFluxtave', 'Cen_xy_Hn__-__t',3,4,myThid)
0162 CALL MNC_CW_ADD_VNAME('sFluxtave', 'Cen_xy_Hn__-__t',3,4,myThid)
0163
14ebf820d9 Jean*0164 CALL MNC_CW_ADD_VNAME('hUtave', 'U_xy_Hn__C__t',4,5,myThid)
0165 CALL MNC_CW_ADD_VNAME('hVtave', 'V_xy_Hn__C__t',4,5,myThid)
0166 CALL MNC_CW_ADD_VNAME('hFacCtave', 'Cen_xy_Hn__C__t',4,5,myThid)
0167 CALL MNC_CW_ADD_VNAME('hFacWtave', 'U_xy_Hn__C__t',4,5,myThid)
0168 CALL MNC_CW_ADD_VNAME('hFacStave', 'V_xy_Hn__C__t',4,5,myThid)
a30418b6b9 Ed H*0169
0170 ENDIF
0171 #endif /* ALLOW_MNC */
0172
0173 #endif /* ALLOW_TIMEAVE */
0174
0175 RETURN
0176 END