C $Header: /u/gcmpack/MITgcm/pkg/timeave/timeave_init_fixed.F,v 1.6 2005/09/27 13:31:40 baylor Exp $
C $Name:  $
#include "TIMEAVE_OPTIONS.h"

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
CBOP
C     !ROUTINE: TIMEAVE_INIT_FIXED

C     !INTERFACE:
      SUBROUTINE TIMEAVE_INIT_FIXED( myThid )

C     !DESCRIPTION:
C     At the end of average period, write the time-average
C     state-variables on file ; then reset for next period

C     !USES:
      IMPLICIT NONE
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
c #include "DYNVARS.h"
c #include "GRID.h"
c #include "TIMEAVE_STATV.h"
#ifdef ALLOW_MNC
#include "MNC_PARAMS.h"
#endif

C     !INPUT PARAMETERS:
      INTEGER myThid
CEOP

#ifdef ALLOW_TIMEAVE

#ifdef ALLOW_MNC
      IF ( useMNC.AND.timeave_mnc ) THEN

      CALL MNC_CW_ADD_VNAME('ETAtave', 'Cen_xy_Hn__-__t',3,4,myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('ETAtave','long_name',
     &     'time-averaged free-surface_r-anomaly', myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('ETAtave','units','m', myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('ETAtave',
     &     'coordinates','XC YC RC iter', myThid)

      CALL MNC_CW_ADD_VNAME('Eta2tave', 'Cen_xy_Hn__-__t',3,4,myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('Eta2tave','long_name',
     &     'time-averaged free-surface_r-anomaly squared', myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('Eta2tave','units','m^2', myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('Eta2tave',
     &     'coordinates','XC YC RC iter', myThid)

      CALL MNC_CW_ADD_VNAME('Ttave', 'Cen_xy_Hn__C__t', 4,5, myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('Ttave','units','degC', myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('Ttave','long_name',
     &     'time-averaged potential_temperature', myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('Ttave',
     &     'coordinates','XC YC RC iter', myThid)

      CALL MNC_CW_ADD_VNAME('Stave', 'Cen_xy_Hn__C__t', 4,5, myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('Stave','long_name',
     &     'time-averaged salinity', myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('Stave',
     &     'coordinates','XC YC RC iter', myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('Stave','description',
     &     'time-averaged salinity', myThid)

      CALL MNC_CW_ADD_VNAME('uVeltave', 'U_xy_Hn__C__t', 4,5, myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('uVeltave','units','m/s', myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('uVeltave',
     &     'coordinates','XU YU RC iter', myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('uVeltave','description',
     &     'time-averaged zonal velocity', myThid)

      CALL MNC_CW_ADD_VNAME('vVeltave', 'V_xy_Hn__C__t', 4,5, myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('vVeltave','units','m/s', myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('vVeltave',
     &     'coordinates','XV YV RC iter', myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('vVeltave','description',
     &     'time-averaged merid. velocity', myThid)

      CALL MNC_CW_ADD_VNAME('wVeltave', 'Cen_xy_Hn__L__t',4,5,myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('wVeltave','units','m/s', myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('vVeltave','description',
     &     'time-averaged vertical velocity', myThid)

      CALL MNC_CW_ADD_VNAME('UTtave', 'U_xy_Hn__C__t', 4,5, myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('UTtave','units','degC*m/s',myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('UTtave','description',
     &     'Zonal velocity and potential temp. t-ave product', myThid)

      CALL MNC_CW_ADD_VNAME('VTtave', 'V_xy_Hn__C__t', 4,5, myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('VTtave','units','degC*m/s',myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('VTtave','description',
     &     'Merid velocity and potential temp. t-ave product', myThid)

      CALL MNC_CW_ADD_VNAME('WTtave', 'Cen_xy_Hn__L__t', 4,5, myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('WTtave','units','degC*m/s',myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('WTtave','description',
     &     'Vert. velocity and potential temp. t-ave product', myThid)

      CALL MNC_CW_ADD_VNAME('UStave', 'U_xy_Hn__C__t', 4,5, myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('UStave','units','psu*m/s', myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('UStave','description',
     &     'Zonal velocity and Salinity t-ave product', myThid)

      CALL MNC_CW_ADD_VNAME('VStave', 'V_xy_Hn__C__t', 4,5, myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('VStave','units','psu*m/s', myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('VStave','description',
     &     'Merid velocity and Salinity t-ave product', myThid)

      CALL MNC_CW_ADD_VNAME('WStave', 'Cen_xy_Hn__L__t', 4,5, myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('WStave','units','psu*m/s', myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('WStave','description',
     &     'Vert velocity and Salinity t-ave product', myThid)

      CALL MNC_CW_ADD_VNAME('TTtave', 'Cen_xy_Hn__C__t', 4,5, myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('TTtave','units','degC^2', myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('TTtave','description',
     &     'Potl Temp Squared t-ave', myThid)

      CALL MNC_CW_ADD_VNAME('UUtave', 'U_xy_Hn__C__t', 4,5, myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('UUtave','units','m^2/s^2', myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('UUtave','description',
     &     'Zonal Vel. Squared t-ave', myThid)

      CALL MNC_CW_ADD_VNAME('VVtave', 'V_xy_Hn__C__t', 4,5, myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('VVtave','units','m^2/s^2', myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('VVtave','description',
     &     'Merid Vel. Squared t-ave', myThid)

      CALL MNC_CW_ADD_VNAME('UVtave', 'Cen_xy_Hn__C__t', 4,5, myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('UVtave','units','m^2/s^2', myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('UVtave','description',
     &     'Horiz. Vel. Product t-ave', myThid)

      CALL MNC_CW_ADD_VNAME('KEtave', 'Cen_xy_Hn__C__t', 4,5, myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('KEtave','units','m^2/s^2', myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('KEtave','description',
     &     'Kinetic Energy t-ave', myThid)

      CALL MNC_CW_ADD_VNAME('Tdiftave', 'Cen_xy_Hn__C__t',4,5,myThid)

      CALL MNC_CW_ADD_VNAME('uZtave', 'U_xy_Hn__C__t', 4,5, myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('uZtave','units','m/s^2', myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('uZtave','description',
     &     'Zonal Vel. and Rel. Vorticity Product t-ave', myThid)

      CALL MNC_CW_ADD_VNAME('vZtave', 'V_xy_Hn__C__t', 4,5, myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('vZtave','units','m/s^2', myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('vZtave','description',
     &     'Merid Vel. and Rel. Vorticity Product t-ave', myThid)

      CALL MNC_CW_ADD_VNAME('PhHytave', 'Cen_xy_Hn__C__t',4,5,myThid)

      CALL MNC_CW_ADD_VNAME('PHLtave', 'Cen_xy_Hn__-__t',3,4,myThid)
      CALL MNC_CW_ADD_VNAME('PHL2tave', 'Cen_xy_Hn__-__t',3,4,myThid)

      CALL MNC_CW_ADD_VNAME('Convtave', 'Cen_xy_Hn__C__t',4,5,myThid)
      CALL MNC_CW_ADD_VATTR_TEXT('Convtave','description',
     &     'Convection t-ave', myThid)

      CALL MNC_CW_ADD_VNAME('uFluxtave', 'Cen_xy_Hn__-__t',3,4,myThid)
      CALL MNC_CW_ADD_VNAME('vFluxtave', 'Cen_xy_Hn__-__t',3,4,myThid)
      CALL MNC_CW_ADD_VNAME('tFluxtave', 'Cen_xy_Hn__-__t',3,4,myThid)
      CALL MNC_CW_ADD_VNAME('sFluxtave', 'Cen_xy_Hn__-__t',3,4,myThid)

      CALL MNC_CW_ADD_VNAME('hUtave', 'U_xy_Hn__C__t',4,5,myThid)
      CALL MNC_CW_ADD_VNAME('hVtave', 'V_xy_Hn__C__t',4,5,myThid)
      CALL MNC_CW_ADD_VNAME('hFacCtave', 'Cen_xy_Hn__C__t',4,5,myThid)
      CALL MNC_CW_ADD_VNAME('hFacWtave', 'U_xy_Hn__C__t',4,5,myThid)
      CALL MNC_CW_ADD_VNAME('hFacStave', 'V_xy_Hn__C__t',4,5,myThid)

      ENDIF
#endif /* ALLOW_MNC */

#endif /* ALLOW_TIMEAVE */

      RETURN
      END