rpa_layers/layers/layers_mnc_init.F

#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-|--+----|
1	#include "LAYERS_OPTIONS.h"
2
3	C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
4
5	SUBROUTINE LAYERS_MNC_INIT( myThid )
6
7	C Initialize MNC lookup tables for LAYERS.
8
9	IMPLICIT NONE
10	#include "SIZE.h"
11	#include "EEPARAMS.h"
12	#include "PARAMS.h"
13	#include "LAYERS_SIZE.h"
14	#include "LAYERS.h"
15
16	C !INPUT PARAMETERS:
17	INTEGER myThid
18	CEOP
19
20	#ifdef ALLOW_LAYERS
21	#ifdef ALLOW_MNC
22
23	IF (useMNC) THEN
24
25	C-- Need to figure out how to create new grids. We need
26	C 'U_xy_Hn__G__t'
27	C 'V_xy_Hn__G__t'
28
29	CALL MNC_CW_ADD_VNAME('UFlux','U_xy_Hn__G__t', 4,5,myThid)
30	CALL MNC_CW_ADD_VATTR_TEXT('UFlux','units','m^2/s', myThid)
31	CALL MNC_CW_ADD_VATTR_TEXT('UFlux','description',
32	& 'Eastward Velocity Integrated Over Isopycnal Layer',
33	& myThid)
34
35	CALL MNC_CW_ADD_VNAME('VFlux','V_xy_Hn__G__t', 4,5,myThid)
36	CALL MNC_CW_ADD_VATTR_TEXT('VFlux','units','m^2/s', myThid)
37	CALL MNC_CW_ADD_VATTR_TEXT('VFlux','description',
38	& 'Northward Velocity Integrated Over Isopycnal Layer',
39	& myThid)
40
41
42	ENDIF
43
44	#endif /* ALLOW_MNC */
45	#endif /* ALLOW_GMREDI */
46
47	RETURN
48	END
49
50	C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|