pkg/mypackage/MYPACKAGE.h

64811cb024 Jean*0001 CBOP
                0002 C     !ROUTINE: MYPACKAGE.h
                0003 C     !INTERFACE:
                0004 C     #include "MYPACKAGE.h"
                0005
                0006 C     !DESCRIPTION:
                0007 C     *================================================================*
                0008 C     | MYPACKAGE.h
                0009 C     | o Header file defining "mypackage" parameters and variables
                0010 C     *================================================================*
                0011 CEOP
0dc94a8572 Patr*0012
                0013 C     Package flag
5b141690f8 Jean*0014       LOGICAL myPa_MNC
                0015       LOGICAL myPa_MDSIO
                0016       COMMON /MYPA_PACKAGE/
                0017      &                     myPa_MNC, myPa_MDSIO
0dc94a8572 Patr*0018
                0019 C     MYPA parameters
5b141690f8 Jean*0020       LOGICAL myPa_StaV_Cgrid
                0021       LOGICAL myPa_Tend_Cgrid
                0022       LOGICAL myPa_applyTendT
                0023       LOGICAL myPa_applyTendS
                0024       LOGICAL myPa_applyTendU
                0025       LOGICAL myPa_applyTendV
0dc94a8572 Patr*0026
5b141690f8 Jean*0027 C-    additional parameters:
                0028       LOGICAL myPa_doSwitch1
                0029       LOGICAL myPa_doSwitch2
                0030       INTEGER myPa_index1
                0031       INTEGER myPa_index2
                0032       _RL myPa_param1
                0033       _RL myPa_param2
                0034       CHARACTER*(MAX_LEN_FNAM) myPa_string1
                0035       CHARACTER*(MAX_LEN_FNAM) myPa_string2
0dc94a8572 Patr*0036
5b141690f8 Jean*0037 C-    file names for initial conditions:
                0038       CHARACTER*(MAX_LEN_FNAM) myPa_Scal1File
                0039       CHARACTER*(MAX_LEN_FNAM) myPa_Scal2File
                0040       CHARACTER*(MAX_LEN_FNAM) myPa_VelUFile
                0041       CHARACTER*(MAX_LEN_FNAM) myPa_VelVFile
                0042       CHARACTER*(MAX_LEN_FNAM) myPa_Surf1File
                0043       CHARACTER*(MAX_LEN_FNAM) myPa_Surf2File
0dc94a8572 Patr*0044
5b141690f8 Jean*0045       COMMON /MYPA_PARAMS_L/
                0046      &       myPa_StaV_Cgrid, myPa_Tend_Cgrid,
                0047      &       myPa_applyTendT, myPa_applyTendS,
                0048      &       myPa_applyTendU, myPa_applyTendV,
                0049      &       myPa_doSwitch1, myPa_doSwitch2
                0050       COMMON /MYPA_PARAMS_I/ myPa_index1, myPa_index2
                0051       COMMON /MYPA_PARAMS_R/ myPa_param1, myPa_param2
                0052       COMMON /MYPA_PARAMS_C/ myPa_string1, myPa_string2,
                0053      &       myPa_Scal1File, myPa_Scal2File,
                0054      &       myPa_VelUFile,  myPa_VelVFile,
                0055      &       myPa_Surf1File, myPa_Surf2File
0dc94a8572 Patr*0056
5b141690f8 Jean*0057 #ifdef MYPACKAGE_3D_STATE
                0058 C     MYPA 3-dim. fields
                0059       _RL myPa_StatScal1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0060       _RL myPa_StatScal2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
64811cb024 Jean*0061       _RL myPa_StatVelU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0062       _RL myPa_StatVelV (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
5b141690f8 Jean*0063       COMMON /MYPA_STATE_3D/
                0064      &    myPa_StatScal1, myPa_StatScal2,
                0065      &    myPa_StatVelU,  myPa_StatVelV
                0066 #endif /* MYPACKAGE_3D_STATE */
                0067 #ifdef MYPACKAGE_2D_STATE
0dc94a8572 Patr*0068 C     MYPA 2-dim. fields
5b141690f8 Jean*0069       _RL myPa_Surf1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0070       _RL myPa_Surf2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0071       COMMON /MYPA_STATE_2D/
                0072      &    myPa_Surf1, myPa_Surf2
                0073 #endif /* MYPACKAGE_2D_STATE */
0dc94a8572 Patr*0074
5b141690f8 Jean*0075 #ifdef MYPACKAGE_TENDENCY
                0076       _RL myPa_TendScal1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0077       _RL myPa_TendScal2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
64811cb024 Jean*0078       _RL myPa_TendVelU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0079       _RL myPa_TendVelV (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
5b141690f8 Jean*0080       COMMON /MYPA_TENDENCY/
                0081      &    myPa_TendScal1, mypa_TendScal2,
                0082      &    myPa_TendVelU,  mypa_TendVelV
                0083 #endif /* MYPACKAGE_TENDENCY */
0dc94a8572 Patr*0084
64811cb024 Jean*0085 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|