pkg/autodiff/check_lev1_dir_forcing.h

9c41af81f6 Timo*0001 C
                0002 C     store directives for checkpoint level 1 AFTER surface forcing
                0003 C     has been read
                0004 C
                0005 C     We store surface forcing fields --- if required --- to avoid
                0006 C     calling load_fields_driver in forward_step_ad.  Many of these
                0007 C     directives are only necessary in specific cases, for example with
                0008 C     pkg/seaice of pkg/shelfice, but since there are many potential
                0009 C     cases where these stores may become necessary, we just add them
                0010 C     here for all forcing fields under the sun. TAF will pick the
                0011 C     correct directives as they become necessary.
                0012 C
701e10a905 Mart*0013 CADJ STORE gcmSST     = comlev1, key = ikey_dynamics, kind = isbyte
9c41af81f6 Timo*0014 CADJ STORE sst        = comlev1, key = ikey_dynamics, kind = isbyte
                0015 CADJ STORE sss        = comlev1, key = ikey_dynamics, kind = isbyte
                0016 CADJ STORE qnet       = comlev1, key = ikey_dynamics, kind = isbyte
                0017 CADJ STORE empmr      = comlev1, key = ikey_dynamics, kind = isbyte
                0018 CADJ STORE saltflux   = comlev1, key = ikey_dynamics, kind = isbyte
                0019 CADJ STORE fu, fv     = comlev1, key = ikey_dynamics, kind = isbyte
                0020 # ifdef SHORTWAVE_HEATING
                0021 CADJ STORE qsw        = comlev1, key = ikey_dynamics, kind = isbyte
                0022 # endif
                0023 # ifdef ATMOSPHERIC_LOADING
                0024 CADJ STORE pload      = comlev1, key = ikey_dynamics, kind = isbyte
                0025 # endif
                0026 # ifdef ALLOW_EXF
                0027 CADJ STORE uwind      = comlev1, key = ikey_dynamics, kind = isbyte
                0028 CADJ STORE vwind      = comlev1, key = ikey_dynamics, kind = isbyte
                0029 CADJ STORE wspeed     = comlev1, key = ikey_dynamics, kind = isbyte
                0030 CADJ STORE sh         = comlev1, key = ikey_dynamics, kind = isbyte
                0031 CADJ STORE hflux      = comlev1, key = ikey_dynamics, kind = isbyte
                0032 CADJ STORE sflux      = comlev1, key = ikey_dynamics, kind = isbyte
                0033 CADJ STORE ustress    = comlev1, key = ikey_dynamics, kind = isbyte
                0034 CADJ STORE vstress    = comlev1, key = ikey_dynamics, kind = isbyte
                0035 #  ifdef ALLOW_ATM_TEMP
                0036 CADJ STORE atemp      = comlev1, key = ikey_dynamics, kind = isbyte
                0037 CADJ STORE aqh        = comlev1, key = ikey_dynamics, kind = isbyte
                0038 CADJ STORE hs         = comlev1, key = ikey_dynamics, kind = isbyte
                0039 CADJ STORE hl         = comlev1, key = ikey_dynamics, kind = isbyte
                0040 CADJ STORE lwflux     = comlev1, key = ikey_dynamics, kind = isbyte
                0041 CADJ STORE evap       = comlev1, key = ikey_dynamics, kind = isbyte
                0042 CADJ STORE precip     = comlev1, key = ikey_dynamics, kind = isbyte
                0043 CADJ STORE snowprecip = comlev1, key = ikey_dynamics, kind = isbyte
                0044 #   ifdef SHORTWAVE_HEATING
                0045 CADJ STORE swflux     = comlev1, key = ikey_dynamics, kind = isbyte
                0046 #   endif
                0047 #  endif
                0048 #  ifdef ALLOW_DOWNWARD_RADIATION
                0049 CADJ STORE swdown     = comlev1, key = ikey_dynamics, kind = isbyte
                0050 CADJ STORE lwdown     = comlev1, key = ikey_dynamics, kind = isbyte
                0051 #  endif
                0052 #  ifdef ATMOSPHERIC_LOADING
                0053 CADJ STORE apressure  = comlev1, key = ikey_dynamics, kind = isbyte
                0054 #  endif
                0055 #  ifdef ALLOW_RUNOFF
                0056 CADJ STORE runoff     = comlev1, key = ikey_dynamics, kind = isbyte
                0057 #  endif
                0058 #  ifdef ALLOW_RUNOFTEMP
                0059 CADJ STORE runoftemp  = comlev1, key = ikey_dynamics, kind = isbyte
                0060 #  endif
                0061 #ifdef ALLOW_SALTFLX
                0062 CADJ STORE saltflx    = comlev1, key = ikey_dynamics, kind = isbyte
                0063 #endif
                0064 #  ifdef EXF_SEAICE_FRACTION
