pkg/layers/layers_mnc_init.F

108a00eab9 Ryan*0001 #include "LAYERS_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004
                0005       SUBROUTINE LAYERS_MNC_INIT( myThid )
                0006
                0007 C     Initialize MNC lookup tables for LAYERS.
                0008
                0009       IMPLICIT NONE
                0010 #include "SIZE.h"
                0011 #include "EEPARAMS.h"
                0012 #include "PARAMS.h"
                0013 #include "LAYERS_SIZE.h"
                0014 #include "LAYERS.h"
                0015
                0016 C     !INPUT PARAMETERS:
                0017       INTEGER myThid
                0018 CEOP
                0019
                0020 #ifdef ALLOW_LAYERS
                0021 #ifdef ALLOW_MNC
                0022
                0023       IF (useMNC) THEN
                0024
                0025 C--     Need to figure out how to create new grids. We need
                0026 C           'U_xy_Hn__G__t'
                0027 C           'V_xy_Hn__G__t'
                0028
                0029         CALL MNC_CW_ADD_VNAME('UFlux','U_xy_Hn__G__t', 4,5,myThid)
                0030         CALL MNC_CW_ADD_VATTR_TEXT('UFlux','units','m^2/s', myThid)
                0031         CALL MNC_CW_ADD_VATTR_TEXT('UFlux','description',
                0032      &       'Eastward Velocity Integrated Over Isopycnal Layer',
                0033      &       myThid)
                0034
                0035         CALL MNC_CW_ADD_VNAME('VFlux','V_xy_Hn__G__t', 4,5,myThid)
                0036         CALL MNC_CW_ADD_VATTR_TEXT('VFlux','units','m^2/s', myThid)
                0037         CALL MNC_CW_ADD_VATTR_TEXT('VFlux','description',
                0038      &       'Northward Velocity Integrated Over Isopycnal Layer',
                0039      &       myThid)
                0040
                0041
                0042       ENDIF
                0043
                0044 #endif /* ALLOW_MNC */
                0045 #endif /* ALLOW_GMREDI */
                0046
                0047       RETURN
                0048       END
                0049
                0050 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|