1 |
|
C $Header$ |
2 |
|
C $Name$ |
3 |
|
|
4 |
#ifdef ALLOW_EXF |
#ifdef ALLOW_EXF |
5 |
|
|
6 |
CADJ STORE hflux0 = tapelev2, key = ilev_2 |
CADJ STORE StoreEXF1 = tapelev2, key = ilev_2 |
7 |
CADJ STORE hflux1 = tapelev2, key = ilev_2 |
CADJ STORE StoreEXF2 = tapelev2, key = ilev_2 |
8 |
CADJ STORE sflux0 = tapelev2, key = ilev_2 |
CADJ STORE StoreCTRLS1 = tapelev2, key = ilev_2 |
9 |
CADJ STORE sflux1 = tapelev2, key = ilev_2 |
|
10 |
CADJ STORE ustress0 = tapelev2, key = ilev_2 |
# ifdef EXF_SEAICE_FRACTION |
11 |
CADJ STORE ustress1 = tapelev2, key = ilev_2 |
CADJ STORE areamask0 = tapelev2, key = ilev_2 |
12 |
CADJ STORE vstress0 = tapelev2, key = ilev_2 |
CADJ STORE areamask1 = tapelev2, key = ilev_2 |
13 |
CADJ STORE vstress1 = tapelev2, key = ilev_2 |
# endif |
14 |
CADJ STORE wspeed0 = tapelev2, key = ilev_2 |
|
15 |
CADJ STORE wspeed1 = tapelev2, key = ilev_2 |
# ifdef USE_EXFCO2 |
16 |
|
CADJ STORE apco20 = tapelev2, key = ilev_2 |
17 |
# ifdef ALLOW_ATM_TEMP |
CADJ STORE apco21 = tapelev2, key = ilev_2 |
|
|
|
|
CADJ STORE aqh0 = tapelev2, key = ilev_2 |
|
|
CADJ STORE aqh1 = tapelev2, key = ilev_2 |
|
|
CADJ STORE atemp0 = tapelev2, key = ilev_2 |
|
|
CADJ STORE atemp1 = tapelev2, key = ilev_2 |
|
|
CADJ STORE precip0 = tapelev2, key = ilev_2 |
|
|
CADJ STORE precip1 = tapelev2, key = ilev_2 |
|
|
CADJ STORE lwflux0 = tapelev2, key = ilev_2 |
|
|
CADJ STORE lwflux1 = tapelev2, key = ilev_2 |
|
|
CADJ STORE swflux0 = tapelev2, key = ilev_2 |
|
|
CADJ STORE swflux1 = tapelev2, key = ilev_2 |
|
|
# ifdef EXF_READ_EVAP |
|
|
CADJ STORE evap0 = tapelev2, key = ilev_2 |
|
|
CADJ STORE evap1 = tapelev2, key = ilev_2 |
|
|
# else |
|
|
CADJ STORE evap = tapelev2, key = ilev_2 |
|
|
# endif /* EXF_READ_EVAP */ |
|
|
# ifdef ALLOW_DOWNWARD_RADIATION |
|
|
CADJ STORE swdown0 = tapelev2, key = ilev_2 |
|
|
CADJ STORE swdown1 = tapelev2, key = ilev_2 |
|
|
CADJ STORE lwdown0 = tapelev2, key = ilev_2 |
|
|
CADJ STORE lwdown1 = tapelev2, key = ilev_2 |
|
|
# endif |
|
|
|
|
|
# else /* ALLOW_ATM_TEMP undef */ |
|
|
|
|
|
# ifdef SHORTWAVE_HEATING |
|
|
CADJ STORE swflux0 = tapelev2, key = ilev_2 |
|
|
CADJ STORE swflux1 = tapelev2, key = ilev_2 |
|
|
# endif |
|
|
|
|
|
# endif /* ALLOW_ATM_TEMP */ |
|
|
|
|
|
# ifdef ALLOW_ATM_WIND |
|
|
|
|
|
CADJ STORE uwind0 = tapelev2, key = ilev_2 |
|
|
CADJ STORE uwind1 = tapelev2, key = ilev_2 |
|
|
CADJ STORE vwind0 = tapelev2, key = ilev_2 |
|
|
CADJ STORE vwind1 = tapelev2, key = ilev_2 |
|
|
|
|
|
# else /* ALLOW_ATM_WIND undef */ |
|
|
|
|
|
# endif /* ALLOW_ATM_WIND */ |
|
|
|
|
|
# ifdef ALLOW_CLIMSSS_RELAXATION |
|
|
CADJ STORE climsss0 = tapelev2, key = ilev_2 |
|
|
CADJ STORE climsss1 = tapelev2, key = ilev_2 |
|
|
# endif |
|
|
# ifdef ALLOW_CLIMSST_RELAXATION |
|
|
CADJ STORE climsst0 = tapelev2, key = ilev_2 |
|
|
CADJ STORE climsst1 = tapelev2, key = ilev_2 |
|
|
# endif |
|
|
# ifdef ALLOW_CLIMSALT_RELAXATION |
|
|
cph not used so far |
|
|
cphCADJ STORE climsalt0 = tapelev2, key = ilev_2 |
|
|
cphCADJ STORE climsalt1 = tapelev2, key = ilev_2 |
|
|
# endif |
|
|
# ifdef ALLOW_CLIMTEMP_RELAXATION |
|
|
cph not used so far |
|
|
cphCADJ STORE climtemp0 = tapelev2, key = ilev_2 |
|
|
cphCADJ STORE climtemp1 = tapelev2, key = ilev_2 |
|
|
# endif |
|
|
# ifdef ATMOSPHERIC_LOADING |
|
|
CADJ STORE apressure0 = tapelev2, key = ilev_2 |
|
|
CADJ STORE apressure1 = tapelev2, key = ilev_2 |
|
18 |
# endif |
# endif |
19 |
|
|
20 |
# ifdef ALLOW_HFLUX_CONTROL |
# ifdef ALLOW_HFLUX_CONTROL |
33 |
CADJ STORE xx_tauv0 = tapelev2, key = ilev_2 |
CADJ STORE xx_tauv0 = tapelev2, key = ilev_2 |
34 |
CADJ STORE xx_tauv1 = tapelev2, key = ilev_2 |
CADJ STORE xx_tauv1 = tapelev2, key = ilev_2 |
35 |
# endif |
# endif |
|
# ifdef ALLOW_UWIND_CONTROL |
|
|
CADJ STORE xx_uwind0 = tapelev2, key = ilev_2 |
|
|
CADJ STORE xx_uwind1 = tapelev2, key = ilev_2 |
|
|
# endif |
|
|
# ifdef ALLOW_VWIND_CONTROL |
|
|
CADJ STORE xx_vwind0 = tapelev2, key = ilev_2 |
|
|
CADJ STORE xx_vwind1 = tapelev2, key = ilev_2 |
|
|
# endif |
|
|
# ifdef ALLOW_ATEMP_CONTROL |
|
|
CADJ STORE xx_atemp0 = tapelev2, key = ilev_2 |
|
|
CADJ STORE xx_atemp1 = tapelev2, key = ilev_2 |
|
|
# endif |
|
|
# ifdef ALLOW_AQH_CONTROL |
|
|
CADJ STORE xx_aqh0 = tapelev2, key = ilev_2 |
|
|
CADJ STORE xx_aqh1 = tapelev2, key = ilev_2 |
|
|
# endif |
|
|
# ifdef ALLOW_PRECIP_CONTROL |
|
|
CADJ STORE xx_precip0 = tapelev2, key = ilev_2 |
|
|
CADJ STORE xx_precip1 = tapelev2, key = ilev_2 |
|
|
# endif |
|
|
# ifdef ALLOW_SWFLUX_CONTROL |
|
|
CADJ STORE xx_swflux0 = tapelev2, key = ilev_2 |
|
|
CADJ STORE xx_swflux1 = tapelev2, key = ilev_2 |
|
|
# endif |
|
|
# ifdef ALLOW_SWDOWN_CONTROL |
|
|
CADJ STORE xx_swdown0 = tapelev2, key = ilev_2 |
|
|
CADJ STORE xx_swdown1 = tapelev2, key = ilev_2 |
|
|
# endif |
|
|
# ifdef ALLOW_SNOWPRECIP_CONTROL |
|
|
CADJ STORE xx_snowprecip0 = tapelev2, key = ilev_2 |
|
|
CADJ STORE xx_snowprecip1 = tapelev2, key = ilev_2 |
|
|
# endif |
|
|
# ifdef ALLOW_LWFLUX_CONTROL |
|
|
CADJ STORE xx_lwflux0 = tapelev2, key = ilev_2 |
|
|
CADJ STORE xx_lwflux1 = tapelev2, key = ilev_2 |
|
|
# endif |
|
|
# ifdef ALLOW_LWDOWN_CONTROL |
|
|
CADJ STORE xx_lwdown0 = tapelev2, key = ilev_2 |
|
|
CADJ STORE xx_lwdown1 = tapelev2, key = ilev_2 |
|
|
# endif |
|
|
# ifdef ALLOW_EVAP_CONTROL |
|
|
CADJ STORE xx_evap0 = tapelev2, key = ilev_2 |
|
|
CADJ STORE xx_evap1 = tapelev2, key = ilev_2 |
|
|
# endif |
|
|
# ifdef ALLOW_APRESSURE_CONTROL |
|
|
CADJ STORE xx_apressure0 = tapelev2, key = ilev_2 |
|
|
CADJ STORE xx_apressure1 = tapelev2, key = ilev_2 |
|
|
# endif |
|
|
# ifdef ALLOW_RUNOFF_CONTROL |
|
|
CADJ STORE xx_runoff0 = tapelev2, key = ilev_2 |
|
|
CADJ STORE xx_runoff1 = tapelev2, key = ilev_2 |
|
|
# endif |
|
36 |
# ifdef ALLOW_SST_CONTROL |
# ifdef ALLOW_SST_CONTROL |
37 |
CADJ STORE xx_sst0 = tapelev2, key = ilev_2 |
CADJ STORE xx_sst0 = tapelev2, key = ilev_2 |
38 |
CADJ STORE xx_sst1 = tapelev2, key = ilev_2 |
CADJ STORE xx_sst1 = tapelev2, key = ilev_2 |
39 |
# endif |
# endif |
40 |
# ifdef ALLOW_SSS_CONTROL |
# ifdef ALLOW_SSS_CONTROL |
41 |
CADJ STORE xx_sss0 = tapelev2, key = ilev_2 |
CADJ STORE xx_sss0 = tapelev2, key = ilev_2 |
42 |
CADJ STORE xx_sss1 = tapelev2, key = ilev_2 |
CADJ STORE xx_sss1 = tapelev2, key = ilev_2 |
43 |
# endif |
# endif |
44 |
|
|
45 |
#endif /* ALLOW_EXF */ |
#endif /* ALLOW_EXF */ |