/[MITgcm]/MITgcm/pkg/exf/exf_summary.F
ViewVC logotype

Annotation of /MITgcm/pkg/exf/exf_summary.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.8 - (hide annotations) (download)
Mon Apr 16 23:27:21 2007 UTC (17 years, 1 month ago) by jmc
Branch: MAIN
Changes since 1.7: +4 -3 lines 
move EXF header files from lower_case.h to UPPER_CASE.h ;
 add missing cvs Header & Name
1 jmc 1.8 C $Header: $
2     C $Name: $
3 heimbach 1.1
4 edhill 1.6 #include "EXF_OPTIONS.h"
5 heimbach 1.1
6    
7     subroutine exf_Summary(
8     I mythid
9     & )
10    
11     c ==================================================================
12     c SUBROUTINE exf_Summary
13     c ==================================================================
14     c
15     c o List all the settings of the external forcing.
16     c
17 dimitri 1.4 c started: Christian Eckert eckert@mit.edu 11-Jan-1999
18 heimbach 1.1 c
19 dimitri 1.4 c changed: Christian Eckert eckert@mit.edu 12-Feb-2000
20     c - changed routine names (package prefix: exf_)
21 heimbach 1.1 c
22 dimitri 1.4 c changed: Patrick Heimbach heimbach@mit.edu 04-May-2000
23 heimbach 1.1 c - changed the handling of precip and sflux with respect
24     c to CPP options ALLOW_BULKFORMULAE and ALLOW_ATM_TEMP
25     c
26 dimitri 1.4 c changed: Dimitris Menemenlis menemenlis@jpl.nasa.gov 20-Dec-2002
27     c - modifications for using pkg/exf with pkg/seaice
28 dimitri 1.3 c
29 heimbach 1.1 c ==================================================================
30     c SUBROUTINE exf_Summary
31     c ==================================================================
32    
33     implicit none
34    
35     c == global variables ==
36    
37     #include "EEPARAMS.h"
38     #include "SIZE.h"
39     #include "cal.h"
40 jmc 1.8 #include "EXF.h"
41     #include "EXF_PARAM.h"
42 heimbach 1.1
43     c == routine arguments ==
44    
45     c mythid - thread number for this instance of the routine.
46    
47     integer mythid
48    
49     c == local variables ==
50    
51     integer il
52    
53     character*(max_len_mbuf) msgbuf
54    
55     c == external ==
56    
57     integer ilnblnk
58     external ilnblnk
59    
60     c == end of interface ==
61    
62     write(msgbuf,'(a)')
63     &' '
64     call print_message( msgbuf, standardmessageunit,
65     & SQUEEZE_RIGHT , mythid)
66     write(msgbuf,'(a)')
67     &'// ======================================================='
68     call print_message( msgbuf, standardmessageunit,
69     & SQUEEZE_RIGHT , mythid)
70     write(msgbuf,'(a)')
71     &'// External forcing configuration >>> START <<<'
72     call print_message( msgbuf, standardmessageunit,
73     & SQUEEZE_RIGHT , mythid)
74     write(msgbuf,'(a)')
75     &'// ======================================================='
76     call print_message( msgbuf, standardmessageunit,
77     & SQUEEZE_RIGHT , mythid)
78     write(msgbuf,'(a)')
79     &' '
80     call print_message( msgbuf, standardmessageunit,
81     & SQUEEZE_RIGHT , mythid)
82     write(msgbuf,'(a,a)')
83     &'External forcing version: ',externalforcingversion
84     call print_message( msgbuf, standardmessageunit,
85     & SQUEEZE_RIGHT , mythid)
86     write(msgbuf,'(a,a)')
87     &'Uses Calendar version: ',usescalendarversion
88     call print_message( msgbuf, standardmessageunit,
89     & SQUEEZE_RIGHT , mythid)
90     write(msgbuf,'(a)')
91     &' '
92     call print_message( msgbuf, standardmessageunit,
93     & SQUEEZE_RIGHT , mythid)
94    
95 dimitri 1.4 c-- Print settings of some CPP flags.
96 heimbach 1.1
97     #ifdef ALLOW_ATM_TEMP
98     write(msgbuf,'(a)')
99 dimitri 1.3 &'// ALLOW_ATM_TEMP: defined'
100 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
101     & SQUEEZE_RIGHT , mythid)
102     #else
103     write(msgbuf,'(a)')
104 dimitri 1.3 &'// ALLOW_ATM_TEMP: NOT defined'
105 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
106     & SQUEEZE_RIGHT , mythid)
107     #endif
108 dimitri 1.4
109 heimbach 1.1 #ifdef ALLOW_ATM_WIND
110     write(msgbuf,'(a)')
111 dimitri 1.3 &'// ALLOW_ATM_WIND: defined'
112     call print_message( msgbuf, standardmessageunit,
113     & SQUEEZE_RIGHT , mythid)
114     #else
115     write(msgbuf,'(a)')
116     &'// ALLOW_ATM_WIND: NOT defined'
117     call print_message( msgbuf, standardmessageunit,
118     & SQUEEZE_RIGHT , mythid)
119     #endif
120 dimitri 1.4
121     #ifdef ALLOW_DOWNWARD_RADIATION
122 dimitri 1.3 write(msgbuf,'(a)')
123 dimitri 1.4 &'// ALLOW_DOWNWARD_RADIATION: defined'
124 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
125     & SQUEEZE_RIGHT , mythid)
126     #else
127     write(msgbuf,'(a)')
128 dimitri 1.5 &'// ALLOW_DOWNWARD_RADIATION: NOT defined'
129 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
130     & SQUEEZE_RIGHT , mythid)
131     #endif
132    
133 dimitri 1.4 #ifdef ALLOW_BULKFORMULAE
134 heimbach 1.1 write(msgbuf,'(a)')
135 dimitri 1.4 &'// ALLOW_BULKFORMULAE: defined'
136 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
137     & SQUEEZE_RIGHT , mythid)
138     #else
139     write(msgbuf,'(a)')
140 dimitri 1.4 &'// ALLOW_BULKFORMULAE: NOT defined'
141 heimbach 1.2 call print_message( msgbuf, standardmessageunit,
142     & SQUEEZE_RIGHT , mythid)
143     #endif
144    
145 dimitri 1.4 c-- For each data set used the summary prints the calendar data
146     c and the corresponding file from which the data will be read.
147 dimitri 1.3
148 dimitri 1.4 #ifndef ALLOW_ATM_WIND
149     c-- Zonal wind stress.
150     il = ilnblnk(ustressfile)
151 dimitri 1.3 write(msgbuf,'(a)')
152     &' '
153     call print_message( msgbuf, standardmessageunit,
154     & SQUEEZE_RIGHT , mythid)
155 dimitri 1.7 write(msgbuf,'(a,f12.0)')
156 dimitri 1.4 &' Zonal wind stress forcing starts at ',
157 dimitri 1.7 & ustressstartdate
158 dimitri 1.3 call print_message( msgbuf, standardmessageunit,
159     & SQUEEZE_RIGHT , mythid)
160 dimitri 1.7 write(msgbuf,'(a,f12.0)')
161 dimitri 1.4 &' Zonal wind stress forcing period is ',
162 dimitri 1.7 & ustressperiod
163 dimitri 1.3 call print_message( msgbuf, standardmessageunit,
164     & SQUEEZE_RIGHT , mythid)
165     write(msgbuf,'(a)')
166 dimitri 1.4 &' Zonal wind stress forcing is read from file:'
167 dimitri 1.3 call print_message( msgbuf, standardmessageunit,
168     & SQUEEZE_RIGHT , mythid)
169     write(msgbuf,'(a,a,a)')
170 dimitri 1.4 &' >> ',ustressfile(1:il),' <<'
171 dimitri 1.3 call print_message( msgbuf, standardmessageunit,
172     & SQUEEZE_RIGHT , mythid)
173 heimbach 1.2
174 dimitri 1.4 c-- Meridional wind stress.
175     il = ilnblnk(vstressfile)
176 heimbach 1.2 write(msgbuf,'(a)')
177     &' '
178     call print_message( msgbuf, standardmessageunit,
179     & SQUEEZE_RIGHT , mythid)
180 dimitri 1.7 write(msgbuf,'(a,f12.0)')
181 dimitri 1.4 &' Meridional wind stress forcing starts at ',
182 dimitri 1.7 & vstressstartdate
183 heimbach 1.2 call print_message( msgbuf, standardmessageunit,
184     & SQUEEZE_RIGHT , mythid)
185 dimitri 1.7 write(msgbuf,'(a,f12.0)')
186 dimitri 1.4 &' Meridional wind stress forcing period is ',
187 dimitri 1.7 & vstressperiod
188 heimbach 1.2 call print_message( msgbuf, standardmessageunit,
189     & SQUEEZE_RIGHT , mythid)
190     write(msgbuf,'(a)')
191 dimitri 1.4 &' Meridional wind stress forcing is read from file:'
192 heimbach 1.2 call print_message( msgbuf, standardmessageunit,
193     & SQUEEZE_RIGHT , mythid)
194     write(msgbuf,'(a,a,a)')
195 dimitri 1.4 &' >> ',vstressfile(1:il),' <<'
196 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
197     & SQUEEZE_RIGHT , mythid)
198 dimitri 1.4 #endif
199 heimbach 1.1
200 dimitri 1.4 #ifndef ALLOW_ATM_TEMP
201     c-- Heat flux.
202     il = ilnblnk(hfluxfile)
203 heimbach 1.1 write(msgbuf,'(a)')
204     &' '
205     call print_message( msgbuf, standardmessageunit,
206     & SQUEEZE_RIGHT , mythid)
207 dimitri 1.7 write(msgbuf,'(a,f12.0)')
208 dimitri 1.4 &' Heat flux forcing starts at ',
209 dimitri 1.7 & hfluxstartdate
210 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
211     & SQUEEZE_RIGHT , mythid)
212 dimitri 1.7 write(msgbuf,'(a,f12.0)')
213 dimitri 1.4 &' Heat flux forcing period is ',
214 dimitri 1.7 & hfluxperiod
215 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
216     & SQUEEZE_RIGHT , mythid)
217     write(msgbuf,'(a)')
218 dimitri 1.4 &' Heat flux forcing is read from file: '
219 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
220     & SQUEEZE_RIGHT , mythid)
221     write(msgbuf,'(a,a,a)')
222 dimitri 1.4 &' >> ',hfluxfile(1:il),' <<'
223 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
224     & SQUEEZE_RIGHT , mythid)
225    
226 dimitri 1.4 c-- Salt flux.
227     il = ilnblnk(sfluxfile)
228 heimbach 1.1 write(msgbuf,'(a)')
229     &' '
230     call print_message( msgbuf, standardmessageunit,
231     & SQUEEZE_RIGHT , mythid)
232 dimitri 1.7 write(msgbuf,'(a,f12.0)')
233 dimitri 1.4 &' Salt flux forcing starts at ',
234 dimitri 1.7 & sfluxstartdate
235 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
236     & SQUEEZE_RIGHT , mythid)
237 dimitri 1.7 write(msgbuf,'(a,f12.0)')
238 dimitri 1.4 &' Salt flux forcing period is ',
239 dimitri 1.7 & sfluxperiod
240 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
241     & SQUEEZE_RIGHT , mythid)
242     write(msgbuf,'(a)')
243 dimitri 1.4 &' Salt flux forcing is read from file: '
244 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
245     & SQUEEZE_RIGHT , mythid)
246     write(msgbuf,'(a,a,a)')
247 dimitri 1.4 &' >> ',sfluxfile(1:il),' <<'
248 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
249     & SQUEEZE_RIGHT , mythid)
250 dimitri 1.4 #endif
251 heimbach 1.1
252 dimitri 1.4 #if defined(ALLOW_ATM_TEMP) || defined(SHORTWAVE_HEATING)
253     c-- Net shortwave.
254 heimbach 1.1 il = ilnblnk(swfluxfile)
255     write(msgbuf,'(a)')
256     &' '
257     call print_message( msgbuf, standardmessageunit,
258     & SQUEEZE_RIGHT , mythid)
259 dimitri 1.7 write(msgbuf,'(a,f12.0)')
260 dimitri 1.4 &' Net shortwave flux forcing starts at ',
261 dimitri 1.7 & swfluxstartdate
262 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
263     & SQUEEZE_RIGHT , mythid)
264 dimitri 1.7 write(msgbuf,'(a,f12.0)')
265 dimitri 1.4 &' Net shortwave flux forcing period is ',
266 dimitri 1.7 & swfluxperiod
267 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
268     & SQUEEZE_RIGHT , mythid)
269     write(msgbuf,'(a)')
270 dimitri 1.4 &' Net shortwave flux forcing is read from file:'
271 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
272     & SQUEEZE_RIGHT , mythid)
273     write(msgbuf,'(a,a,a)')
274     &' >> ',swfluxfile(1:il),' <<'
275     call print_message( msgbuf, standardmessageunit,
276     & SQUEEZE_RIGHT , mythid)
277 dimitri 1.4 #endif
278 heimbach 1.1
279 dimitri 1.4 #ifdef ALLOW_ATM_WIND
280     c-- Zonal wind.
281     il = ilnblnk(uwindfile)
282 heimbach 1.1 write(msgbuf,'(a)')
283     &' '
284     call print_message( msgbuf, standardmessageunit,
285     & SQUEEZE_RIGHT , mythid)
286 dimitri 1.7 write(msgbuf,'(a,f12.0)')
287 dimitri 1.4 &' Zonal wind forcing starts at ',
288 dimitri 1.7 & uwindstartdate
289 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
290     & SQUEEZE_RIGHT , mythid)
291 dimitri 1.7 write(msgbuf,'(a,f12.0)')
292 dimitri 1.4 &' Zonal wind forcing period is ',
293 dimitri 1.7 & uwindperiod
294 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
295     & SQUEEZE_RIGHT , mythid)
296     write(msgbuf,'(a)')
297 dimitri 1.4 &' Zonal wind forcing is read from file:'
298 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
299     & SQUEEZE_RIGHT , mythid)
300     write(msgbuf,'(a,a,a)')
301 dimitri 1.4 &' >> ',uwindfile(1:il),' <<'
302 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
303     & SQUEEZE_RIGHT , mythid)
304    
305 dimitri 1.4 c-- Meridional wind.
306     il = ilnblnk(vwindfile)
307 heimbach 1.1 write(msgbuf,'(a)')
308     &' '
309     call print_message( msgbuf, standardmessageunit,
310     & SQUEEZE_RIGHT , mythid)
311 dimitri 1.7 write(msgbuf,'(a,f12.0)')
312 dimitri 1.4 &' Meridional wind forcing starts at ',
313 dimitri 1.7 & vwindstartdate
314 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
315     & SQUEEZE_RIGHT , mythid)
316 dimitri 1.7 write(msgbuf,'(a,f12.0)')
317 dimitri 1.4 &' Meridional wind forcing period is ',
318 dimitri 1.7 & vwindperiod
319 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
320     & SQUEEZE_RIGHT , mythid)
321     write(msgbuf,'(a)')
322 dimitri 1.4 &' Meridional wind forcing is read from file:'
323 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
324     & SQUEEZE_RIGHT , mythid)
325     write(msgbuf,'(a,a,a)')
326 dimitri 1.4 &' >> ',vwindfile(1:il),' <<'
327 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
328     & SQUEEZE_RIGHT , mythid)
329 dimitri 1.4 #endif
330 heimbach 1.1
331 dimitri 1.4 #ifdef ALLOW_ATM_TEMP
332     c-- Atmospheric temperature.
333     il = ilnblnk(atempfile)
334 heimbach 1.1 write(msgbuf,'(a)')
335     &' '
336     call print_message( msgbuf, standardmessageunit,
337     & SQUEEZE_RIGHT , mythid)
338 dimitri 1.7 write(msgbuf,'(a,f12.0)')
339 dimitri 1.4 &' Atmospheric temperature starts at ',
340 dimitri 1.7 & atempstartdate
341 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
342     & SQUEEZE_RIGHT , mythid)
343 dimitri 1.7 write(msgbuf,'(a,f12.0)')
344 dimitri 1.4 &' Atmospheric temperature period is ',
345 dimitri 1.7 & atempperiod
346 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
347     & SQUEEZE_RIGHT , mythid)
348     write(msgbuf,'(a)')
349 dimitri 1.4 &' Atmospheric temperature is read from file:'
350 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
351     & SQUEEZE_RIGHT , mythid)
352     write(msgbuf,'(a,a,a)')
353 dimitri 1.4 &' >> ',atempfile(1:il),' <<'
354 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
355     & SQUEEZE_RIGHT , mythid)
356    
357 dimitri 1.4 c-- Atmospheric specific humidity.
358     il = ilnblnk(aqhfile)
359 heimbach 1.1 write(msgbuf,'(a)')
360     &' '
361     call print_message( msgbuf, standardmessageunit,
362     & SQUEEZE_RIGHT , mythid)
363 dimitri 1.7 write(msgbuf,'(a,f12.0)')
364 dimitri 1.4 &' Atmospheric specific humidity starts at ',
365 dimitri 1.7 & aqhstartdate
366 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
367     & SQUEEZE_RIGHT , mythid)
368 dimitri 1.7 write(msgbuf,'(a,f12.0)')
369 dimitri 1.4 &' Atmospheric specific humidity period is ',
370 dimitri 1.7 & aqhperiod
371 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
372     & SQUEEZE_RIGHT , mythid)
373     write(msgbuf,'(a)')
374 dimitri 1.4 &' Atmospheric specific humidity is read from file:'
375 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
376     & SQUEEZE_RIGHT , mythid)
377     write(msgbuf,'(a,a,a)')
378 dimitri 1.4 &' >> ',aqhfile(1:il),' <<'
379 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
380     & SQUEEZE_RIGHT , mythid)
381    
382 dimitri 1.4 c-- Net longwave.
383     il = ilnblnk(lwfluxfile)
384 heimbach 1.1 write(msgbuf,'(a)')
385     &' '
386     call print_message( msgbuf, standardmessageunit,
387     & SQUEEZE_RIGHT , mythid)
388 dimitri 1.7 write(msgbuf,'(a,f12.0)')
389 dimitri 1.4 &' Net longwave flux forcing starts at ',
390 dimitri 1.7 & lwfluxstartdate
391 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
392     & SQUEEZE_RIGHT , mythid)
393 dimitri 1.7 write(msgbuf,'(a,f12.0)')
394 dimitri 1.4 &' Net longwave flux forcing period is ',
395 dimitri 1.7 & lwfluxperiod
396 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
397     & SQUEEZE_RIGHT , mythid)
398     write(msgbuf,'(a)')
399 dimitri 1.4 &' Net longwave flux forcing is read from file:'
400 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
401     & SQUEEZE_RIGHT , mythid)
402     write(msgbuf,'(a,a,a)')
403 dimitri 1.4 &' >> ',lwfluxfile(1:il),' <<'
404 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
405     & SQUEEZE_RIGHT , mythid)
406    
407 dimitri 1.4 c-- Precipitation.
408     il = ilnblnk(precipfile)
409 heimbach 1.1 write(msgbuf,'(a)')
410     &' '
411     call print_message( msgbuf, standardmessageunit,
412     & SQUEEZE_RIGHT , mythid)
413 dimitri 1.7 write(msgbuf,'(a,f12.0)')
414 dimitri 1.4 &' Precipitation data set starts at ',
415 dimitri 1.7 & precipstartdate
416 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
417     & SQUEEZE_RIGHT , mythid)
418 dimitri 1.7 write(msgbuf,'(a,f12.0)')
419 dimitri 1.4 &' Precipitation data period is ',
420 dimitri 1.7 & precipperiod
421 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
422     & SQUEEZE_RIGHT , mythid)
423     write(msgbuf,'(a)')
424 dimitri 1.4 &' Precipitation data is read from file: '
425 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
426     & SQUEEZE_RIGHT , mythid)
427     write(msgbuf,'(a,a,a)')
428 dimitri 1.4 &' >> ',precipfile(1:il),' <<'
429 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
430     & SQUEEZE_RIGHT , mythid)
431 dimitri 1.4 #endif
432 heimbach 1.1
433 dimitri 1.4 #ifdef EXF_READ_EVAP
434     c-- Evaporation.
435 heimbach 1.1 write(msgbuf,'(a)')
436 dimitri 1.4 &'// EXF_READ_EVAP: defined'
437 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
438     & SQUEEZE_RIGHT , mythid)
439 dimitri 1.4 il = ilnblnk(evapfile)
440 heimbach 1.1 write(msgbuf,'(a)')
441     &' '
442     call print_message( msgbuf, standardmessageunit,
443     & SQUEEZE_RIGHT , mythid)
444 dimitri 1.7 write(msgbuf,'(a,f12.0)')
445 dimitri 1.4 &' Evaporation starts at ',
446 dimitri 1.7 & evapstartdate
447 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
448     & SQUEEZE_RIGHT , mythid)
449 dimitri 1.7 write(msgbuf,'(a,f12.0)')
450 dimitri 1.4 &' Evaporation period is ',
451 dimitri 1.7 & evapperiod
452 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
453     & SQUEEZE_RIGHT , mythid)
454     write(msgbuf,'(a)')
455 dimitri 1.4 &' Evaporation is read from file:'
456 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
457     & SQUEEZE_RIGHT , mythid)
458     write(msgbuf,'(a,a,a)')
459 dimitri 1.4 &' >> ',evapfile(1:il),' <<'
460 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
461     & SQUEEZE_RIGHT , mythid)
462 dimitri 1.4 #else
463 heimbach 1.1 write(msgbuf,'(a)')
464 dimitri 1.4 &'// EXF_READ_EVAP: NOT defined'
465 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
466     & SQUEEZE_RIGHT , mythid)
467 dimitri 1.4 #endif
468    
469     #ifdef ALLOW_RUNOFF
470     c-- Runoff.
471 heimbach 1.1 write(msgbuf,'(a)')
472 dimitri 1.4 &'// ALLOW_RUNOFF: defined'
473 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
474     & SQUEEZE_RIGHT , mythid)
475 dimitri 1.4 il = ilnblnk(runofffile)
476 heimbach 1.1 write(msgbuf,'(a)')
477     &' '
478     call print_message( msgbuf, standardmessageunit,
479     & SQUEEZE_RIGHT , mythid)
480 dimitri 1.7 write(msgbuf,'(a,f12.0)')
481 dimitri 1.4 &' Runnoff starts at ',
482 dimitri 1.7 & runoffstartdate
483 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
484     & SQUEEZE_RIGHT , mythid)
485 dimitri 1.7 write(msgbuf,'(a,f12.0)')
486 dimitri 1.4 &' Runoff period is ',
487 dimitri 1.7 & runoffperiod
488 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
489     & SQUEEZE_RIGHT , mythid)
490     write(msgbuf,'(a)')
491 dimitri 1.4 &' Runoff is read from file:'
492 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
493     & SQUEEZE_RIGHT , mythid)
494     write(msgbuf,'(a,a,a)')
495 dimitri 1.4 &' >> ',runofffile(1:il),' <<'
496 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
497     & SQUEEZE_RIGHT , mythid)
498 dimitri 1.4 #else /* ALLOW_RUNOFF */
499 heimbach 1.1 write(msgbuf,'(a)')
500 dimitri 1.4 &'// ALLOW_RUNOFF: NOT defined'
501 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
502     & SQUEEZE_RIGHT , mythid)
503 dimitri 1.4 #endif /* ALLOW_RUNOFF */
504 heimbach 1.1
505 dimitri 1.4 #ifdef DOWNWARD_RADIATION
506     c-- Downward shortwave.
507     il = ilnblnk(swdownfile)
508 heimbach 1.1 write(msgbuf,'(a)')
509     &' '
510     call print_message( msgbuf, standardmessageunit,
511     & SQUEEZE_RIGHT , mythid)
512 dimitri 1.7 write(msgbuf,'(a,f12.0)')
513 dimitri 1.4 &' Downward shortwave flux forcing starts at ',
514 dimitri 1.7 & swdownstartdate
515 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
516     & SQUEEZE_RIGHT , mythid)
517 dimitri 1.7 write(msgbuf,'(a,f12.0)')
518 dimitri 1.4 &' Downward shortwave flux forcing period is ',
519 dimitri 1.7 & swdownperiod
520 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
521     & SQUEEZE_RIGHT , mythid)
522     write(msgbuf,'(a)')
523 dimitri 1.4 &' Downward shortwave flux forcing is read from file:'
524 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
525     & SQUEEZE_RIGHT , mythid)
526     write(msgbuf,'(a,a,a)')
527 dimitri 1.4 &' >> ',swdownfile(1:il),' <<'
528 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
529     & SQUEEZE_RIGHT , mythid)
530    
531 dimitri 1.4 c-- Downward longwave.
532     il = ilnblnk(lwdownfile)
533 heimbach 1.1 write(msgbuf,'(a)')
534     &' '
535     call print_message( msgbuf, standardmessageunit,
536     & SQUEEZE_RIGHT , mythid)
537 dimitri 1.7 write(msgbuf,'(a,f12.0)')
538 dimitri 1.4 &' Downward longwave flux forcing starts at ',
539 dimitri 1.7 & lwdownstartdate
540 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
541     & SQUEEZE_RIGHT , mythid)
542 dimitri 1.7 write(msgbuf,'(a,f12.0)')
543 dimitri 1.4 &' Downward longwave flux forcing period is ',
544 dimitri 1.7 & lwdownperiod
545 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
546     & SQUEEZE_RIGHT , mythid)
547     write(msgbuf,'(a)')
548 dimitri 1.4 &' Downward longwave flux forcing is read from file:'
549 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
550     & SQUEEZE_RIGHT , mythid)
551     write(msgbuf,'(a,a,a)')
552 dimitri 1.4 &' >> ',lwdownfile(1:il),' <<'
553 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
554     & SQUEEZE_RIGHT , mythid)
555 dimitri 1.4 #endif
556 heimbach 1.1
557 dimitri 1.4 #ifdef ATMOSPHERIC_LOADING
558     c-- Atmospheric pressure.
559     il = ilnblnk(apressurefile)
560 heimbach 1.1 write(msgbuf,'(a)')
561     &' '
562     call print_message( msgbuf, standardmessageunit,
563     & SQUEEZE_RIGHT , mythid)
564 dimitri 1.7 write(msgbuf,'(a,f12.0)')
565 dimitri 1.4 &' Atmospheric pressure forcing starts at ',
566 dimitri 1.7 & apressurestartdate
567 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
568     & SQUEEZE_RIGHT , mythid)
569 dimitri 1.7 write(msgbuf,'(a,f12.0)')
570 dimitri 1.4 &' Atmospheric pressure forcing period is ',
571 dimitri 1.7 & apressureperiod
572 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
573     & SQUEEZE_RIGHT , mythid)
574     write(msgbuf,'(a)')
575 dimitri 1.4 &' Atmospheric pressureforcing is read from file:'
576 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
577     & SQUEEZE_RIGHT , mythid)
578     write(msgbuf,'(a,a,a)')
579 dimitri 1.4 &' >> ',apressurefile(1:il),' <<'
580 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
581     & SQUEEZE_RIGHT , mythid)
582     #endif
583    
584     write(msgbuf,'(a)')
585     &' '
586     call print_message( msgbuf, standardmessageunit,
587     & SQUEEZE_RIGHT , mythid)
588     write(msgbuf,'(a)')
589     &'// ======================================================='
590     call print_message( msgbuf, standardmessageunit,
591     & SQUEEZE_RIGHT , mythid)
592     write(msgbuf,'(a)')
593     &'// External forcing configuration >>> END <<<'
594     call print_message( msgbuf, standardmessageunit,
595     & SQUEEZE_RIGHT , mythid)
596     write(msgbuf,'(a)')
597     &'// ======================================================='
598     call print_message( msgbuf, standardmessageunit,
599     & SQUEEZE_RIGHT , mythid)
600     write(msgbuf,'(a)')
601     &' '
602     call print_message( msgbuf, standardmessageunit,
603     & SQUEEZE_RIGHT , mythid)
604    
605     end
  ViewVC Help
Powered by ViewVC 1.1.22