24 |
c - changed the handling of precip and sflux with respect |
c - changed the handling of precip and sflux with respect |
25 |
c to CPP options ALLOW_BULKFORMULAE and ALLOW_ATM_TEMP |
c to CPP options ALLOW_BULKFORMULAE and ALLOW_ATM_TEMP |
26 |
c |
c |
27 |
|
c Dimitris Menemenlis menemenlis@jpl.nasa.gov 20-Dec-2002 |
28 |
|
c |
29 |
|
c - Added EXF_READ_EVAP and EXF_NO_BULK_COMPUTATIONS. |
30 |
|
c |
31 |
c ================================================================== |
c ================================================================== |
32 |
c SUBROUTINE exf_Summary |
c SUBROUTINE exf_Summary |
33 |
c ================================================================== |
c ================================================================== |
110 |
call print_message( msgbuf, standardmessageunit, |
call print_message( msgbuf, standardmessageunit, |
111 |
& SQUEEZE_RIGHT , mythid) |
& SQUEEZE_RIGHT , mythid) |
112 |
write(msgbuf,'(a)') |
write(msgbuf,'(a)') |
113 |
&'// ALLOW_ATM_TEMP: defined' |
&'// ALLOW_ATM_TEMP: defined' |
114 |
call print_message( msgbuf, standardmessageunit, |
call print_message( msgbuf, standardmessageunit, |
115 |
& SQUEEZE_RIGHT , mythid) |
& SQUEEZE_RIGHT , mythid) |
116 |
#else |
#else |
119 |
call print_message( msgbuf, standardmessageunit, |
call print_message( msgbuf, standardmessageunit, |
120 |
& SQUEEZE_RIGHT , mythid) |
& SQUEEZE_RIGHT , mythid) |
121 |
write(msgbuf,'(a)') |
write(msgbuf,'(a)') |
122 |
&'// ALLOW_ATM_TEMP: NOT defined' |
&'// ALLOW_ATM_TEMP: NOT defined' |
123 |
call print_message( msgbuf, standardmessageunit, |
call print_message( msgbuf, standardmessageunit, |
124 |
& SQUEEZE_RIGHT , mythid) |
& SQUEEZE_RIGHT , mythid) |
125 |
#endif |
#endif |
126 |
#ifdef ALLOW_ATM_WIND |
#ifdef ALLOW_ATM_WIND |
127 |
write(msgbuf,'(a)') |
write(msgbuf,'(a)') |
128 |
&'// ALLOW_ATM_WIND: defined' |
&'// ALLOW_ATM_WIND: defined' |
129 |
|
call print_message( msgbuf, standardmessageunit, |
130 |
|
& SQUEEZE_RIGHT , mythid) |
131 |
|
#else |
132 |
|
write(msgbuf,'(a)') |
133 |
|
&'// ALLOW_ATM_WIND: NOT defined' |
134 |
|
call print_message( msgbuf, standardmessageunit, |
135 |
|
& SQUEEZE_RIGHT , mythid) |
136 |
|
#endif |
137 |
|
#ifdef EXF_NO_BULK_COMPUTATIONS |
138 |
|
write(msgbuf,'(a)') |
139 |
|
&'// EXF_NO_BULK_COMPUTATIONS: defined' |
140 |
call print_message( msgbuf, standardmessageunit, |
call print_message( msgbuf, standardmessageunit, |
141 |
& SQUEEZE_RIGHT , mythid) |
& SQUEEZE_RIGHT , mythid) |
142 |
#else |
#else |
143 |
write(msgbuf,'(a)') |
write(msgbuf,'(a)') |
144 |
&'// ALLOW_ATM_WIND: NOT defined' |
&'// EXF_NO_BULK_COMPUTATIONS: NOT defined' |
145 |
call print_message( msgbuf, standardmessageunit, |
call print_message( msgbuf, standardmessageunit, |
146 |
& SQUEEZE_RIGHT , mythid) |
& SQUEEZE_RIGHT , mythid) |
147 |
#endif |
#endif |
164 |
& SQUEEZE_RIGHT , mythid) |
& SQUEEZE_RIGHT , mythid) |
165 |
#endif |
#endif |
166 |
|
|
167 |
|
#ifdef EXF_READ_EVAP |
168 |
|
write(msgbuf,'(a)') |
169 |
|
&'// EXF_READ_EVAP: defined' |
170 |
|
call print_message( msgbuf, standardmessageunit, |
171 |
|
& SQUEEZE_RIGHT , mythid) |
172 |
|
il = ilnblnk(evapfile) |
173 |
|
call cal_TimeInterval( evapperiod, 'secs', timeint, mythid ) |
174 |
|
|
175 |
|
write(msgbuf,'(a)') |
176 |
|
&' ' |
177 |
|
call print_message( msgbuf, standardmessageunit, |
178 |
|
& SQUEEZE_RIGHT , mythid) |
179 |
|
write(msgbuf,'(a,i9.8,i7.6,1x,a,a)') |
180 |
|
&' Evaporation starts at ', |
181 |
|
& (evapstartdate(i), i=1,2), dayofweek(evapstartdate(4)), |
182 |
|
& '.' |
183 |
|
call print_message( msgbuf, standardmessageunit, |
184 |
|
& SQUEEZE_RIGHT , mythid) |
185 |
|
write(msgbuf,'(a,i9.8,i7.6)') |
186 |
|
&' Evaporation period is ', |
187 |
|
& (timeint(i), i=1,2) |
188 |
|
call print_message( msgbuf, standardmessageunit, |
189 |
|
& SQUEEZE_RIGHT , mythid) |
190 |
|
write(msgbuf,'(a)') |
191 |
|
&' Evaporation is read from file:' |
192 |
|
call print_message( msgbuf, standardmessageunit, |
193 |
|
& SQUEEZE_RIGHT , mythid) |
194 |
|
write(msgbuf,'(a,a,a)') |
195 |
|
&' >> ',evapfile(1:il),' <<' |
196 |
|
call print_message( msgbuf, standardmessageunit, |
197 |
|
& SQUEEZE_RIGHT , mythid) |
198 |
|
#else EXF_READ_EVAP |
199 |
|
write(msgbuf,'(a)') |
200 |
|
&'// EXF_READ_EVAP: NOT defined' |
201 |
|
call print_message( msgbuf, standardmessageunit, |
202 |
|
& SQUEEZE_RIGHT , mythid) |
203 |
|
#endif EXF_READ_EVAP |
204 |
|
|
205 |
#ifdef ALLOW_RUNOFF |
#ifdef ALLOW_RUNOFF |
206 |
|
write(msgbuf,'(a)') |
207 |
|
&'// ALLOW_RUNOFF: defined' |
208 |
|
call print_message( msgbuf, standardmessageunit, |
209 |
|
& SQUEEZE_RIGHT , mythid) |
210 |
il = ilnblnk(runofffile) |
il = ilnblnk(runofffile) |
211 |
call cal_TimeInterval( runoffperiod, 'secs', timeint, mythid ) |
call cal_TimeInterval( runoffperiod, 'secs', timeint, mythid ) |
212 |
|
|
233 |
&' >> ',runofffile(1:il),' <<' |
&' >> ',runofffile(1:il),' <<' |
234 |
call print_message( msgbuf, standardmessageunit, |
call print_message( msgbuf, standardmessageunit, |
235 |
& SQUEEZE_RIGHT , mythid) |
& SQUEEZE_RIGHT , mythid) |
236 |
#endif |
#else ALLOW_RUNOFF |
237 |
|
write(msgbuf,'(a)') |
238 |
|
&'// ALLOW_RUNOFF: NOT defined' |
239 |
|
call print_message( msgbuf, standardmessageunit, |
240 |
|
& SQUEEZE_RIGHT , mythid) |
241 |
|
#endif ALLOW_RUNOFF |
242 |
|
|
243 |
#ifdef ALLOW_BULKFORMULAE |
#ifdef ALLOW_BULKFORMULAE |
244 |
|
|
726 |
|
|
727 |
#endif |
#endif |
728 |
|
|
|
#ifdef ALLOW_KPP |
|
|
write(msgbuf,'(a)') |
|
|
&'// ALLOW_KPP: defined' |
|
|
call print_message( msgbuf, standardmessageunit, |
|
|
& SQUEEZE_RIGHT , mythid) |
|
|
#else |
|
|
write(msgbuf,'(a)') |
|
|
&'// ALLOW_KPP: NOT defined' |
|
|
call print_message( msgbuf, standardmessageunit, |
|
|
& SQUEEZE_RIGHT , mythid) |
|
|
#endif |
|
|
|
|
729 |
write(msgbuf,'(a)') |
write(msgbuf,'(a)') |
730 |
&' ' |
&' ' |
731 |
call print_message( msgbuf, standardmessageunit, |
call print_message( msgbuf, standardmessageunit, |