pkg/autodiff/AUTODIFF.h

C $Header: /u/gcmpack/MITgcm/pkg/autodiff/AUTODIFF.h,v 1.11 2011/01/21 01:19:03 gforget Exp $
C $Name:  $

#ifdef ALLOW_AUTODIFF_WHTAPEIO
      COMMON /AUTODIFF_WHTAPEIO_I/
     &  tapeFileCounter, tapeMaxCounter, tapeFileUnit, tapeFileUnitS
      integer tapeFileCounter, tapeMaxCounter
      integer tapeFileUnit, tapeFileUnitS(4)
      COMMON /AUTODIFF_WHTAPEIO_L/ 
     &  tapeConcatIO, tapeSingleCpuIO, tapeBufferIO
      logical tapeConcatIO, tapeSingleCpuIO, tapeBufferIO
#endif

c ad dump record number (used only if dumpAdByRec is true)
      integer dumpAdRecMn
      integer dumpAdRecDy
      integer dumpAdRecSi
      COMMON /AUTODIFF_DUMP_AD_REC/ 
     &       dumpAdRecMn, dumpAdRecDy, dumpAdRecSi

      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  = 20)
      PARAMETER (NCTRL1 = 20)
      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	C $Header: /u/gcmpack/MITgcm/pkg/autodiff/AUTODIFF.h,v 1.11 2011/01/21 01:19:03 gforget Exp $
2	C $Name: $
3
4	#ifdef ALLOW_AUTODIFF_WHTAPEIO
5	COMMON /AUTODIFF_WHTAPEIO_I/
6	& tapeFileCounter, tapeMaxCounter, tapeFileUnit, tapeFileUnitS
7	integer tapeFileCounter, tapeMaxCounter
8	integer tapeFileUnit, tapeFileUnitS(4)
9	COMMON /AUTODIFF_WHTAPEIO_L/
10	& tapeConcatIO, tapeSingleCpuIO, tapeBufferIO
11	logical tapeConcatIO, tapeSingleCpuIO, tapeBufferIO
12	#endif
13
14	c ad dump record number (used only if dumpAdByRec is true)
15	integer dumpAdRecMn
16	integer dumpAdRecDy
17	integer dumpAdRecSi
18	COMMON /AUTODIFF_DUMP_AD_REC/
19	& dumpAdRecMn, dumpAdRecDy, dumpAdRecSi
20
21	integer ilev_1
22	integer ilev_2
23	integer ilev_3
24	integer ilev_4
25	integer max_lev2
26	integer max_lev3
27	integer max_lev4
28	integer NDV3D, NDV2D, NEXF1, NEXF2, NCTRL1, NOB, NSI
29	#ifdef ALLOW_ADAMSBASHFORTH_3
30	PARAMETER (NDV3D = 16)
31	#else
32	PARAMETER (NDV3D = 12)
33	#endif
34	PARAMETER (NDV2D = 23)
35	PARAMETER (NEXF1 = 21)
36	PARAMETER (NEXF2 = 20)
37	PARAMETER (NCTRL1 = 20)
38	PARAMETER (NOB = 18)
39	PARAMETER (NSI = 19)
40	_RL StoreDynVars3D
41	& (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,NDV3D)
42	_RL StoreDynVars2D
43	& (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,NDV2D)
44	_RL StoreEXF1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,NEXF1)
45	_RL StoreEXF2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,NEXF2)
46	_RL StoreCTRLS1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,NCTRL1)
47	_RL StoreOBCSN(1-Olx:sNx+Olx,Nr,nSx,nSy,NOB)
48	_RL StoreOBCSS(1-Olx:sNx+Olx,Nr,nSx,nSy,NOB)
49	_RL StoreOBCSE(1-OLy:sNy+OLy,Nr,nSx,nSy,NOB)
50	_RL StoreOBCSW(1-OLy:sNy+OLy,Nr,nSx,nSy,NOB)
51	_RL StoreSEAICE(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,NSI)
52
53	COMMON /AUTODIFF_STORE_DYN/
54	& StoreDynVars3D,
55	& StoreDynVars2D
56	COMMON /AUTODIFF_STORE_EXF_FLUX/
57	& StoreEXF1
58	COMMON /AUTODIFF_STORE_EXF_ATMOS/
59	& StoreEXF2
60	COMMON /AUTODIFF_STORE_CTRL/
61	& StoreCTRLS1
62	COMMON /AUTODIFF_STORE_OBCSN/
63	& StoreOBCSN
64	COMMON /AUTODIFF_STORE_OBCSS/
65	& StoreOBCSS
66	COMMON /AUTODIFF_STORE_OBCSE/
67	& StoreOBCSE
68	COMMON /AUTODIFF_STORE_OBCSW/
69	& StoreOBCSW
70	COMMON /AUTODIFF_STORE_SEAICE/
71	& StoreSEAICE
72