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