/[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.7 - (hide annotations) (download)
Mon Oct 20 06:25:16 2003 UTC (20 years, 8 months ago) by dimitri
Branch: MAIN
CVS Tags: checkpoint57m_post, checkpoint52l_pre, hrcube4, hrcube5, checkpoint57g_pre, checkpoint57s_post, checkpoint58b_post, checkpoint57b_post, checkpoint52d_pre, checkpoint57g_post, checkpoint56b_post, checkpoint57y_post, checkpoint52j_pre, checkpoint51o_pre, checkpoint54d_post, checkpoint54e_post, checkpoint51l_post, checkpoint57r_post, checkpoint57d_post, checkpoint57i_post, checkpoint52l_post, checkpoint52k_post, checkpoint58, checkpoint55, checkpoint54, checkpoint57, checkpoint56, checkpoint53, checkpoint52, checkpoint58f_post, checkpoint52f_post, checkpoint57n_post, checkpoint58d_post, checkpoint58a_post, checkpoint57z_post, checkpoint54f_post, checkpoint58y_post, checkpoint51t_post, checkpoint58t_post, checkpoint51n_post, checkpoint55i_post, checkpoint58m_post, checkpoint57l_post, checkpoint52i_pre, hrcube_1, hrcube_2, hrcube_3, checkpoint51s_post, checkpoint57t_post, checkpoint55c_post, checkpoint52e_pre, checkpoint57v_post, checkpoint57f_post, checkpoint52e_post, checkpoint51n_pre, checkpoint53d_post, checkpoint57a_post, checkpoint57h_pre, checkpoint52b_pre, checkpoint54b_post, checkpoint58w_post, checkpoint57h_post, checkpoint52m_post, checkpoint57y_pre, checkpoint55g_post, checkpoint51q_post, checkpoint52b_post, checkpoint52c_post, checkpoint58o_post, checkpoint57c_post, checkpoint58p_post, checkpoint58q_post, checkpoint52f_pre, checkpoint55d_post, checkpoint58e_post, checkpoint54a_pre, checkpoint53c_post, checkpoint55d_pre, checkpoint57c_pre, checkpoint58r_post, checkpoint55j_post, checkpoint54a_post, checkpoint55h_post, checkpoint58n_post, checkpoint51r_post, checkpoint57e_post, checkpoint55b_post, checkpoint53a_post, checkpoint55f_post, checkpoint52d_post, checkpoint53g_post, checkpoint57p_post, checkpint57u_post, checkpoint57q_post, eckpoint57e_pre, checkpoint58k_post, checkpoint52a_pre, checkpoint58v_post, checkpoint52i_post, checkpoint52h_pre, checkpoint56a_post, checkpoint58l_post, checkpoint53f_post, checkpoint57h_done, checkpoint52j_post, checkpoint57j_post, checkpoint57f_pre, checkpoint58g_post, branch-netcdf, checkpoint58x_post, checkpoint52n_post, checkpoint53b_pre, checkpoint58h_post, checkpoint56c_post, checkpoint58j_post, checkpoint57a_pre, checkpoint55a_post, checkpoint57o_post, checkpoint51o_post, checkpoint57k_post, checkpoint53b_post, checkpoint52a_post, checkpoint57w_post, checkpoint58i_post, ecco_c52_e35, checkpoint57x_post, checkpoint58c_post, checkpoint58u_post, checkpoint51m_post, checkpoint53d_pre, checkpoint58s_post, checkpoint55e_post, checkpoint54c_post, checkpoint51p_post, checkpoint51u_post
Branch point for: branch-nonh, netcdf-sm0, checkpoint51n_branch
Changes since 1.6: +65 -99 lines 
changes to pkg/cal and pkg/exf that allow and speed-up long integrations
1 dimitri 1.7 c $Header: /usr/local/gcmpack/MITgcm/pkg/exf/exf_summary.F,v 1.6 2003/10/09 04:19:19 edhill Exp $
2 heimbach 1.1
3 edhill 1.6 #include "EXF_OPTIONS.h"
4 heimbach 1.1
5    
6     subroutine exf_Summary(
7     I mythid
8     & )
9    
10     c ==================================================================
11     c SUBROUTINE exf_Summary
12     c ==================================================================
13     c
14     c o List all the settings of the external forcing.
15     c
16 dimitri 1.4 c started: Christian Eckert eckert@mit.edu 11-Jan-1999
17 heimbach 1.1 c
18 dimitri 1.4 c changed: Christian Eckert eckert@mit.edu 12-Feb-2000
19     c - changed routine names (package prefix: exf_)
20 heimbach 1.1 c
21 dimitri 1.4 c changed: Patrick Heimbach heimbach@mit.edu 04-May-2000
22 heimbach 1.1 c - changed the handling of precip and sflux with respect
23     c to CPP options ALLOW_BULKFORMULAE and ALLOW_ATM_TEMP
24     c
25 dimitri 1.4 c changed: Dimitris Menemenlis menemenlis@jpl.nasa.gov 20-Dec-2002
26     c - modifications for using pkg/exf with pkg/seaice
27 dimitri 1.3 c
28 heimbach 1.1 c ==================================================================
29     c SUBROUTINE exf_Summary
30     c ==================================================================
31    
32     implicit none
33    
34     c == global variables ==
35    
36     #include "EEPARAMS.h"
37     #include "SIZE.h"
38     #include "cal.h"
39     #include "exf.h"
40     #include "exf_param.h"
41    
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,a)')
82     &'External forcing version: ',externalforcingversion
83     call print_message( msgbuf, standardmessageunit,
84     & SQUEEZE_RIGHT , mythid)
85     write(msgbuf,'(a,a)')
86     &'Uses Calendar version: ',usescalendarversion
87     call print_message( msgbuf, standardmessageunit,
88     & SQUEEZE_RIGHT , mythid)
89     write(msgbuf,'(a)')
90     &' '
91     call print_message( msgbuf, standardmessageunit,
92     & SQUEEZE_RIGHT , mythid)
93    
94 dimitri 1.4 c-- Print settings of some CPP flags.
95 heimbach 1.1
96     #ifdef ALLOW_ATM_TEMP
97     write(msgbuf,'(a)')
98 dimitri 1.3 &'// ALLOW_ATM_TEMP: defined'
99 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
100     & SQUEEZE_RIGHT , mythid)
101     #else
102     write(msgbuf,'(a)')
103 dimitri 1.3 &'// ALLOW_ATM_TEMP: NOT defined'
104 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
105     & SQUEEZE_RIGHT , mythid)
106     #endif
107 dimitri 1.4
108 heimbach 1.1 #ifdef ALLOW_ATM_WIND
109     write(msgbuf,'(a)')
110 dimitri 1.3 &'// ALLOW_ATM_WIND: defined'
111     call print_message( msgbuf, standardmessageunit,
112     & SQUEEZE_RIGHT , mythid)
113     #else
114     write(msgbuf,'(a)')
115     &'// ALLOW_ATM_WIND: NOT defined'
116     call print_message( msgbuf, standardmessageunit,
117     & SQUEEZE_RIGHT , mythid)
118     #endif
119 dimitri 1.4
120     #ifdef ALLOW_DOWNWARD_RADIATION
121 dimitri 1.3 write(msgbuf,'(a)')
122 dimitri 1.4 &'// ALLOW_DOWNWARD_RADIATION: defined'
123 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
124     & SQUEEZE_RIGHT , mythid)
125     #else
126     write(msgbuf,'(a)')
127 dimitri 1.5 &'// ALLOW_DOWNWARD_RADIATION: NOT defined'
128 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
129     & SQUEEZE_RIGHT , mythid)
130     #endif
131    
132 dimitri 1.4 #ifdef ALLOW_BULKFORMULAE
133 heimbach 1.1 write(msgbuf,'(a)')
134 dimitri 1.4 &'// ALLOW_BULKFORMULAE: defined'
135 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
136     & SQUEEZE_RIGHT , mythid)
137     #else
138     write(msgbuf,'(a)')
139 dimitri 1.4 &'// ALLOW_BULKFORMULAE: NOT defined'
140 heimbach 1.2 call print_message( msgbuf, standardmessageunit,
141     & SQUEEZE_RIGHT , mythid)
142     #endif
143    
144 dimitri 1.4 c-- For each data set used the summary prints the calendar data
145     c and the corresponding file from which the data will be read.
146 dimitri 1.3
147 dimitri 1.4 #ifndef ALLOW_ATM_WIND
148     c-- Zonal wind stress.
149     il = ilnblnk(ustressfile)
150 dimitri 1.3 write(msgbuf,'(a)')
151     &' '
152     call print_message( msgbuf, standardmessageunit,
153     & SQUEEZE_RIGHT , mythid)
154 dimitri 1.7 write(msgbuf,'(a,f12.0)')
155 dimitri 1.4 &' Zonal wind stress forcing starts at ',
156 dimitri 1.7 & ustressstartdate
157 dimitri 1.3 call print_message( msgbuf, standardmessageunit,
158     & SQUEEZE_RIGHT , mythid)
159 dimitri 1.7 write(msgbuf,'(a,f12.0)')
160 dimitri 1.4 &' Zonal wind stress forcing period is ',
161 dimitri 1.7 & ustressperiod
162 dimitri 1.3 call print_message( msgbuf, standardmessageunit,
163     & SQUEEZE_RIGHT , mythid)
164     write(msgbuf,'(a)')
165 dimitri 1.4 &' Zonal wind stress forcing is read from file:'
166 dimitri 1.3 call print_message( msgbuf, standardmessageunit,
167     & SQUEEZE_RIGHT , mythid)
168     write(msgbuf,'(a,a,a)')
169 dimitri 1.4 &' >> ',ustressfile(1:il),' <<'
170 dimitri 1.3 call print_message( msgbuf, standardmessageunit,
171     & SQUEEZE_RIGHT , mythid)
172 heimbach 1.2
173 dimitri 1.4 c-- Meridional wind stress.
174     il = ilnblnk(vstressfile)
175 heimbach 1.2 write(msgbuf,'(a)')
176     &' '
177     call print_message( msgbuf, standardmessageunit,
178     & SQUEEZE_RIGHT , mythid)
179 dimitri 1.7 write(msgbuf,'(a,f12.0)')
180 dimitri 1.4 &' Meridional wind stress forcing starts at ',
181 dimitri 1.7 & vstressstartdate
182 heimbach 1.2 call print_message( msgbuf, standardmessageunit,
183     & SQUEEZE_RIGHT , mythid)
184 dimitri 1.7 write(msgbuf,'(a,f12.0)')
185 dimitri 1.4 &' Meridional wind stress forcing period is ',
186 dimitri 1.7 & vstressperiod
187 heimbach 1.2 call print_message( msgbuf, standardmessageunit,
188     & SQUEEZE_RIGHT , mythid)
189     write(msgbuf,'(a)')
190 dimitri 1.4 &' Meridional wind stress forcing is read from file:'
191 heimbach 1.2 call print_message( msgbuf, standardmessageunit,
192     & SQUEEZE_RIGHT , mythid)
193     write(msgbuf,'(a,a,a)')
194 dimitri 1.4 &' >> ',vstressfile(1:il),' <<'
195 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
196     & SQUEEZE_RIGHT , mythid)
197 dimitri 1.4 #endif
198 heimbach 1.1
199 dimitri 1.4 #ifndef ALLOW_ATM_TEMP
200     c-- Heat flux.
201     il = ilnblnk(hfluxfile)
202 heimbach 1.1 write(msgbuf,'(a)')
203     &' '
204     call print_message( msgbuf, standardmessageunit,
205     & SQUEEZE_RIGHT , mythid)
206 dimitri 1.7 write(msgbuf,'(a,f12.0)')
207 dimitri 1.4 &' Heat flux forcing starts at ',
208 dimitri 1.7 & hfluxstartdate
209 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
210     & SQUEEZE_RIGHT , mythid)
211 dimitri 1.7 write(msgbuf,'(a,f12.0)')
212 dimitri 1.4 &' Heat flux forcing period is ',
213 dimitri 1.7 & hfluxperiod
214 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
215     & SQUEEZE_RIGHT , mythid)
216     write(msgbuf,'(a)')
217 dimitri 1.4 &' Heat flux forcing is read from file: '
218 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
219     & SQUEEZE_RIGHT , mythid)
220     write(msgbuf,'(a,a,a)')
221 dimitri 1.4 &' >> ',hfluxfile(1:il),' <<'
222 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
223     & SQUEEZE_RIGHT , mythid)
224    
225 dimitri 1.4 c-- Salt flux.
226     il = ilnblnk(sfluxfile)
227 heimbach 1.1 write(msgbuf,'(a)')
228     &' '
229     call print_message( msgbuf, standardmessageunit,
230     & SQUEEZE_RIGHT , mythid)
231 dimitri 1.7 write(msgbuf,'(a,f12.0)')
232 dimitri 1.4 &' Salt flux forcing starts at ',
233 dimitri 1.7 & sfluxstartdate
234 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
235     & SQUEEZE_RIGHT , mythid)
236 dimitri 1.7 write(msgbuf,'(a,f12.0)')
237 dimitri 1.4 &' Salt flux forcing period is ',
238 dimitri 1.7 & sfluxperiod
239 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
240     & SQUEEZE_RIGHT , mythid)
241     write(msgbuf,'(a)')
242 dimitri 1.4 &' Salt flux forcing is read from file: '
243 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
244     & SQUEEZE_RIGHT , mythid)
245     write(msgbuf,'(a,a,a)')
246 dimitri 1.4 &' >> ',sfluxfile(1:il),' <<'
247 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
248     & SQUEEZE_RIGHT , mythid)
249 dimitri 1.4 #endif
250 heimbach 1.1
251 dimitri 1.4 #if defined(ALLOW_ATM_TEMP) || defined(SHORTWAVE_HEATING)
252     c-- Net shortwave.
253 heimbach 1.1 il = ilnblnk(swfluxfile)
254     write(msgbuf,'(a)')
255     &' '
256     call print_message( msgbuf, standardmessageunit,
257     & SQUEEZE_RIGHT , mythid)
258 dimitri 1.7 write(msgbuf,'(a,f12.0)')
259 dimitri 1.4 &' Net shortwave flux forcing starts at ',
260 dimitri 1.7 & swfluxstartdate
261 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
262     & SQUEEZE_RIGHT , mythid)
263 dimitri 1.7 write(msgbuf,'(a,f12.0)')
264 dimitri 1.4 &' Net shortwave flux forcing period is ',
265 dimitri 1.7 & swfluxperiod
266 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
267     & SQUEEZE_RIGHT , mythid)
268     write(msgbuf,'(a)')
269 dimitri 1.4 &' Net shortwave flux forcing is read from file:'
270 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
271     & SQUEEZE_RIGHT , mythid)
272     write(msgbuf,'(a,a,a)')
273     &' >> ',swfluxfile(1:il),' <<'
274     call print_message( msgbuf, standardmessageunit,
275     & SQUEEZE_RIGHT , mythid)
276 dimitri 1.4 #endif
277 heimbach 1.1
278 dimitri 1.4 #ifdef ALLOW_ATM_WIND
279     c-- Zonal wind.
280     il = ilnblnk(uwindfile)
281 heimbach 1.1 write(msgbuf,'(a)')
282     &' '
283     call print_message( msgbuf, standardmessageunit,
284     & SQUEEZE_RIGHT , mythid)
285 dimitri 1.7 write(msgbuf,'(a,f12.0)')
286 dimitri 1.4 &' Zonal wind forcing starts at ',
287 dimitri 1.7 & uwindstartdate
288 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
289     & SQUEEZE_RIGHT , mythid)
290 dimitri 1.7 write(msgbuf,'(a,f12.0)')
291 dimitri 1.4 &' Zonal wind forcing period is ',
292 dimitri 1.7 & uwindperiod
293 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
294     & SQUEEZE_RIGHT , mythid)
295     write(msgbuf,'(a)')
296 dimitri 1.4 &' Zonal wind forcing is read from file:'
297 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
298     & SQUEEZE_RIGHT , mythid)
299     write(msgbuf,'(a,a,a)')
300 dimitri 1.4 &' >> ',uwindfile(1:il),' <<'
301 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
302     & SQUEEZE_RIGHT , mythid)
303    
304 dimitri 1.4 c-- Meridional wind.
305     il = ilnblnk(vwindfile)
306 heimbach 1.1 write(msgbuf,'(a)')
307     &' '
308     call print_message( msgbuf, standardmessageunit,
309     & SQUEEZE_RIGHT , mythid)
310 dimitri 1.7 write(msgbuf,'(a,f12.0)')
311 dimitri 1.4 &' Meridional wind forcing starts at ',
312 dimitri 1.7 & vwindstartdate
313 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
314     & SQUEEZE_RIGHT , mythid)
315 dimitri 1.7 write(msgbuf,'(a,f12.0)')
316 dimitri 1.4 &' Meridional wind forcing period is ',
317 dimitri 1.7 & vwindperiod
318 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
319     & SQUEEZE_RIGHT , mythid)
320     write(msgbuf,'(a)')
321 dimitri 1.4 &' Meridional wind forcing is read from file:'
322 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
323     & SQUEEZE_RIGHT , mythid)
324     write(msgbuf,'(a,a,a)')
325 dimitri 1.4 &' >> ',vwindfile(1:il),' <<'
326 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
327     & SQUEEZE_RIGHT , mythid)
328 dimitri 1.4 #endif
329 heimbach 1.1
330 dimitri 1.4 #ifdef ALLOW_ATM_TEMP
331     c-- Atmospheric temperature.
332     il = ilnblnk(atempfile)
333 heimbach 1.1 write(msgbuf,'(a)')
334     &' '
335     call print_message( msgbuf, standardmessageunit,
336     & SQUEEZE_RIGHT , mythid)
337 dimitri 1.7 write(msgbuf,'(a,f12.0)')
338 dimitri 1.4 &' Atmospheric temperature starts at ',
339 dimitri 1.7 & atempstartdate
340 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
341     & SQUEEZE_RIGHT , mythid)
342 dimitri 1.7 write(msgbuf,'(a,f12.0)')
343 dimitri 1.4 &' Atmospheric temperature period is ',
344 dimitri 1.7 & atempperiod
345 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
346     & SQUEEZE_RIGHT , mythid)
347     write(msgbuf,'(a)')
348 dimitri 1.4 &' Atmospheric temperature is read from file:'
349 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
350     & SQUEEZE_RIGHT , mythid)
351     write(msgbuf,'(a,a,a)')
352 dimitri 1.4 &' >> ',atempfile(1:il),' <<'
353 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
354     & SQUEEZE_RIGHT , mythid)
355    
356 dimitri 1.4 c-- Atmospheric specific humidity.
357     il = ilnblnk(aqhfile)
358 heimbach 1.1 write(msgbuf,'(a)')
359     &' '
360     call print_message( msgbuf, standardmessageunit,
361     & SQUEEZE_RIGHT , mythid)
362 dimitri 1.7 write(msgbuf,'(a,f12.0)')
363 dimitri 1.4 &' Atmospheric specific humidity starts at ',
364 dimitri 1.7 & aqhstartdate
365 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
366     & SQUEEZE_RIGHT , mythid)
367 dimitri 1.7 write(msgbuf,'(a,f12.0)')
368 dimitri 1.4 &' Atmospheric specific humidity period is ',
369 dimitri 1.7 & aqhperiod
370 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
371     & SQUEEZE_RIGHT , mythid)
372     write(msgbuf,'(a)')
373 dimitri 1.4 &' Atmospheric specific humidity is read from file:'
374 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
375     & SQUEEZE_RIGHT , mythid)
376     write(msgbuf,'(a,a,a)')
377 dimitri 1.4 &' >> ',aqhfile(1:il),' <<'
378 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
379     & SQUEEZE_RIGHT , mythid)
380    
381 dimitri 1.4 c-- Net longwave.
382     il = ilnblnk(lwfluxfile)
383 heimbach 1.1 write(msgbuf,'(a)')
384     &' '
385     call print_message( msgbuf, standardmessageunit,
386     & SQUEEZE_RIGHT , mythid)
387 dimitri 1.7 write(msgbuf,'(a,f12.0)')
388 dimitri 1.4 &' Net longwave flux forcing starts at ',
389 dimitri 1.7 & lwfluxstartdate
390 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
391     & SQUEEZE_RIGHT , mythid)
392 dimitri 1.7 write(msgbuf,'(a,f12.0)')
393 dimitri 1.4 &' Net longwave flux forcing period is ',
394 dimitri 1.7 & lwfluxperiod
395 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
396     & SQUEEZE_RIGHT , mythid)
397     write(msgbuf,'(a)')
398 dimitri 1.4 &' Net longwave flux forcing is read from file:'
399 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
400     & SQUEEZE_RIGHT , mythid)
401     write(msgbuf,'(a,a,a)')
402 dimitri 1.4 &' >> ',lwfluxfile(1:il),' <<'
403 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
404     & SQUEEZE_RIGHT , mythid)
405    
406 dimitri 1.4 c-- Precipitation.
407     il = ilnblnk(precipfile)
408 heimbach 1.1 write(msgbuf,'(a)')
409     &' '
410     call print_message( msgbuf, standardmessageunit,
411     & SQUEEZE_RIGHT , mythid)
412 dimitri 1.7 write(msgbuf,'(a,f12.0)')
413 dimitri 1.4 &' Precipitation data set starts at ',
414 dimitri 1.7 & precipstartdate
415 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
416     & SQUEEZE_RIGHT , mythid)
417 dimitri 1.7 write(msgbuf,'(a,f12.0)')
418 dimitri 1.4 &' Precipitation data period is ',
419 dimitri 1.7 & precipperiod
420 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
421     & SQUEEZE_RIGHT , mythid)
422     write(msgbuf,'(a)')
423 dimitri 1.4 &' Precipitation data is read from file: '
424 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
425     & SQUEEZE_RIGHT , mythid)
426     write(msgbuf,'(a,a,a)')
427 dimitri 1.4 &' >> ',precipfile(1:il),' <<'
428 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
429     & SQUEEZE_RIGHT , mythid)
430 dimitri 1.4 #endif
431 heimbach 1.1
432 dimitri 1.4 #ifdef EXF_READ_EVAP
433     c-- Evaporation.
434 heimbach 1.1 write(msgbuf,'(a)')
435 dimitri 1.4 &'// EXF_READ_EVAP: defined'
436 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
437     & SQUEEZE_RIGHT , mythid)
438 dimitri 1.4 il = ilnblnk(evapfile)
439 heimbach 1.1 write(msgbuf,'(a)')
440     &' '
441     call print_message( msgbuf, standardmessageunit,
442     & SQUEEZE_RIGHT , mythid)
443 dimitri 1.7 write(msgbuf,'(a,f12.0)')
444 dimitri 1.4 &' Evaporation starts at ',
445 dimitri 1.7 & evapstartdate
446 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
447     & SQUEEZE_RIGHT , mythid)
448 dimitri 1.7 write(msgbuf,'(a,f12.0)')
449 dimitri 1.4 &' Evaporation period is ',
450 dimitri 1.7 & evapperiod
451 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
452     & SQUEEZE_RIGHT , mythid)
453     write(msgbuf,'(a)')
454 dimitri 1.4 &' Evaporation is read from file:'
455 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
456     & SQUEEZE_RIGHT , mythid)
457     write(msgbuf,'(a,a,a)')
458 dimitri 1.4 &' >> ',evapfile(1:il),' <<'
459 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
460     & SQUEEZE_RIGHT , mythid)
461 dimitri 1.4 #else
462 heimbach 1.1 write(msgbuf,'(a)')
463 dimitri 1.4 &'// EXF_READ_EVAP: NOT defined'
464 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
465     & SQUEEZE_RIGHT , mythid)
466 dimitri 1.4 #endif
467    
468     #ifdef ALLOW_RUNOFF
469     c-- Runoff.
470 heimbach 1.1 write(msgbuf,'(a)')
471 dimitri 1.4 &'// ALLOW_RUNOFF: defined'
472 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
473     & SQUEEZE_RIGHT , mythid)
474 dimitri 1.4 il = ilnblnk(runofffile)
475 heimbach 1.1 write(msgbuf,'(a)')
476     &' '
477     call print_message( msgbuf, standardmessageunit,
478     & SQUEEZE_RIGHT , mythid)
479 dimitri 1.7 write(msgbuf,'(a,f12.0)')
480 dimitri 1.4 &' Runnoff starts at ',
481 dimitri 1.7 & runoffstartdate
482 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
483     & SQUEEZE_RIGHT , mythid)
484 dimitri 1.7 write(msgbuf,'(a,f12.0)')
485 dimitri 1.4 &' Runoff period is ',
486 dimitri 1.7 & runoffperiod
487 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
488     & SQUEEZE_RIGHT , mythid)
489     write(msgbuf,'(a)')
490 dimitri 1.4 &' Runoff is read from file:'
491 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
492     & SQUEEZE_RIGHT , mythid)
493     write(msgbuf,'(a,a,a)')
494 dimitri 1.4 &' >> ',runofffile(1:il),' <<'
495 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
496     & SQUEEZE_RIGHT , mythid)
497 dimitri 1.4 #else /* ALLOW_RUNOFF */
498 heimbach 1.1 write(msgbuf,'(a)')
499 dimitri 1.4 &'// ALLOW_RUNOFF: NOT defined'
500 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
501     & SQUEEZE_RIGHT , mythid)
502 dimitri 1.4 #endif /* ALLOW_RUNOFF */
503 heimbach 1.1
504 dimitri 1.4 #ifdef DOWNWARD_RADIATION
505     c-- Downward shortwave.
506     il = ilnblnk(swdownfile)
507 heimbach 1.1 write(msgbuf,'(a)')
508     &' '
509     call print_message( msgbuf, standardmessageunit,
510     & SQUEEZE_RIGHT , mythid)
511 dimitri 1.7 write(msgbuf,'(a,f12.0)')
512 dimitri 1.4 &' Downward shortwave flux forcing starts at ',
513 dimitri 1.7 & swdownstartdate
514 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
515     & SQUEEZE_RIGHT , mythid)
516 dimitri 1.7 write(msgbuf,'(a,f12.0)')
517 dimitri 1.4 &' Downward shortwave flux forcing period is ',
518 dimitri 1.7 & swdownperiod
519 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
520     & SQUEEZE_RIGHT , mythid)
521     write(msgbuf,'(a)')
522 dimitri 1.4 &' Downward shortwave flux forcing is read from file:'
523 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
524     & SQUEEZE_RIGHT , mythid)
525     write(msgbuf,'(a,a,a)')
526 dimitri 1.4 &' >> ',swdownfile(1:il),' <<'
527 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
528     & SQUEEZE_RIGHT , mythid)
529    
530 dimitri 1.4 c-- Downward longwave.
531     il = ilnblnk(lwdownfile)
532 heimbach 1.1 write(msgbuf,'(a)')
533     &' '
534     call print_message( msgbuf, standardmessageunit,
535     & SQUEEZE_RIGHT , mythid)
536 dimitri 1.7 write(msgbuf,'(a,f12.0)')
537 dimitri 1.4 &' Downward longwave flux forcing starts at ',
538 dimitri 1.7 & lwdownstartdate
539 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
540     & SQUEEZE_RIGHT , mythid)
541 dimitri 1.7 write(msgbuf,'(a,f12.0)')
542 dimitri 1.4 &' Downward longwave flux forcing period is ',
543 dimitri 1.7 & lwdownperiod
544 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
545     & SQUEEZE_RIGHT , mythid)
546     write(msgbuf,'(a)')
547 dimitri 1.4 &' Downward longwave flux forcing is read from file:'
548 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
549     & SQUEEZE_RIGHT , mythid)
550     write(msgbuf,'(a,a,a)')
551 dimitri 1.4 &' >> ',lwdownfile(1:il),' <<'
552 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
553     & SQUEEZE_RIGHT , mythid)
554 dimitri 1.4 #endif
555 heimbach 1.1
556 dimitri 1.4 #ifdef ATMOSPHERIC_LOADING
557     c-- Atmospheric pressure.
558     il = ilnblnk(apressurefile)
559 heimbach 1.1 write(msgbuf,'(a)')
560     &' '
561     call print_message( msgbuf, standardmessageunit,
562     & SQUEEZE_RIGHT , mythid)
563 dimitri 1.7 write(msgbuf,'(a,f12.0)')
564 dimitri 1.4 &' Atmospheric pressure forcing starts at ',
565 dimitri 1.7 & apressurestartdate
566 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
567     & SQUEEZE_RIGHT , mythid)
568 dimitri 1.7 write(msgbuf,'(a,f12.0)')
569 dimitri 1.4 &' Atmospheric pressure forcing period is ',
570 dimitri 1.7 & apressureperiod
571 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
572     & SQUEEZE_RIGHT , mythid)
573     write(msgbuf,'(a)')
574 dimitri 1.4 &' Atmospheric pressureforcing is read from file:'
575 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
576     & SQUEEZE_RIGHT , mythid)
577     write(msgbuf,'(a,a,a)')
578 dimitri 1.4 &' >> ',apressurefile(1:il),' <<'
579 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
580     & SQUEEZE_RIGHT , mythid)
581     #endif
582    
583     write(msgbuf,'(a)')
584     &' '
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     &'// External forcing configuration >>> END <<<'
593     call print_message( msgbuf, standardmessageunit,
594     & SQUEEZE_RIGHT , mythid)
595     write(msgbuf,'(a)')
596     &'// ======================================================='
597     call print_message( msgbuf, standardmessageunit,
598     & SQUEEZE_RIGHT , mythid)
599     write(msgbuf,'(a)')
600     &' '
601     call print_message( msgbuf, standardmessageunit,
602     & SQUEEZE_RIGHT , mythid)
603    
604     end
  ViewVC Help
Powered by ViewVC 1.1.22