pkg/autodiff/AUTODIFF_STORE.h

c0cdc046f2 Mart*0001 C---  Fields need in autodiff_store.F and autodiff_restore.F
                0002
3c775cbf98 Mart*0003 #ifdef AUTODIFF_USE_STORE_RESTORE
                0004       INTEGER NDV3D
                0005 # ifdef ALLOW_ADAMSBASHFORTH_3
c0cdc046f2 Mart*0006       PARAMETER (NDV3D  = 14)
3c775cbf98 Mart*0007 # else
c0cdc046f2 Mart*0008       PARAMETER (NDV3D  = 10)
3c775cbf98 Mart*0009 # endif
c0cdc046f2 Mart*0010       _RL StoreDynVars3D
                0011      &    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,NDV3D)
3c775cbf98 Mart*0012       COMMON /AUTODIFF_STORE_DYN3D/ StoreDynVars3D
                0013
                0014       INTEGER NDV2D
                0015       PARAMETER (NDV2D  = 22)
c0cdc046f2 Mart*0016       _RL StoreDynVars2D
                0017      &    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,NDV2D)
3c775cbf98 Mart*0018       COMMON /AUTODIFF_STORE_DYN2D/ StoreDynVars2D
c0cdc046f2 Mart*0019
3c775cbf98 Mart*0020 # ifdef ALLOW_EXF
c0cdc046f2 Mart*0021       INTEGER NEXF1, NEXF2
                0022       PARAMETER (NEXF1  = 23)
                0023       PARAMETER (NEXF2  = 24)
                0024       _RL StoreEXF1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,NEXF1)
                0025       COMMON /AUTODIFF_STORE_EXF_FLUX/
                0026      &       StoreEXF1
                0027       _RL StoreEXF2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,NEXF2)
                0028       COMMON /AUTODIFF_STORE_EXF_ATMOS/
                0029      &       StoreEXF2
                0030
3c775cbf98 Mart*0031       INTEGER NCTRL1
                0032       PARAMETER (NCTRL1 = 20)
                0033       _RL StoreCTRLS1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,NCTRL1)
                0034       COMMON /AUTODIFF_STORE_CTRL/
                0035      &       StoreCTRLS1
                0036 # endif
                0037
                0038 # ifdef ALLOW_SEAICE
                0039       INTEGER NSI
                0040       PARAMETER (NSI = 16+nITD)
                0041       _RL StoreSEAICE(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,NSI)
                0042       COMMON /AUTODIFF_STORE_SEAICE/
                0043      &       StoreSEAICE
                0044 # endif
                0045 #endif /* AUTODIFF_USE_STORE_RESTORE */
                0046
                0047 #if ( defined ALLOW_OBCS && defined AUTODIFF_USE_STORE_RESTORE_OBCS )
c0cdc046f2 Mart*0048       INTEGER NOB
                0049       PARAMETER (NOB = 20)
                0050       _RL StoreOBCSN(1-OLx:sNx+OLx,Nr,nSx,nSy,NOB)
                0051       COMMON /AUTODIFF_STORE_OBCSN/
                0052      &       StoreOBCSN
                0053       _RL StoreOBCSS(1-OLx:sNx+OLx,Nr,nSx,nSy,NOB)
                0054       COMMON /AUTODIFF_STORE_OBCSS/
                0055      &       StoreOBCSS
                0056       _RL StoreOBCSE(1-OLy:sNy+OLy,Nr,nSx,nSy,NOB)
                0057       COMMON /AUTODIFF_STORE_OBCSE/
                0058      &       StoreOBCSE
                0059       _RL StoreOBCSW(1-OLy:sNy+OLy,Nr,nSx,nSy,NOB)
                0060       COMMON /AUTODIFF_STORE_OBCSW/
                0061      &       StoreOBCSW
                0062 #endif