Back to home page

MITgcm
 
 

    

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 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP
85abc0b94e Ed H*0005 C     !ROUTINE: TIMEAVE_INIT_FIXED
a30418b6b9 Ed H*0006 
                0007 C     !INTERFACE:
85abc0b94e Ed H*0008       SUBROUTINE TIMEAVE_INIT_FIXED( myThid )
a30418b6b9 Ed H*0009 
                0010 C     !DESCRIPTION:
                0011 C     At the end of average period, write the time-average
                0012 C     state-variables on file ; then reset for next period
                0013 
                0014 C     !USES:
                0015       IMPLICIT NONE
                0016 #include "SIZE.h"
                0017 #include "EEPARAMS.h"
                0018 #include "PARAMS.h"
204b7e5ebb Jean*0019 c #include "DYNVARS.h"
                0020 c #include "GRID.h"
                0021 c #include "TIMEAVE_STATV.h"
                0022 #ifdef ALLOW_MNC
                0023 #include "MNC_PARAMS.h"
                0024 #endif
a30418b6b9 Ed H*0025 
                0026 C     !INPUT PARAMETERS:
                0027       INTEGER myThid
                0028 CEOP
                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
[ Source navigation ] [ Diff markup ] [ Identifier search ] [ general search ]

This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine.

The LXR team
Valid CSS 2.1! Valid HTML 4.01!