pkg/mypackage/mypackage_mnc_init.F

0dc94a8572 Patr*0001 #include "MYPACKAGE_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
64811cb024 Jean*0004 CBOP
0dc94a8572 Patr*0005 C     !ROUTINE: MYPACKAGE_MNC_INIT
                0006
                0007 C     !INTERFACE:
                0008       SUBROUTINE MYPACKAGE_MNC_INIT( myThid )
                0009
                0010 C     !DESCRIPTION:
                0011 C     Initialize MNC lookup tables for Mypackage.
                0012
                0013 C     !USES:
                0014       IMPLICIT NONE
64811cb024 Jean*0015 C     == Global variables ===
0dc94a8572 Patr*0016 #include "SIZE.h"
                0017 #include "EEPARAMS.h"
                0018 #include "PARAMS.h"
                0019 #include "MYPACKAGE.h"
                0020
                0021 C     !INPUT PARAMETERS:
                0022       INTEGER myThid
                0023 CEOP
                0024
                0025 #ifdef ALLOW_MNC
                0026
                0027       IF (useMNC) THEN
                0028
5b141690f8 Jean*0029         CALL MNC_CW_ADD_VNAME('myPa_StatScal1',
0dc94a8572 Patr*0030      &      'Cen_xy_Hn__L__t', 4,5,myThid)
5b141690f8 Jean*0031         CALL MNC_CW_ADD_VATTR_TEXT('myPa_StatScal1',
0dc94a8572 Patr*0032      &      'units','[unit]', myThid)
5b141690f8 Jean*0033         CALL MNC_CW_ADD_VATTR_TEXT('myPa_StatScal1','description',
                0034      &      'scalar state variable myPa_StatScal1',myThid)
0dc94a8572 Patr*0035
5b141690f8 Jean*0036         CALL MNC_CW_ADD_VNAME('myPa_StatScal2',
0dc94a8572 Patr*0037      &      'Cen_xy_Hn__L__t', 4,5,myThid)
5b141690f8 Jean*0038         CALL MNC_CW_ADD_VATTR_TEXT('myPa_StatScal2',
0dc94a8572 Patr*0039      &      'units','[unit]', myThid)
5b141690f8 Jean*0040         CALL MNC_CW_ADD_VATTR_TEXT('myPa_StatScal2','description',
                0041      &      'scalar state variable myPa_StatScal2',myThid)
0dc94a8572 Patr*0042
5b141690f8 Jean*0043         CALL MNC_CW_ADD_VNAME('myPa_StatVelU',
0dc94a8572 Patr*0044      &      'U_xy_Hn__C__t', 4,5,myThid)
5b141690f8 Jean*0045         CALL MNC_CW_ADD_VATTR_TEXT('myPa_StatVelU',
0dc94a8572 Patr*0046      &      'units','[unit]', myThid)
5b141690f8 Jean*0047         CALL MNC_CW_ADD_VATTR_TEXT('myPa_StatVelU','description',
                0048      &       'uVel-type state variable myPa_StatVelU',myThid)
0dc94a8572 Patr*0049
5b141690f8 Jean*0050         CALL MNC_CW_ADD_VNAME('myPa_StatVelV',
0dc94a8572 Patr*0051      &      'V_xy_Hn__C__t', 4,5,myThid)
5b141690f8 Jean*0052         CALL MNC_CW_ADD_VATTR_TEXT('myPa_StatVelV',
0dc94a8572 Patr*0053      &      'units','[unit]', myThid)
5b141690f8 Jean*0054         CALL MNC_CW_ADD_VATTR_TEXT('myPa_StatVelV','description',
                0055      &       'vVel-type state variable myPa_StatVelV',myThid)
0dc94a8572 Patr*0056
5b141690f8 Jean*0057         CALL MNC_CW_ADD_VNAME('myPa_Surf1',
0dc94a8572 Patr*0058      &      'Cen_xy_Hn__-__t', 3,4,myThid)
5b141690f8 Jean*0059         CALL MNC_CW_ADD_VATTR_TEXT('myPa_Surf1',
0dc94a8572 Patr*0060      &      'units','[unit]', myThid)
5b141690f8 Jean*0061         CALL MNC_CW_ADD_VATTR_TEXT('myPa_Surf1','description',
                0062      &       'Surface scalar field myPa_Surf1',myThid)
0dc94a8572 Patr*0063
5b141690f8 Jean*0064         CALL MNC_CW_ADD_VNAME('myPa_Surf2',
0dc94a8572 Patr*0065      &      'Cen_xy_Hn__-__t', 3,4,myThid)
5b141690f8 Jean*0066         CALL MNC_CW_ADD_VATTR_TEXT('myPa_Surf2',
0dc94a8572 Patr*0067      &      'units','[unit]', myThid)
5b141690f8 Jean*0068         CALL MNC_CW_ADD_VATTR_TEXT('myPa_Surf2','description',
                0069      &       'Surface scalar field myPa_Surf2',myThid)
0dc94a8572 Patr*0070
                0071       ENDIF
                0072
                0073 #endif /* ALLOW_MNC */
                0074
                0075       RETURN
                0076       END