pkg/autodiff/AUTODIFF.h

C $Header: /u/gcmpack/MITgcm/pkg/autodiff/AUTODIFF.h,v 1.6 2009/06/24 20:09:08 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
#ifdef ALLOW_ADAMSBASHFORTH_3
      PARAMETER (NDV3D  = 16)
#else
      PARAMETER (NDV3D  = 12)
#endif
      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	gforget	1.7	C $Header: /u/gcmpack/MITgcm/pkg/autodiff/AUTODIFF.h,v 1.6 2009/06/24 20:09:08 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	gforget	1.7	#ifdef ALLOW_ADAMSBASHFORTH_3
13			PARAMETER (NDV3D = 16)
14			#else
15	heimbach	1.2	PARAMETER (NDV3D = 12)
16	gforget	1.7	#endif
17	heimbach	1.2	PARAMETER (NDV2D = 23)
18			PARAMETER (NEXF1 = 21)
19			PARAMETER (NEXF2 = 18)
20	heimbach	1.1	PARAMETER (NCTRL1 = 18)
21			PARAMETER (NOB = 18)
22	heimbach	1.6	PARAMETER (NSI = 19)
23	heimbach	1.1	_RL StoreDynVars3D
24			& (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,NDV3D)
25			_RL StoreDynVars2D
26			& (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,NDV2D)
27			_RL StoreEXF1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,NEXF1)
28			_RL StoreEXF2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,NEXF2)
29			_RL StoreCTRLS1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,NCTRL1)
30			_RL StoreOBCSN(1-Olx:sNx+Olx,Nr,nSx,nSy,NOB)
31			_RL StoreOBCSS(1-Olx:sNx+Olx,Nr,nSx,nSy,NOB)
32			_RL StoreOBCSE(1-OLy:sNy+OLy,Nr,nSx,nSy,NOB)
33			_RL StoreOBCSW(1-OLy:sNy+OLy,Nr,nSx,nSy,NOB)
34			_RL StoreSEAICE(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,NSI)
35
36			COMMON /AUTODIFF_STORE_DYN/
37			& StoreDynVars3D,
38			& StoreDynVars2D
39			COMMON /AUTODIFF_STORE_EXF_FLUX/
40			& StoreEXF1
41			COMMON /AUTODIFF_STORE_EXF_ATMOS/
42			& StoreEXF2
43			COMMON /AUTODIFF_STORE_CTRL/
44			& StoreCTRLS1
45			COMMON /AUTODIFF_STORE_OBCSN/
46			& StoreOBCSN
47			COMMON /AUTODIFF_STORE_OBCSS/
48			& StoreOBCSS
49			COMMON /AUTODIFF_STORE_OBCSE/
50			& StoreOBCSE
51			COMMON /AUTODIFF_STORE_OBCSW/
52			& StoreOBCSW
53			COMMON /AUTODIFF_STORE_SEAICE/
54			& StoreSEAICE
55