10 |
c started: Ralf.Giering@FastOpt.de 25-Mai-2000 |
c started: Ralf.Giering@FastOpt.de 25-Mai-2000 |
11 |
c changed: field swap in adj. mode; heimbach@mit.edu 10-Jan-2002 |
c changed: field swap in adj. mode; heimbach@mit.edu 10-Jan-2002 |
12 |
c included runoff D. Stammer, Nov. 25, 2001 |
c included runoff D. Stammer, Nov. 25, 2001 |
13 |
|
c included evaporation; menemenlis@jpl.nasa.gov 20-Dec-2002 |
14 |
c |
c |
15 |
c ================================================================== |
c ================================================================== |
16 |
c HEADER exf_fields |
c HEADER exf_fields |
41 |
c Long wave radiative flux. |
c Long wave radiative flux. |
42 |
_RL lwflux (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL lwflux (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
43 |
|
|
44 |
|
c Evaporation. |
45 |
|
_RL evap (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
46 |
|
|
47 |
c Precipitation. |
c Precipitation. |
48 |
_RL precip (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL precip (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
49 |
|
|
50 |
common /exf_atm_temp_r/ atemp, aqh, lwflux, precip |
common /exf_atm_temp_r/ atemp, aqh, lwflux, evap, precip |
51 |
|
|
52 |
c Short wave radiative flux. |
c Short wave radiative flux. |
53 |
common /exf_swflux_r/ swflux |
common /exf_swflux_r/ swflux |
92 |
_RL atemp0(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL atemp0(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
93 |
_RL atemp1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL atemp1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
94 |
|
|
95 |
|
common /exfl_evap_r/ evap0, evap1 |
96 |
|
_RL evap0(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
97 |
|
_RL evap1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
98 |
|
|
99 |
common /exfl_precip_r/ precip0, precip1 |
common /exfl_precip_r/ precip0, precip1 |
100 |
_RL precip0(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL precip0(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
101 |
_RL precip1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL precip1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
143 |
#endif |
#endif |
144 |
|
|
145 |
#ifdef ALLOW_RUNOFF |
#ifdef ALLOW_RUNOFF |
146 |
common /exfl_runoff_r/ runoff, runoff0, runoff1 |
common /exfl_runoff_r/ runoff |
147 |
_RL runoff (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL runoff (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
_RL runoff0(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
|
_RL runoff1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
148 |
#endif |
#endif |
149 |
|
|
150 |
#ifdef ATMOSPHERIC_LOADING |
#ifdef ATMOSPHERIC_LOADING |