8 |
c o Header file for the surface flux data. |
c o Header file for the surface flux data. |
9 |
c |
c |
10 |
c started: Ralf.Giering@FastOpt.de 25-Mai-2000 |
c started: Ralf.Giering@FastOpt.de 25-Mai-2000 |
11 |
c changed: 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 |
13 |
c |
c |
14 |
c ================================================================== |
c ================================================================== |
15 |
c HEADER exf_fields |
c HEADER exf_fields |
133 |
_RL vstress0(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL vstress0(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
134 |
_RL vstress1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL vstress1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
135 |
#endif |
#endif |
136 |
|
|
137 |
|
#ifdef ALLOW_RUNOFF |
138 |
|
common /exfl_runoff_r/ runoff, runoff0, runoff1 |
139 |
|
_RL runoff (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
140 |
|
_RL runoff0(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
141 |
|
_RL runoff1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
142 |
|
#endif |
143 |
|
|
144 |
|
#ifdef ATMOSPHERIC_LOADING |
145 |
|
c atmospheric pressure field. |
146 |
|
common /exf_apressure_r/ apressure, apressure0, apressure1 |
147 |
|
_RL apressure (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
148 |
|
_RL apressure0 (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
149 |
|
_RL apressure1 (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
150 |
|
#endif |
151 |
|
|