3c775cbf98 Mart*0065 CADJ STORE exf_iceFraction=comlev1,key=ikey_dynamics, kind = isbyte
9c41af81f6 Timo*0066 #  endif
                0067 #  ifdef EXF_ALLOW_TIDES
                0068 CADJ STORE tidePot    = comlev1, key = ikey_dynamics, kind = isbyte
                0069 #  endif
                0070 #  ifdef ALLOW_CLIMSST_RELAXATION
                0071 CADJ STORE climsst    = comlev1, key = ikey_dynamics, kind = isbyte
                0072 #  endif
                0073 #  ifdef ALLOW_CLIMSSS_RELAXATION
                0074 CADJ STORE climsss    = comlev1, key = ikey_dynamics, kind = isbyte
                0075 #  endif
                0076 #  ifdef ALLOW_CLIMSTRESS_RELAXATION
                0077 CADJ STORE climustr   = comlev1, key = ikey_dynamics, kind = isbyte
                0078 CADJ STORE climvstr   = comlev1, key = ikey_dynamics, kind = isbyte
                0079 #  endif
                0080 # endif /* ALLOW_EXF */
                0081 #ifdef ALLOW_GEOTHERMAL_FLUX
                0082 CADJ STORE geothermalFlux = comlev1, key=ikey_dynamics, kind=isbyte
                0083 #endif
00f81e6785 Ou W*0084 #if ( defined ALLOW_SHELFICE || defined ALLOW_STEEP_ICECAVITY )
                0085 CADJ STORE addMass    = comlev1, key=ikey_dynamics, kind=isbyte
                0086 #endif
9c41af81f6 Timo*0087 # ifdef ALLOW_BLING
                0088 CADJ STORE wind       = comlev1, key = ikey_dynamics, kind = isbyte
                0089 CADJ STORE atmosP     = comlev1, key = ikey_dynamics, kind = isbyte
                0090 CADJ STORE silica     = comlev1, key = ikey_dynamics, kind = isbyte
                0091 CADJ STORE fIce       = comlev1, key = ikey_dynamics, kind = isbyte
a1d0e455fd Hann*0092 CADJ STORE inputFe    = comlev1, key = ikey_dynamics, kind = isbyte
9c41af81f6 Timo*0093 CADJ STORE apco2      = comlev1, key = ikey_dynamics, kind = isbyte
                0094 # endif /* ALLOW_BLING */
                0095 # ifdef ALLOW_DIC
                0096 CADJ STORE wind       = comlev1, key = ikey_dynamics, kind = isbyte
                0097 CADJ STORE atmosP     = comlev1, key = ikey_dynamics, kind = isbyte
a1d0e455fd Hann*0098 CADJ STORE silicaSurf = comlev1, key = ikey_dynamics, kind = isbyte
9c41af81f6 Timo*0099 CADJ STORE fIce       = comlev1, key = ikey_dynamics, kind = isbyte
a1d0e455fd Hann*0100 CADJ STORE inputFe    = comlev1, key = ikey_dynamics, kind = isbyte
9c41af81f6 Timo*0101 CADJ STORE PAR        = comlev1, key = ikey_dynamics, kind = isbyte
                0102 CADJ STORE CHL        = comlev1, key = ikey_dynamics, kind = isbyte
                0103 # endif /* ALLOW_DIC */
                0104 # ifdef ALLOW_CFC
                0105 CADJ STORE pisVel     = comlev1, key = ikey_dynamics, kind = isbyte
                0106 CADJ STORE atmosP     = comlev1, key = ikey_dynamics, kind = isbyte
                0107 CADJ STORE fIce       = comlev1, key = ikey_dynamics, kind = isbyte
                0108 # endif /* ALLOW_CFC */
                0109 # ifdef ALLOW_CTRL
                0110 #  ifdef ALLOW_GENTIM2D_CONTROL
                0111 C     in some cases this also requires storing the surface control
                0112 C     variables because they are used by packages, e.g. shelfice
                0113 CADJ STORE xx_gentim2d = comlev1, key = ikey_dynamics, kind = isbyte
                0114 #  else
                0115 C     there is no equivalent to xx_gentim2d for deprecated code so we just
                0116 C     omit it here
                0117 #  endif
                0118 # endif /* ALLOW_CTRL */