C $Header: /u/gcmpack/MITgcm/pkg/autodiff/AUTODIFF.h,v 1.16 2017/02/18 19:39:50 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 = 14) #else PARAMETER (NDV3D = 10) #endif PARAMETER (NDV2D = 23) PARAMETER (NEXF1 = 23) PARAMETER (NEXF2 = 24) PARAMETER (NCTRL1 = 20) PARAMETER (NOB = 20) 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