|
||||
File indexing completed on 2022-12-09 06:09:22 UTC
view on githubraw file Latest commit a1d0e455 on 2022-12-09 03:00:25 UTC9c41af81f6 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 0013 CADJ STORE sst = comlev1, key = ikey_dynamics, kind = isbyte 0014 CADJ STORE sss = comlev1, key = ikey_dynamics, kind = isbyte 0015 CADJ STORE qnet = comlev1, key = ikey_dynamics, kind = isbyte 0016 CADJ STORE empmr = comlev1, key = ikey_dynamics, kind = isbyte 0017 CADJ STORE saltflux = comlev1, key = ikey_dynamics, kind = isbyte 0018 CADJ STORE fu, fv = comlev1, key = ikey_dynamics, kind = isbyte 0019 # ifdef SHORTWAVE_HEATING 0020 CADJ STORE qsw = comlev1, key = ikey_dynamics, kind = isbyte 0021 # endif 0022 # ifdef ATMOSPHERIC_LOADING 0023 CADJ STORE pload = comlev1, key = ikey_dynamics, kind = isbyte 0024 # endif 0025 # ifdef ALLOW_EXF 0026 CADJ STORE uwind = comlev1, key = ikey_dynamics, kind = isbyte 0027 CADJ STORE vwind = comlev1, key = ikey_dynamics, kind = isbyte 0028 CADJ STORE wspeed = comlev1, key = ikey_dynamics, kind = isbyte 0029 CADJ STORE sh = comlev1, key = ikey_dynamics, kind = isbyte 0030 CADJ STORE hflux = comlev1, key = ikey_dynamics, kind = isbyte 0031 CADJ STORE sflux = comlev1, key = ikey_dynamics, kind = isbyte 0032 CADJ STORE ustress = comlev1, key = ikey_dynamics, kind = isbyte 0033 CADJ STORE vstress = comlev1, key = ikey_dynamics, kind = isbyte 0034 # ifdef ALLOW_ATM_TEMP 0035 CADJ STORE atemp = comlev1, key = ikey_dynamics, kind = isbyte 0036 CADJ STORE aqh = comlev1, key = ikey_dynamics, kind = isbyte 0037 CADJ STORE hs = comlev1, key = ikey_dynamics, kind = isbyte 0038 CADJ STORE hl = comlev1, key = ikey_dynamics, kind = isbyte 0039 CADJ STORE lwflux = comlev1, key = ikey_dynamics, kind = isbyte 0040 CADJ STORE evap = comlev1, key = ikey_dynamics, kind = isbyte 0041 CADJ STORE precip = comlev1, key = ikey_dynamics, kind = isbyte 0042 CADJ STORE snowprecip = comlev1, key = ikey_dynamics, kind = isbyte 0043 # ifdef SHORTWAVE_HEATING 0044 CADJ STORE swflux = comlev1, key = ikey_dynamics, kind = isbyte 0045 # endif 0046 # endif 0047 # ifdef ALLOW_DOWNWARD_RADIATION 0048 CADJ STORE swdown = comlev1, key = ikey_dynamics, kind = isbyte 0049 CADJ STORE lwdown = comlev1, key = ikey_dynamics, kind = isbyte 0050 # endif 0051 # ifdef ATMOSPHERIC_LOADING 0052 CADJ STORE apressure = comlev1, key = ikey_dynamics, kind = isbyte 0053 # endif 0054 # ifdef ALLOW_RUNOFF 0055 CADJ STORE runoff = comlev1, key = ikey_dynamics, kind = isbyte 0056 # endif 0057 # ifdef ALLOW_RUNOFTEMP 0058 CADJ STORE runoftemp = comlev1, key = ikey_dynamics, kind = isbyte 0059 # endif 0060 #ifdef ALLOW_SALTFLX 0061 CADJ STORE saltflx = comlev1, key = ikey_dynamics, kind = isbyte 0062 #endif 0063 # ifdef EXF_SEAICE_FRACTION 3c775cbf98 Mart*0064 CADJ STORE exf_iceFraction=comlev1,key=ikey_dynamics, kind = isbyte 9c41af81f6 Timo*0065 # endif 0066 # ifdef EXF_ALLOW_TIDES 0067 CADJ STORE tidePot = comlev1, key = ikey_dynamics, kind = isbyte 0068 # endif 0069 # ifdef ALLOW_CLIMSST_RELAXATION 0070 CADJ STORE climsst = comlev1, key = ikey_dynamics, kind = isbyte 0071 # endif 0072 # ifdef ALLOW_CLIMSSS_RELAXATION 0073 CADJ STORE climsss = comlev1, key = ikey_dynamics, kind = isbyte 0074 # endif 0075 # ifdef ALLOW_CLIMSTRESS_RELAXATION 0076 CADJ STORE climustr = comlev1, key = ikey_dynamics, kind = isbyte 0077 CADJ STORE climvstr = comlev1, key = ikey_dynamics, kind = isbyte 0078 # endif 0079 # endif /* ALLOW_EXF */ 0080 #ifdef ALLOW_GEOTHERMAL_FLUX 0081 CADJ STORE geothermalFlux = comlev1, key=ikey_dynamics, kind=isbyte 0082 #endif 0083 # ifdef ALLOW_BLING 0084 CADJ STORE wind = comlev1, key = ikey_dynamics, kind = isbyte 0085 CADJ STORE atmosP = comlev1, key = ikey_dynamics, kind = isbyte 0086 CADJ STORE silica = comlev1, key = ikey_dynamics, kind = isbyte 0087 CADJ STORE fIce = comlev1, key = ikey_dynamics, kind = isbyte a1d0e455fd Hann*0088 CADJ STORE inputFe = comlev1, key = ikey_dynamics, kind = isbyte 9c41af81f6 Timo*0089 CADJ STORE apco2 = comlev1, key = ikey_dynamics, kind = isbyte 0090 # endif /* ALLOW_BLING */ 0091 # ifdef ALLOW_DIC 0092 CADJ STORE wind = comlev1, key = ikey_dynamics, kind = isbyte 0093 CADJ STORE atmosP = comlev1, key = ikey_dynamics, kind = isbyte a1d0e455fd Hann*0094 CADJ STORE silicaSurf = comlev1, key = ikey_dynamics, kind = isbyte 9c41af81f6 Timo*0095 CADJ STORE fIce = comlev1, key = ikey_dynamics, kind = isbyte a1d0e455fd Hann*0096 CADJ STORE inputFe = comlev1, key = ikey_dynamics, kind = isbyte 9c41af81f6 Timo*0097 CADJ STORE PAR = comlev1, key = ikey_dynamics, kind = isbyte 0098 CADJ STORE CHL = comlev1, key = ikey_dynamics, kind = isbyte 0099 # endif /* ALLOW_DIC */ 0100 # ifdef ALLOW_CFC 0101 CADJ STORE pisVel = comlev1, key = ikey_dynamics, kind = isbyte 0102 CADJ STORE atmosP = comlev1, key = ikey_dynamics, kind = isbyte 0103 CADJ STORE fIce = comlev1, key = ikey_dynamics, kind = isbyte 0104 # endif /* ALLOW_CFC */ 0105 # ifdef ALLOW_CTRL 0106 # ifdef ALLOW_GENTIM2D_CONTROL 0107 C in some cases this also requires storing the surface control 0108 C variables because they are used by packages, e.g. shelfice 0109 CADJ STORE xx_gentim2d = comlev1, key = ikey_dynamics, kind = isbyte 0110 # else 0111 C there is no equivalent to xx_gentim2d for deprecated code so we just 0112 C omit it here 0113 # endif 0114 # endif /* ALLOW_CTRL */
[ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine. The LXR team |