C $Header: /u/gcmpack/MITgcm/pkg/layers/layers_mnc_init.F,v 1.1 2009/09/16 21:25:47 rpa Exp $
C $Name:  $

#include "LAYERS_OPTIONS.h"

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|

      SUBROUTINE LAYERS_MNC_INIT( myThid )

C     Initialize MNC lookup tables for LAYERS.

      IMPLICIT NONE
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "LAYERS_SIZE.h"
#include "LAYERS.h"

C     !INPUT PARAMETERS:
      INTEGER myThid
CEOP

#ifdef ALLOW_LAYERS
#ifdef ALLOW_MNC

      IF (useMNC) THEN

C--     Need to figure out how to create new grids. We need
C           'U_xy_Hn__G__t'
C           'V_xy_Hn__G__t'

        CALL MNC_CW_ADD_VNAME('UFlux','U_xy_Hn__G__t', 4,5,myThid)
        CALL MNC_CW_ADD_VATTR_TEXT('UFlux','units','m^2/s', myThid)
        CALL MNC_CW_ADD_VATTR_TEXT('UFlux','description',
     &       'Eastward Velocity Integrated Over Isopycnal Layer',
     &       myThid)

        CALL MNC_CW_ADD_VNAME('VFlux','V_xy_Hn__G__t', 4,5,myThid)
        CALL MNC_CW_ADD_VATTR_TEXT('VFlux','units','m^2/s', myThid)
        CALL MNC_CW_ADD_VATTR_TEXT('VFlux','description',
     &       'Northward Velocity Integrated Over Isopycnal Layer',
     &       myThid)


      ENDIF

#endif /* ALLOW_MNC */
#endif /* ALLOW_GMREDI */

      RETURN
      END

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|