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