C $Header: /u/gcmpack/MITgcm/pkg/mypackage/MYPACKAGE.h,v 1.2 2008/01/27 20:52:11 jmc Exp $
C $Name:  $

#ifdef ALLOW_MYPACKAGE

C     Package flag
      LOGICAL myPa_MNC
      LOGICAL myPa_MDSIO
      COMMON /MYPA_PACKAGE/
     &                     myPa_MNC, myPa_MDSIO

C     MYPA parameters
      LOGICAL myPa_StaV_Cgrid
      LOGICAL myPa_Tend_Cgrid
      LOGICAL myPa_applyTendT
      LOGICAL myPa_applyTendS
      LOGICAL myPa_applyTendU
      LOGICAL myPa_applyTendV

C-    additional parameters:
      LOGICAL myPa_doSwitch1
      LOGICAL myPa_doSwitch2
      INTEGER myPa_index1
      INTEGER myPa_index2
      _RL myPa_param1
      _RL myPa_param2
      CHARACTER*(MAX_LEN_FNAM) myPa_string1
      CHARACTER*(MAX_LEN_FNAM) myPa_string2

C-    file names for initial conditions:
      CHARACTER*(MAX_LEN_FNAM) myPa_Scal1File
      CHARACTER*(MAX_LEN_FNAM) myPa_Scal2File
      CHARACTER*(MAX_LEN_FNAM) myPa_VelUFile
      CHARACTER*(MAX_LEN_FNAM) myPa_VelVFile
      CHARACTER*(MAX_LEN_FNAM) myPa_Surf1File
      CHARACTER*(MAX_LEN_FNAM) myPa_Surf2File

      COMMON /MYPA_PARAMS_L/
     &       myPa_StaV_Cgrid, myPa_Tend_Cgrid,
     &       myPa_applyTendT, myPa_applyTendS,
     &       myPa_applyTendU, myPa_applyTendV,
     &       myPa_doSwitch1, myPa_doSwitch2
      COMMON /MYPA_PARAMS_I/ myPa_index1, myPa_index2
      COMMON /MYPA_PARAMS_R/ myPa_param1, myPa_param2
      COMMON /MYPA_PARAMS_C/ myPa_string1, myPa_string2,
     &       myPa_Scal1File, myPa_Scal2File,
     &       myPa_VelUFile,  myPa_VelVFile,
     &       myPa_Surf1File, myPa_Surf2File

#ifdef MYPACKAGE_3D_STATE
C     MYPA 3-dim. fields
      _RL myPa_StatScal1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL myPa_StatScal2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL myPa_StatVelU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL myPa_StatVelV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      COMMON /MYPA_STATE_3D/
     &    myPa_StatScal1, myPa_StatScal2,
     &    myPa_StatVelU,  myPa_StatVelV
#endif /* MYPACKAGE_3D_STATE */
#ifdef MYPACKAGE_2D_STATE
C     MYPA 2-dim. fields
      _RL myPa_Surf1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL myPa_Surf2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      COMMON /MYPA_STATE_2D/
     &    myPa_Surf1, myPa_Surf2
#endif /* MYPACKAGE_2D_STATE */

#ifdef MYPACKAGE_TENDENCY
      _RL myPa_TendScal1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL myPa_TendScal2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL myPa_TendVelU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL myPa_TendVelV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      COMMON /MYPA_TENDENCY/
     &    myPa_TendScal1, mypa_TendScal2,
     &    myPa_TendVelU,  mypa_TendVelV
#endif /* MYPACKAGE_TENDENCY */

#endif /* ALLOW_MYPACKAGE */

CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***