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	rpa	1.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-\|--+----\|