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

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

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


Revision 1.8 - (show annotations) (download)
Mon Apr 16 23:27:21 2007 UTC (17 years, 2 months 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 C $Header: $
2 C $Name: $
3
4 #include "EXF_OPTIONS.h"
5
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 c started: Christian Eckert eckert@mit.edu 11-Jan-1999
18 c
19 c changed: Christian Eckert eckert@mit.edu 12-Feb-2000
20 c - changed routine names (package prefix: exf_)
21 c
22 c changed: Patrick Heimbach heimbach@mit.edu 04-May-2000
23 c - changed the handling of precip and sflux with respect
24 c to CPP options ALLOW_BULKFORMULAE and ALLOW_ATM_TEMP
25 c
26 c changed: Dimitris Menemenlis menemenlis@jpl.nasa.gov 20-Dec-2002
27 c - modifications for using pkg/exf with pkg/seaice
28 c
29 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 #include "EXF.h"
41 #include "EXF_PARAM.h"
42
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 c-- Print settings of some CPP flags.
96
97 #ifdef ALLOW_ATM_TEMP
98 write(msgbuf,'(a)')
99 &'// ALLOW_ATM_TEMP: defined'
100 call print_message( msgbuf, standardmessageunit,
101 & SQUEEZE_RIGHT , mythid)
102 #else
103 write(msgbuf,'(a)')
104 &'// ALLOW_ATM_TEMP: NOT defined'
105 call print_message( msgbuf, standardmessageunit,
106 & SQUEEZE_RIGHT , mythid)
107 #endif
108
109 #ifdef ALLOW_ATM_WIND
110 write(msgbuf,'(a)')
111 &'// 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
121 #ifdef ALLOW_DOWNWARD_RADIATION
122 write(msgbuf,'(a)')
123 &'// ALLOW_DOWNWARD_RADIATION: defined'
124 call print_message( msgbuf, standardmessageunit,
125 & SQUEEZE_RIGHT , mythid)
126 #else
127 write(msgbuf,'(a)')
128 &'// ALLOW_DOWNWARD_RADIATION: NOT defined'
129 call print_message( msgbuf, standardmessageunit,
130 & SQUEEZE_RIGHT , mythid)
131 #endif
132
133 #ifdef ALLOW_BULKFORMULAE
134 write(msgbuf,'(a)')
135 &'// ALLOW_BULKFORMULAE: defined'
136 call print_message( msgbuf, standardmessageunit,
137 & SQUEEZE_RIGHT , mythid)
138 #else
139 write(msgbuf,'(a)')
140 &'// ALLOW_BULKFORMULAE: NOT defined'
141 call print_message( msgbuf, standardmessageunit,
142 & SQUEEZE_RIGHT , mythid)
143 #endif
144
145 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
148 #ifndef ALLOW_ATM_WIND
149 c-- Zonal wind stress.
150 il = ilnblnk(ustressfile)
151 write(msgbuf,'(a)')
152 &' '
153 call print_message( msgbuf, standardmessageunit,
154 & SQUEEZE_RIGHT , mythid)
155 write(msgbuf,'(a,f12.0)')
156 &' Zonal wind stress forcing starts at ',
157 & ustressstartdate
158 call print_message( msgbuf, standardmessageunit,
159 & SQUEEZE_RIGHT , mythid)
160 write(msgbuf,'(a,f12.0)')
161 &' Zonal wind stress forcing period is ',
162 & ustressperiod
163 call print_message( msgbuf, standardmessageunit,
164 & SQUEEZE_RIGHT , mythid)
165 write(msgbuf,'(a)')
166 &' Zonal wind stress forcing is read from file:'
167 call print_message( msgbuf, standardmessageunit,
168 & SQUEEZE_RIGHT , mythid)
169 write(msgbuf,'(a,a,a)')
170 &' >> ',ustressfile(1:il),' <<'
171 call print_message( msgbuf, standardmessageunit,
172 & SQUEEZE_RIGHT , mythid)
173
174 c-- Meridional wind stress.
175 il = ilnblnk(vstressfile)
176 write(msgbuf,'(a)')
177 &' '
178 call print_message( msgbuf, standardmessageunit,
179 & SQUEEZE_RIGHT , mythid)
180 write(msgbuf,'(a,f12.0)')
181 &' Meridional wind stress forcing starts at ',
182 & vstressstartdate
183 call print_message( msgbuf, standardmessageunit,
184 & SQUEEZE_RIGHT , mythid)
185 write(msgbuf,'(a,f12.0)')
186 &' Meridional wind stress forcing period is ',
187 & vstressperiod
188 call print_message( msgbuf, standardmessageunit,
189 & SQUEEZE_RIGHT , mythid)
190 write(msgbuf,'(a)')
191 &' Meridional wind stress forcing is read from file:'
192 call print_message( msgbuf, standardmessageunit,
193 & SQUEEZE_RIGHT , mythid)
194 write(msgbuf,'(a,a,a)')
195 &' >> ',vstressfile(1:il),' <<'
196 call print_message( msgbuf, standardmessageunit,
197 & SQUEEZE_RIGHT , mythid)
198 #endif
199
200 #ifndef ALLOW_ATM_TEMP
201 c-- Heat flux.
202 il = ilnblnk(hfluxfile)
203 write(msgbuf,'(a)')
204 &' '
205 call print_message( msgbuf, standardmessageunit,
206 & SQUEEZE_RIGHT , mythid)
207 write(msgbuf,'(a,f12.0)')
208 &' Heat flux forcing starts at ',
209 & hfluxstartdate
210 call print_message( msgbuf, standardmessageunit,
211 & SQUEEZE_RIGHT , mythid)
212 write(msgbuf,'(a,f12.0)')
213 &' Heat flux forcing period is ',
214 & hfluxperiod
215 call print_message( msgbuf, standardmessageunit,
216 & SQUEEZE_RIGHT , mythid)
217 write(msgbuf,'(a)')
218 &' Heat flux forcing is read from file: '
219 call print_message( msgbuf, standardmessageunit,
220 & SQUEEZE_RIGHT , mythid)
221 write(msgbuf,'(a,a,a)')
222 &' >> ',hfluxfile(1:il),' <<'
223 call print_message( msgbuf, standardmessageunit,
224 & SQUEEZE_RIGHT , mythid)
225
226 c-- Salt flux.
227 il = ilnblnk(sfluxfile)
228 write(msgbuf,'(a)')
229 &' '
230 call print_message( msgbuf, standardmessageunit,
231 & SQUEEZE_RIGHT , mythid)
232 write(msgbuf,'(a,f12.0)')
233 &' Salt flux forcing starts at ',
234 & sfluxstartdate
235 call print_message( msgbuf, standardmessageunit,
236 & SQUEEZE_RIGHT , mythid)
237 write(msgbuf,'(a,f12.0)')
238 &' Salt flux forcing period is ',
239 & sfluxperiod
240 call print_message( msgbuf, standardmessageunit,
241 & SQUEEZE_RIGHT , mythid)
242 write(msgbuf,'(a)')
243 &' Salt flux forcing is read from file: '
244 call print_message( msgbuf, standardmessageunit,
245 & SQUEEZE_RIGHT , mythid)
246 write(msgbuf,'(a,a,a)')
247 &' >> ',sfluxfile(1:il),' <<'
248 call print_message( msgbuf, standardmessageunit,
249 & SQUEEZE_RIGHT , mythid)
250 #endif
251
252 #if defined(ALLOW_ATM_TEMP) || defined(SHORTWAVE_HEATING)
253 c-- Net shortwave.
254 il = ilnblnk(swfluxfile)
255 write(msgbuf,'(a)')
256 &' '
257 call print_message( msgbuf, standardmessageunit,
258 & SQUEEZE_RIGHT , mythid)
259 write(msgbuf,'(a,f12.0)')
260 &' Net shortwave flux forcing starts at ',
261 & swfluxstartdate
262 call print_message( msgbuf, standardmessageunit,
263 & SQUEEZE_RIGHT , mythid)
264 write(msgbuf,'(a,f12.0)')
265 &' Net shortwave flux forcing period is ',
266 & swfluxperiod
267 call print_message( msgbuf, standardmessageunit,
268 & SQUEEZE_RIGHT , mythid)
269 write(msgbuf,'(a)')
270 &' Net shortwave flux forcing is read from file:'
271 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 #endif
278
279 #ifdef ALLOW_ATM_WIND
280 c-- Zonal wind.
281 il = ilnblnk(uwindfile)
282 write(msgbuf,'(a)')
283 &' '
284 call print_message( msgbuf, standardmessageunit,
285 & SQUEEZE_RIGHT , mythid)
286 write(msgbuf,'(a,f12.0)')
287 &' Zonal wind forcing starts at ',
288 & uwindstartdate
289 call print_message( msgbuf, standardmessageunit,
290 & SQUEEZE_RIGHT , mythid)
291 write(msgbuf,'(a,f12.0)')
292 &' Zonal wind forcing period is ',
293 & uwindperiod
294 call print_message( msgbuf, standardmessageunit,
295 & SQUEEZE_RIGHT , mythid)
296 write(msgbuf,'(a)')
297 &' Zonal wind forcing is read from file:'
298 call print_message( msgbuf, standardmessageunit,
299 & SQUEEZE_RIGHT , mythid)
300 write(msgbuf,'(a,a,a)')
301 &' >> ',uwindfile(1:il),' <<'
302 call print_message( msgbuf, standardmessageunit,
303 & SQUEEZE_RIGHT , mythid)
304
305 c-- Meridional wind.
306 il = ilnblnk(vwindfile)
307 write(msgbuf,'(a)')
308 &' '
309 call print_message( msgbuf, standardmessageunit,
310 & SQUEEZE_RIGHT , mythid)
311 write(msgbuf,'(a,f12.0)')
312 &' Meridional wind forcing starts at ',
313 & vwindstartdate
314 call print_message( msgbuf, standardmessageunit,
315 & SQUEEZE_RIGHT , mythid)
316 write(msgbuf,'(a,f12.0)')
317 &' Meridional wind forcing period is ',
318 & vwindperiod
319 call print_message( msgbuf, standardmessageunit,
320 & SQUEEZE_RIGHT , mythid)
321 write(msgbuf,'(a)')
322 &' Meridional wind forcing is read from file:'
323 call print_message( msgbuf, standardmessageunit,
324 & SQUEEZE_RIGHT , mythid)
325 write(msgbuf,'(a,a,a)')
326 &' >> ',vwindfile(1:il),' <<'
327 call print_message( msgbuf, standardmessageunit,
328 & SQUEEZE_RIGHT , mythid)
329 #endif
330
331 #ifdef ALLOW_ATM_TEMP
332 c-- Atmospheric temperature.
333 il = ilnblnk(atempfile)
334 write(msgbuf,'(a)')
335 &' '
336 call print_message( msgbuf, standardmessageunit,
337 & SQUEEZE_RIGHT , mythid)
338 write(msgbuf,'(a,f12.0)')
339 &' Atmospheric temperature starts at ',
340 & atempstartdate
341 call print_message( msgbuf, standardmessageunit,
342 & SQUEEZE_RIGHT , mythid)
343 write(msgbuf,'(a,f12.0)')
344 &' Atmospheric temperature period is ',
345 & atempperiod
346 call print_message( msgbuf, standardmessageunit,
347 & SQUEEZE_RIGHT , mythid)
348 write(msgbuf,'(a)')
349 &' Atmospheric temperature is read from file:'
350 call print_message( msgbuf, standardmessageunit,
351 & SQUEEZE_RIGHT , mythid)
352 write(msgbuf,'(a,a,a)')
353 &' >> ',atempfile(1:il),' <<'
354 call print_message( msgbuf, standardmessageunit,
355 & SQUEEZE_RIGHT , mythid)
356
357 c-- Atmospheric specific humidity.
358 il = ilnblnk(aqhfile)
359 write(msgbuf,'(a)')
360 &' '
361 call print_message( msgbuf, standardmessageunit,
362 & SQUEEZE_RIGHT , mythid)
363 write(msgbuf,'(a,f12.0)')
364 &' Atmospheric specific humidity starts at ',
365 & aqhstartdate
366 call print_message( msgbuf, standardmessageunit,
367 & SQUEEZE_RIGHT , mythid)
368 write(msgbuf,'(a,f12.0)')
369 &' Atmospheric specific humidity period is ',
370 & aqhperiod
371 call print_message( msgbuf, standardmessageunit,
372 & SQUEEZE_RIGHT , mythid)
373 write(msgbuf,'(a)')
374 &' Atmospheric specific humidity is read from file:'
375 call print_message( msgbuf, standardmessageunit,
376 & SQUEEZE_RIGHT , mythid)
377 write(msgbuf,'(a,a,a)')
378 &' >> ',aqhfile(1:il),' <<'
379 call print_message( msgbuf, standardmessageunit,
380 & SQUEEZE_RIGHT , mythid)
381
382 c-- Net longwave.
383 il = ilnblnk(lwfluxfile)
384 write(msgbuf,'(a)')
385 &' '
386 call print_message( msgbuf, standardmessageunit,
387 & SQUEEZE_RIGHT , mythid)
388 write(msgbuf,'(a,f12.0)')
389 &' Net longwave flux forcing starts at ',
390 & lwfluxstartdate
391 call print_message( msgbuf, standardmessageunit,
392 & SQUEEZE_RIGHT , mythid)
393 write(msgbuf,'(a,f12.0)')
394 &' Net longwave flux forcing period is ',
395 & lwfluxperiod
396 call print_message( msgbuf, standardmessageunit,
397 & SQUEEZE_RIGHT , mythid)
398 write(msgbuf,'(a)')
399 &' Net longwave flux forcing is read from file:'
400 call print_message( msgbuf, standardmessageunit,
401 & SQUEEZE_RIGHT , mythid)
402 write(msgbuf,'(a,a,a)')
403 &' >> ',lwfluxfile(1:il),' <<'
404 call print_message( msgbuf, standardmessageunit,
405 & SQUEEZE_RIGHT , mythid)
406
407 c-- Precipitation.
408 il = ilnblnk(precipfile)
409 write(msgbuf,'(a)')
410 &' '
411 call print_message( msgbuf, standardmessageunit,
412 & SQUEEZE_RIGHT , mythid)
413 write(msgbuf,'(a,f12.0)')
414 &' Precipitation data set starts at ',
415 & precipstartdate
416 call print_message( msgbuf, standardmessageunit,
417 & SQUEEZE_RIGHT , mythid)
418 write(msgbuf,'(a,f12.0)')
419 &' Precipitation data period is ',
420 & precipperiod
421 call print_message( msgbuf, standardmessageunit,
422 & SQUEEZE_RIGHT , mythid)
423 write(msgbuf,'(a)')
424 &' Precipitation data is read from file: '
425 call print_message( msgbuf, standardmessageunit,
426 & SQUEEZE_RIGHT , mythid)
427 write(msgbuf,'(a,a,a)')
428 &' >> ',precipfile(1:il),' <<'
429 call print_message( msgbuf, standardmessageunit,
430 & SQUEEZE_RIGHT , mythid)
431 #endif
432
433 #ifdef EXF_READ_EVAP
434 c-- Evaporation.
435 write(msgbuf,'(a)')
436 &'// EXF_READ_EVAP: defined'
437 call print_message( msgbuf, standardmessageunit,
438 & SQUEEZE_RIGHT , mythid)
439 il = ilnblnk(evapfile)
440 write(msgbuf,'(a)')
441 &' '
442 call print_message( msgbuf, standardmessageunit,
443 & SQUEEZE_RIGHT , mythid)
444 write(msgbuf,'(a,f12.0)')
445 &' Evaporation starts at ',
446 & evapstartdate
447 call print_message( msgbuf, standardmessageunit,
448 & SQUEEZE_RIGHT , mythid)
449 write(msgbuf,'(a,f12.0)')
450 &' Evaporation period is ',
451 & evapperiod
452 call print_message( msgbuf, standardmessageunit,
453 & SQUEEZE_RIGHT , mythid)
454 write(msgbuf,'(a)')
455 &' Evaporation is read from file:'
456 call print_message( msgbuf, standardmessageunit,
457 & SQUEEZE_RIGHT , mythid)
458 write(msgbuf,'(a,a,a)')
459 &' >> ',evapfile(1:il),' <<'
460 call print_message( msgbuf, standardmessageunit,
461 & SQUEEZE_RIGHT , mythid)
462 #else
463 write(msgbuf,'(a)')
464 &'// EXF_READ_EVAP: NOT defined'
465 call print_message( msgbuf, standardmessageunit,
466 & SQUEEZE_RIGHT , mythid)
467 #endif
468
469 #ifdef ALLOW_RUNOFF
470 c-- Runoff.
471 write(msgbuf,'(a)')
472 &'// ALLOW_RUNOFF: defined'
473 call print_message( msgbuf, standardmessageunit,
474 & SQUEEZE_RIGHT , mythid)
475 il = ilnblnk(runofffile)
476 write(msgbuf,'(a)')
477 &' '
478 call print_message( msgbuf, standardmessageunit,
479 & SQUEEZE_RIGHT , mythid)
480 write(msgbuf,'(a,f12.0)')
481 &' Runnoff starts at ',
482 & runoffstartdate
483 call print_message( msgbuf, standardmessageunit,
484 & SQUEEZE_RIGHT , mythid)
485 write(msgbuf,'(a,f12.0)')
486 &' Runoff period is ',
487 & runoffperiod
488 call print_message( msgbuf, standardmessageunit,
489 & SQUEEZE_RIGHT , mythid)
490 write(msgbuf,'(a)')
491 &' Runoff is read from file:'
492 call print_message( msgbuf, standardmessageunit,
493 & SQUEEZE_RIGHT , mythid)
494 write(msgbuf,'(a,a,a)')
495 &' >> ',runofffile(1:il),' <<'
496 call print_message( msgbuf, standardmessageunit,
497 & SQUEEZE_RIGHT , mythid)
498 #else /* ALLOW_RUNOFF */
499 write(msgbuf,'(a)')
500 &'// ALLOW_RUNOFF: NOT defined'
501 call print_message( msgbuf, standardmessageunit,
502 & SQUEEZE_RIGHT , mythid)
503 #endif /* ALLOW_RUNOFF */
504
505 #ifdef DOWNWARD_RADIATION
506 c-- Downward shortwave.
507 il = ilnblnk(swdownfile)
508 write(msgbuf,'(a)')
509 &' '
510 call print_message( msgbuf, standardmessageunit,
511 & SQUEEZE_RIGHT , mythid)
512 write(msgbuf,'(a,f12.0)')
513 &' Downward shortwave flux forcing starts at ',
514 & swdownstartdate
515 call print_message( msgbuf, standardmessageunit,
516 & SQUEEZE_RIGHT , mythid)
517 write(msgbuf,'(a,f12.0)')
518 &' Downward shortwave flux forcing period is ',
519 & swdownperiod
520 call print_message( msgbuf, standardmessageunit,
521 & SQUEEZE_RIGHT , mythid)
522 write(msgbuf,'(a)')
523 &' Downward shortwave flux forcing is read from file:'
524 call print_message( msgbuf, standardmessageunit,
525 & SQUEEZE_RIGHT , mythid)
526 write(msgbuf,'(a,a,a)')
527 &' >> ',swdownfile(1:il),' <<'
528 call print_message( msgbuf, standardmessageunit,
529 & SQUEEZE_RIGHT , mythid)
530
531 c-- Downward longwave.
532 il = ilnblnk(lwdownfile)
533 write(msgbuf,'(a)')
534 &' '
535 call print_message( msgbuf, standardmessageunit,
536 & SQUEEZE_RIGHT , mythid)
537 write(msgbuf,'(a,f12.0)')
538 &' Downward longwave flux forcing starts at ',
539 & lwdownstartdate
540 call print_message( msgbuf, standardmessageunit,
541 & SQUEEZE_RIGHT , mythid)
542 write(msgbuf,'(a,f12.0)')
543 &' Downward longwave flux forcing period is ',
544 & lwdownperiod
545 call print_message( msgbuf, standardmessageunit,
546 & SQUEEZE_RIGHT , mythid)
547 write(msgbuf,'(a)')
548 &' Downward longwave flux forcing is read from file:'
549 call print_message( msgbuf, standardmessageunit,
550 & SQUEEZE_RIGHT , mythid)
551 write(msgbuf,'(a,a,a)')
552 &' >> ',lwdownfile(1:il),' <<'
553 call print_message( msgbuf, standardmessageunit,
554 & SQUEEZE_RIGHT , mythid)
555 #endif
556
557 #ifdef ATMOSPHERIC_LOADING
558 c-- Atmospheric pressure.
559 il = ilnblnk(apressurefile)
560 write(msgbuf,'(a)')
561 &' '
562 call print_message( msgbuf, standardmessageunit,
563 & SQUEEZE_RIGHT , mythid)
564 write(msgbuf,'(a,f12.0)')
565 &' Atmospheric pressure forcing starts at ',
566 & apressurestartdate
567 call print_message( msgbuf, standardmessageunit,
568 & SQUEEZE_RIGHT , mythid)
569 write(msgbuf,'(a,f12.0)')
570 &' Atmospheric pressure forcing period is ',
571 & apressureperiod
572 call print_message( msgbuf, standardmessageunit,
573 & SQUEEZE_RIGHT , mythid)
574 write(msgbuf,'(a)')
575 &' Atmospheric pressureforcing is read from file:'
576 call print_message( msgbuf, standardmessageunit,
577 & SQUEEZE_RIGHT , mythid)
578 write(msgbuf,'(a,a,a)')
579 &' >> ',apressurefile(1:il),' <<'
580 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