pkg/autodiff/AUTODIFF.h

C $Header: /u/gcmpack/MITgcm/pkg/autodiff/AUTODIFF.h,v 1.5 2009/06/02 16:10:31 heimbach Exp $
C $Name:  $

      integer ilev_1
      integer ilev_2
      integer ilev_3
      integer ilev_4
      integer max_lev2
      integer max_lev3
      integer max_lev4
      integer NDV3D, NDV2D, NEXF1, NEXF2, NCTRL1, NOB, NSI
      PARAMETER (NDV3D  = 12)
      PARAMETER (NDV2D  = 23)
      PARAMETER (NEXF1  = 21)
      PARAMETER (NEXF2  = 18)
      PARAMETER (NCTRL1 = 18)
      PARAMETER (NOB = 18)
      PARAMETER (NSI = 19)      
      _RL StoreDynVars3D
     &    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,NDV3D)
      _RL StoreDynVars2D
     &    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,NDV2D)
      _RL StoreEXF1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,NEXF1)
      _RL StoreEXF2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,NEXF2)
      _RL StoreCTRLS1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,NCTRL1)
      _RL StoreOBCSN(1-Olx:sNx+Olx,Nr,nSx,nSy,NOB)
      _RL StoreOBCSS(1-Olx:sNx+Olx,Nr,nSx,nSy,NOB)
      _RL StoreOBCSE(1-OLy:sNy+OLy,Nr,nSx,nSy,NOB)
      _RL StoreOBCSW(1-OLy:sNy+OLy,Nr,nSx,nSy,NOB)
      _RL StoreSEAICE(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,NSI)

      COMMON /AUTODIFF_STORE_DYN/
     &       StoreDynVars3D,
     &       StoreDynVars2D
      COMMON /AUTODIFF_STORE_EXF_FLUX/
     &       StoreEXF1
      COMMON /AUTODIFF_STORE_EXF_ATMOS/
     &       StoreEXF2
      COMMON /AUTODIFF_STORE_CTRL/
     &       StoreCTRLS1
      COMMON /AUTODIFF_STORE_OBCSN/
     &       StoreOBCSN
      COMMON /AUTODIFF_STORE_OBCSS/
     &       StoreOBCSS
      COMMON /AUTODIFF_STORE_OBCSE/
     &       StoreOBCSE
      COMMON /AUTODIFF_STORE_OBCSW/
     &       StoreOBCSW
      COMMON /AUTODIFF_STORE_SEAICE/
     &       StoreSEAICE

1	heimbach	1.6	C $Header: /u/gcmpack/MITgcm/pkg/autodiff/AUTODIFF.h,v 1.5 2009/06/02 16:10:31 heimbach Exp $
2	jmc	1.4	C $Name: $
3	heimbach	1.1
4			integer ilev_1
5			integer ilev_2
6			integer ilev_3
7			integer ilev_4
8			integer max_lev2
9			integer max_lev3
10			integer max_lev4
11			integer NDV3D, NDV2D, NEXF1, NEXF2, NCTRL1, NOB, NSI
12	heimbach	1.2	PARAMETER (NDV3D = 12)
13			PARAMETER (NDV2D = 23)
14			PARAMETER (NEXF1 = 21)
15			PARAMETER (NEXF2 = 18)
16	heimbach	1.1	PARAMETER (NCTRL1 = 18)
17			PARAMETER (NOB = 18)
18	heimbach	1.6	PARAMETER (NSI = 19)
19	heimbach	1.1	_RL StoreDynVars3D
20			& (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,NDV3D)
21			_RL StoreDynVars2D
22			& (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,NDV2D)
23			_RL StoreEXF1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,NEXF1)
24			_RL StoreEXF2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,NEXF2)
25			_RL StoreCTRLS1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,NCTRL1)
26			_RL StoreOBCSN(1-Olx:sNx+Olx,Nr,nSx,nSy,NOB)
27			_RL StoreOBCSS(1-Olx:sNx+Olx,Nr,nSx,nSy,NOB)
28			_RL StoreOBCSE(1-OLy:sNy+OLy,Nr,nSx,nSy,NOB)
29			_RL StoreOBCSW(1-OLy:sNy+OLy,Nr,nSx,nSy,NOB)
30			_RL StoreSEAICE(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,NSI)
31
32			COMMON /AUTODIFF_STORE_DYN/
33			& StoreDynVars3D,
34			& StoreDynVars2D
35			COMMON /AUTODIFF_STORE_EXF_FLUX/
36			& StoreEXF1
37			COMMON /AUTODIFF_STORE_EXF_ATMOS/
38			& StoreEXF2
39			COMMON /AUTODIFF_STORE_CTRL/
40			& StoreCTRLS1
41			COMMON /AUTODIFF_STORE_OBCSN/
42			& StoreOBCSN
43			COMMON /AUTODIFF_STORE_OBCSS/
44			& StoreOBCSS
45			COMMON /AUTODIFF_STORE_OBCSE/
46			& StoreOBCSE
47			COMMON /AUTODIFF_STORE_OBCSW/
48			& StoreOBCSW
49			COMMON /AUTODIFF_STORE_SEAICE/
50			& StoreSEAICE
51