1 |
#ifdef ALLOW_EXF |
C $Header$ |
2 |
|
C $Name$ |
|
CADJ STORE hflux0 = tapelev3, key = ilev_3 |
|
|
CADJ STORE hflux1 = tapelev3, key = ilev_3 |
|
|
CADJ STORE sflux0 = tapelev3, key = ilev_3 |
|
|
CADJ STORE sflux1 = tapelev3, key = ilev_3 |
|
|
CADJ STORE ustress0 = tapelev3, key = ilev_3 |
|
|
CADJ STORE ustress1 = tapelev3, key = ilev_3 |
|
|
CADJ STORE vstress0 = tapelev3, key = ilev_3 |
|
|
CADJ STORE vstress1 = tapelev3, key = ilev_3 |
|
|
|
|
|
# ifdef ALLOW_ATM_TEMP |
|
|
|
|
|
CADJ STORE aqh0 = tapelev3, key = ilev_3 |
|
|
CADJ STORE aqh1 = tapelev3, key = ilev_3 |
|
|
CADJ STORE atemp0 = tapelev3, key = ilev_3 |
|
|
CADJ STORE atemp1 = tapelev3, key = ilev_3 |
|
|
CADJ STORE precip0 = tapelev3, key = ilev_3 |
|
|
CADJ STORE precip1 = tapelev3, key = ilev_3 |
|
|
CADJ STORE lwflux0 = tapelev3, key = ilev_3 |
|
|
CADJ STORE lwflux1 = tapelev3, key = ilev_3 |
|
|
CADJ STORE swflux0 = tapelev3, key = ilev_3 |
|
|
CADJ STORE swflux1 = tapelev3, key = ilev_3 |
|
|
# ifdef EXF_READ_EVAP |
|
|
CADJ STORE evap0 = tapelev3, key = ilev_3 |
|
|
CADJ STORE evap1 = tapelev3, key = ilev_3 |
|
|
# else |
|
|
CADJ STORE evap = tapelev3, key = ilev_3 |
|
|
# endif /* EXF_READ_EVAP */ |
|
|
# ifdef ALLOW_DOWNWARD_RADIATION |
|
|
CADJ STORE swdown0 = tapelev3, key = ilev_3 |
|
|
CADJ STORE swdown1 = tapelev3, key = ilev_3 |
|
|
CADJ STORE lwdown0 = tapelev3, key = ilev_3 |
|
|
CADJ STORE lwdown1 = tapelev3, key = ilev_3 |
|
|
# endif |
|
|
|
|
|
# else /* ALLOW_ATM_TEMP undef */ |
|
|
|
|
|
# ifdef SHORTWAVE_HEATING |
|
|
CADJ STORE swflux0 = tapelev3, key = ilev_3 |
|
|
CADJ STORE swflux1 = tapelev3, key = ilev_3 |
|
|
# endif |
|
3 |
|
|
4 |
# endif /* ALLOW_ATM_TEMP */ |
#ifdef ALLOW_EXF |
|
|
|
|
# ifdef ALLOW_ATM_WIND |
|
|
|
|
|
CADJ STORE uwind0 = tapelev3, key = ilev_3 |
|
|
CADJ STORE uwind1 = tapelev3, key = ilev_3 |
|
|
CADJ STORE vwind0 = tapelev3, key = ilev_3 |
|
|
CADJ STORE vwind1 = tapelev3, key = ilev_3 |
|
|
|
|
|
# else /* ALLOW_ATM_WIND undef */ |
|
5 |
|
|
6 |
# endif /* ALLOW_ATM_WIND */ |
CADJ STORE StoreEXF1 = tapelev3, key = ilev_3 |
7 |
|
CADJ STORE StoreEXF2 = tapelev3, key = ilev_3 |
8 |
|
CADJ STORE StoreCTRLS1 = tapelev3, key = ilev_3 |
9 |
|
|
|
# ifdef ALLOW_CLIMSSS_RELAXATION |
|
|
CADJ STORE climsss0 = tapelev3, key = ilev_3 |
|
|
CADJ STORE climsss1 = tapelev3, key = ilev_3 |
|
|
# endif |
|
|
# ifdef ALLOW_CLIMSST_RELAXATION |
|
|
CADJ STORE climsst0 = tapelev3, key = ilev_3 |
|
|
CADJ STORE climsst1 = tapelev3, key = ilev_3 |
|
|
# endif |
|
|
# ifdef ALLOW_CLIMSALT_RELAXATION |
|
|
cph not used so far |
|
|
cphCADJ STORE climsalt0 = tapelev3, key = ilev_3 |
|
|
cphCADJ STORE climsalt1 = tapelev3, key = ilev_3 |
|
|
# endif |
|
|
# ifdef ALLOW_CLIMTEMP_RELAXATION |
|
|
cph not used so far |
|
|
cphCADJ STORE climtemp0 = tapelev3, key = ilev_3 |
|
|
cphCADJ STORE climtemp1 = tapelev3, key = ilev_3 |
|
|
# endif |
|
|
# ifdef ATMOSPHERIC_LOADING |
|
|
CADJ STORE apressure0 = tapelev3, key = ilev_3 |
|
|
CADJ STORE apressure1 = tapelev3, key = ilev_3 |
|
|
# endif |
|
10 |
|
|
11 |
# ifdef ALLOW_HFLUX_CONTROL |
# ifdef ALLOW_HFLUX_CONTROL |
12 |
CADJ STORE xx_hflux0 = tapelev3, key = ilev_3 |
CADJ STORE xx_hflux0 = tapelev3, key = ilev_3 |
24 |
CADJ STORE xx_tauv0 = tapelev3, key = ilev_3 |
CADJ STORE xx_tauv0 = tapelev3, key = ilev_3 |
25 |
CADJ STORE xx_tauv1 = tapelev3, key = ilev_3 |
CADJ STORE xx_tauv1 = tapelev3, key = ilev_3 |
26 |
# endif |
# endif |
|
# ifdef ALLOW_UWIND_CONTROL |
|
|
CADJ STORE xx_uwind0 = tapelev3, key = ilev_3 |
|
|
CADJ STORE xx_uwind1 = tapelev3, key = ilev_3 |
|
|
# endif |
|
|
# ifdef ALLOW_VWIND_CONTROL |
|
|
CADJ STORE xx_vwind0 = tapelev3, key = ilev_3 |
|
|
CADJ STORE xx_vwind1 = tapelev3, key = ilev_3 |
|
|
# endif |
|
|
# ifdef ALLOW_ATEMP_CONTROL |
|
|
CADJ STORE xx_atemp0 = tapelev3, key = ilev_3 |
|
|
CADJ STORE xx_atemp1 = tapelev3, key = ilev_3 |
|
|
# endif |
|
|
# ifdef ALLOW_AQH_CONTROL |
|
|
CADJ STORE xx_aqh0 = tapelev3, key = ilev_3 |
|
|
CADJ STORE xx_aqh1 = tapelev3, key = ilev_3 |
|
|
# endif |
|
|
# ifdef ALLOW_PRECIP_CONTROL |
|
|
CADJ STORE xx_precip0 = tapelev3, key = ilev_3 |
|
|
CADJ STORE xx_precip1 = tapelev3, key = ilev_3 |
|
|
# endif |
|
|
# ifdef ALLOW_SWFLUX_CONTROL |
|
|
CADJ STORE xx_swflux0 = tapelev3, key = ilev_3 |
|
|
CADJ STORE xx_swflux1 = tapelev3, key = ilev_3 |
|
|
# endif |
|
|
# ifdef ALLOW_SWDOWN_CONTROL |
|
|
CADJ STORE xx_swdown0 = tapelev3, key = ilev_3 |
|
|
CADJ STORE xx_swdown1 = tapelev3, key = ilev_3 |
|
|
# endif |
|
27 |
|
|
28 |
#endif /* ALLOW_EXF */ |
#endif /* ALLOW_EXF */ |