/[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.20 - (hide annotations) (download)
Fri Jun 26 18:02:15 2009 UTC (14 years, 11 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint62c, checkpoint62a, checkpoint62d, checkpoint62, checkpoint62b, checkpoint61v, checkpoint61w, checkpoint61t, checkpoint61u, checkpoint61s, checkpoint61z, checkpoint61x, checkpoint61y
Changes since 1.19: +2 -2 lines 
fix missing ALLOW_ in an ifdef DOWNWARD_RADIATION (reported by Matt and Ganeesh)
1 jmc 1.20 C $Header: /u/gcmpack/MITgcm/pkg/exf/exf_summary.F,v 1.19 2009/04/28 23:27:24 jmc 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 jmc 1.12 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 jmc 1.12 C == global variables ==
34 heimbach 1.1
35     #include "EEPARAMS.h"
36     #include "SIZE.h"
37     #include "cal.h"
38 jmc 1.12 #include "EXF_CONSTANTS.h"
39 jmc 1.8 #include "EXF_PARAM.h"
40 heimbach 1.1
41 jmc 1.12 C == routine arguments ==
42 heimbach 1.1
43 jmc 1.12 C myThid - thread number for this instance of the routine.
44 heimbach 1.1
45 jmc 1.12 integer myThid
46 heimbach 1.1
47 jmc 1.12 C == local variables ==
48 heimbach 1.1
49     integer il
50    
51     character*(max_len_mbuf) msgbuf
52    
53 jmc 1.12 C == external ==
54 heimbach 1.1
55     integer ilnblnk
56     external ilnblnk
57    
58 jmc 1.12 C == end of interface ==
59 heimbach 1.1
60 jmc 1.12 _BEGIN_MASTER( myThid )
61    
62     write(msgbuf,'(a)') ' '
63 heimbach 1.1 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 jmc 1.12 write(msgbuf,'(a)') ' '
78 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
79     & SQUEEZE_RIGHT , mythid)
80    
81 jmc 1.12 C-- Print general parameters:
82     WRITE(msgBuf,'(A)') ' EXF general parameters:'
83     CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
84     & SQUEEZE_RIGHT , myThid )
85     WRITE(msgBuf,'(A)') ' '
86     CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
87     & SQUEEZE_RIGHT , myThid )
88     CALL WRITE_0D_C( exf_yftype, 0, INDEX_NONE, 'exf_yftype = ',
89     & ' /* ? */')
90     CALL WRITE_0D_I( exf_iprec, INDEX_NONE, 'exf_iprec =',
91     & ' /* exf file precision */')
92     CALL WRITE_0D_L( useExfYearlyFields, INDEX_NONE,
93     & 'useExfYearlyFields =',
94     & ' /* add extension _YEAR to input file names */')
95     CALL WRITE_0D_L( twoDigitYear, INDEX_NONE, 'twoDigitYear =',
96     & ' /* use 2-digit year extension */')
97     CALL WRITE_0D_L( useExfCheckRange, INDEX_NONE,
98     & 'useExfCheckRange =',
99     & ' /* check for fields range */')
100 jmc 1.19 CALL WRITE_0D_RL( exf_monFreq, INDEX_NONE, 'exf_monFreq =',
101 jmc 1.12 & ' /* EXF monitor frequency [ s ] */')
102 jmc 1.19 CALL WRITE_0D_RL( repeatPeriod, INDEX_NONE, 'repeatPeriod =',
103 jmc 1.12 & ' /* period for cycling forcing dataset [ s ] */')
104 jmc 1.19 CALL WRITE_0D_RL( climtempfreeze, INDEX_NONE,'climTempFreeze=',
105 jmc 1.12 & ' /* Minimum climatological temperature [deg.C] */')
106 jmc 1.19 CALL WRITE_0D_RL( windStressMax, INDEX_NONE,'windStressMax =',
107 jmc 1.12 & ' /* Maximum absolute windstress [ Pa ] */')
108 jmc 1.15 CALL WRITE_0D_L( stressIsOnCgrid,INDEX_NONE,'stressIsOnCgrid =',
109     & ' /* set u,v_stress on Arakawa C-grid */')
110 jmc 1.19 CALL WRITE_0D_RL( cen2kel, INDEX_NONE, 'cen2kel =',
111 jmc 1.13 & ' /* conversion of deg. Centigrade to Kelvin [K] */')
112 jmc 1.19 CALL WRITE_0D_RL( gravity_mks, INDEX_NONE, 'gravity_mks=',
113 jmc 1.13 & ' /* gravitational acceleration [m/s^2] */')
114 jmc 1.19 CALL WRITE_0D_RL( atmrho, INDEX_NONE, 'atmrho =',
115 jmc 1.12 & ' /* mean atmospheric density [kg/m^3] */')
116 jmc 1.19 CALL WRITE_0D_RL( atmcp, INDEX_NONE, 'atmcp =',
117 jmc 1.12 & ' /* mean atmospheric specific heat [J/kg/K] */')
118 jmc 1.19 CALL WRITE_0D_RL( flamb, INDEX_NONE, 'flamb =',
119 jmc 1.12 & ' /* latent heat of evaporation [J/kg] */')
120 jmc 1.19 CALL WRITE_0D_RL( flami, INDEX_NONE, 'flami =',
121 jmc 1.12 & ' /* latent heat of pure-ice melting [J/kg] */')
122 jmc 1.19 CALL WRITE_0D_RL( cvapor_fac, INDEX_NONE, 'cvapor_fac =',
123 jmc 1.12 & ' /* const. for Saturation calculation [?] */')
124 jmc 1.19 CALL WRITE_0D_RL( cvapor_exp, INDEX_NONE, 'cvapor_exp =',
125 jmc 1.12 & ' /* const. for Saturation calculation [?] */')
126 jmc 1.19 CALL WRITE_0D_RL( cvapor_fac_ice, INDEX_NONE, 'cvapor_fac_ice=',
127 jmc 1.12 & ' /* const. for Saturation calculation [?] */')
128 jmc 1.19 CALL WRITE_0D_RL( cvapor_exp_ice, INDEX_NONE, 'cvapor_exp_ice=',
129 jmc 1.12 & ' /* const. for Saturation calculation [?] */')
130 jmc 1.19 CALL WRITE_0D_RL( humid_fac, INDEX_NONE, 'humid_fac =',
131 jmc 1.12 & ' /* humidity coef. in virtual temp. [(kg/kg)^-1] */')
132 jmc 1.19 CALL WRITE_0D_RL( gamma_blk, INDEX_NONE, 'gamma_blk =',
133 jmc 1.12 & ' /* adiabatic lapse rate [?] */')
134 jmc 1.19 CALL WRITE_0D_RL( saltsat, INDEX_NONE, 'saltsat =',
135 jmc 1.12 & ' /* reduction of Qsat over salty water [-] */')
136 jmc 1.18 CALL WRITE_0D_L( noNegativeEvap,INDEX_NONE,'noNegativeEvap =',
137     & ' /* prevent negative Evaporation */')
138 jmc 1.19 CALL WRITE_0D_RL( sstExtrapol, INDEX_NONE, 'sstExtrapol =',
139 jmc 1.18 & ' /* extrapolation coeff from lev. 1 & 2 to surf [-] */')
140 jmc 1.19 CALL WRITE_0D_RL( cdrag_1, INDEX_NONE, 'cDrag_1 =',
141 jmc 1.13 & ' /* coef used in drag calculation [?] */')
142 jmc 1.19 CALL WRITE_0D_RL( cdrag_2, INDEX_NONE, 'cDrag_2 =',
143 jmc 1.13 & ' /* coef used in drag calculation [?] */')
144 jmc 1.19 CALL WRITE_0D_RL( cdrag_3, INDEX_NONE, 'cDrag_3 =',
145 jmc 1.13 & ' /* coef used in drag calculation [?] */')
146 jmc 1.19 CALL WRITE_0D_RL( cstanton_1, INDEX_NONE, 'cStanton_1 =',
147 jmc 1.13 & ' /* coef used in Stanton number calculation [?] */')
148 jmc 1.19 CALL WRITE_0D_RL( cstanton_2, INDEX_NONE, 'cStanton_2 =',
149 jmc 1.13 & ' /* coef used in Stanton number calculation [?] */')
150 jmc 1.19 CALL WRITE_0D_RL( cdalton, INDEX_NONE, 'cDalton =',
151 jmc 1.13 & ' /* coef used in Dalton number calculation [?] */')
152 jmc 1.19 CALL WRITE_0D_RL( exf_scal_BulkCdn, INDEX_NONE,
153 jmc 1.12 & 'exf_scal_BulkCdn=',
154     & ' /* Drag coefficient scaling factor [-] */')
155 jmc 1.19 CALL WRITE_0D_RL( zolmin, INDEX_NONE, 'zolmin =',
156 jmc 1.13 & ' /* minimum stability parameter [?] */')
157 jmc 1.19 CALL WRITE_0D_RL( psim_fac, INDEX_NONE, 'psim_fac =',
158 jmc 1.12 & ' /* coef used in turbulent fluxes calculation [-] */')
159 jmc 1.19 CALL WRITE_0D_RL( zref, INDEX_NONE, 'zref =',
160 jmc 1.12 & ' /* reference height [ m ] */')
161 jmc 1.19 CALL WRITE_0D_RL( hu, INDEX_NONE, 'hu =',
162 jmc 1.12 & ' /* height of mean wind [ m ] */')
163 jmc 1.19 CALL WRITE_0D_RL( ht, INDEX_NONE, 'ht =',
164 jmc 1.12 & ' /* height of mean temperature [ m ] */')
165 jmc 1.19 CALL WRITE_0D_RL( hq, INDEX_NONE, 'hq =',
166 jmc 1.12 & ' /* height of mean spec.humidity [ m ] */')
167 jmc 1.19 CALL WRITE_0D_RL( umin, INDEX_NONE, 'uMin =',
168 jmc 1.12 & ' /* minimum wind speed [m/s] */')
169 jmc 1.13 CALL WRITE_0D_L( useStabilityFct_overIce, INDEX_NONE,
170     & 'useStabilityFct_overIce=',
171     & ' /* transfert Coeffs over sea-ice depend on stability */')
172 jmc 1.19 CALL WRITE_0D_RL( exf_iceCd, INDEX_NONE, 'exf_iceCd =',
173 jmc 1.13 & ' /* drag coefficient over sea-ice (fixed) [-] */')
174 jmc 1.19 CALL WRITE_0D_RL( exf_iceCe, INDEX_NONE, 'exf_iceCe =',
175 jmc 1.13 & ' /* transfert coeff. over sea-ice, for Evap (fixed) [-] */')
176 jmc 1.19 CALL WRITE_0D_RL( exf_iceCh, INDEX_NONE, 'exf_iceCh =',
177 jmc 1.13 & ' /* transfert coeff. over sea-ice, Sens.Heat.(fixed)[-] */')
178 jmc 1.19 CALL WRITE_0D_RL( exf_albedo, INDEX_NONE, 'exf_albedo =',
179 jmc 1.13 & ' /* Sea-water albedo [-] */')
180 jmc 1.19 CALL WRITE_0D_RL( ocean_emissivity, INDEX_NONE,
181 jmc 1.13 & 'ocean_emissivity =',
182     & ' /* longwave ocean-surface emissivity [-] */')
183 jmc 1.19 CALL WRITE_0D_RL( ice_emissivity, INDEX_NONE,'ice_emissivity =',
184 jmc 1.13 & ' /* longwave seaice emissivity [-] */')
185 jmc 1.19 CALL WRITE_0D_RL(snow_emissivity, INDEX_NONE,'snow_emissivity =',
186 jmc 1.13 & ' /* longwave snow emissivity [-] */')
187 jmc 1.12 WRITE(msgBuf,'(A)') ' '
188     CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
189     & SQUEEZE_RIGHT , myThid )
190    
191     C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
192     C-- Print settings of some CPP flags.
193     WRITE(msgBuf,'(A)') ' EXF main CPP flags:'
194     CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
195     & SQUEEZE_RIGHT , myThid )
196     WRITE(msgBuf,'(A)') ' '
197     CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
198     & SQUEEZE_RIGHT , myThid )
199 heimbach 1.1
200     #ifdef ALLOW_ATM_TEMP
201     write(msgbuf,'(a)')
202 dimitri 1.3 &'// ALLOW_ATM_TEMP: defined'
203 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
204     & SQUEEZE_RIGHT , mythid)
205     #else
206     write(msgbuf,'(a)')
207 dimitri 1.3 &'// ALLOW_ATM_TEMP: NOT defined'
208 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
209     & SQUEEZE_RIGHT , mythid)
210     #endif
211 dimitri 1.4
212 heimbach 1.1 #ifdef ALLOW_ATM_WIND
213     write(msgbuf,'(a)')
214 dimitri 1.3 &'// ALLOW_ATM_WIND: defined'
215     call print_message( msgbuf, standardmessageunit,
216     & SQUEEZE_RIGHT , mythid)
217     #else
218     write(msgbuf,'(a)')
219     &'// ALLOW_ATM_WIND: NOT defined'
220     call print_message( msgbuf, standardmessageunit,
221     & SQUEEZE_RIGHT , mythid)
222     #endif
223 dimitri 1.4
224     #ifdef ALLOW_DOWNWARD_RADIATION
225 dimitri 1.3 write(msgbuf,'(a)')
226 dimitri 1.4 &'// ALLOW_DOWNWARD_RADIATION: defined'
227 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
228     & SQUEEZE_RIGHT , mythid)
229     #else
230     write(msgbuf,'(a)')
231 dimitri 1.5 &'// ALLOW_DOWNWARD_RADIATION: NOT defined'
232 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
233     & SQUEEZE_RIGHT , mythid)
234     #endif
235    
236 dimitri 1.4 #ifdef ALLOW_BULKFORMULAE
237 heimbach 1.1 write(msgbuf,'(a)')
238 dimitri 1.4 &'// ALLOW_BULKFORMULAE: defined'
239 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
240     & SQUEEZE_RIGHT , mythid)
241     #else
242     write(msgbuf,'(a)')
243 dimitri 1.4 &'// ALLOW_BULKFORMULAE: NOT defined'
244 heimbach 1.2 call print_message( msgbuf, standardmessageunit,
245     & SQUEEZE_RIGHT , mythid)
246     #endif
247    
248 jmc 1.12 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
249    
250     C-- For each data set used the summary prints the calendar data
251     C and the corresponding file from which the data will be read.
252 dimitri 1.3
253 dimitri 1.4 #ifndef ALLOW_ATM_WIND
254 jmc 1.12 C-- Zonal wind stress.
255 dimitri 1.4 il = ilnblnk(ustressfile)
256 jmc 1.12 write(msgbuf,'(a)') ' '
257 dimitri 1.3 call print_message( msgbuf, standardmessageunit,
258     & SQUEEZE_RIGHT , mythid)
259 dimitri 1.7 write(msgbuf,'(a,f12.0)')
260 dimitri 1.4 &' Zonal wind stress forcing starts at ',
261 dimitri 1.7 & ustressstartdate
262 dimitri 1.3 call print_message( msgbuf, standardmessageunit,
263     & SQUEEZE_RIGHT , mythid)
264 dimitri 1.7 write(msgbuf,'(a,f12.0)')
265 dimitri 1.4 &' Zonal wind stress forcing period is ',
266 dimitri 1.7 & ustressperiod
267 dimitri 1.3 call print_message( msgbuf, standardmessageunit,
268     & SQUEEZE_RIGHT , mythid)
269     write(msgbuf,'(a)')
270 dimitri 1.4 &' Zonal wind stress forcing is read from file:'
271 dimitri 1.3 call print_message( msgbuf, standardmessageunit,
272     & SQUEEZE_RIGHT , mythid)
273     write(msgbuf,'(a,a,a)')
274 dimitri 1.4 &' >> ',ustressfile(1:il),' <<'
275 dimitri 1.3 call print_message( msgbuf, standardmessageunit,
276     & SQUEEZE_RIGHT , mythid)
277 heimbach 1.2
278 jmc 1.12 C-- Meridional wind stress.
279 dimitri 1.4 il = ilnblnk(vstressfile)
280 jmc 1.12 write(msgbuf,'(a)') ' '
281 heimbach 1.2 call print_message( msgbuf, standardmessageunit,
282     & SQUEEZE_RIGHT , mythid)
283 dimitri 1.7 write(msgbuf,'(a,f12.0)')
284 dimitri 1.4 &' Meridional wind stress forcing starts at ',
285 dimitri 1.7 & vstressstartdate
286 heimbach 1.2 call print_message( msgbuf, standardmessageunit,
287     & SQUEEZE_RIGHT , mythid)
288 dimitri 1.7 write(msgbuf,'(a,f12.0)')
289 dimitri 1.4 &' Meridional wind stress forcing period is ',
290 dimitri 1.7 & vstressperiod
291 heimbach 1.2 call print_message( msgbuf, standardmessageunit,
292     & SQUEEZE_RIGHT , mythid)
293     write(msgbuf,'(a)')
294 dimitri 1.4 &' Meridional wind stress forcing is read from file:'
295 heimbach 1.2 call print_message( msgbuf, standardmessageunit,
296     & SQUEEZE_RIGHT , mythid)
297     write(msgbuf,'(a,a,a)')
298 dimitri 1.4 &' >> ',vstressfile(1:il),' <<'
299 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
300     & SQUEEZE_RIGHT , mythid)
301 dimitri 1.4 #endif
302 heimbach 1.1
303 dimitri 1.4 #ifndef ALLOW_ATM_TEMP
304 jmc 1.12 C-- Heat flux.
305 dimitri 1.4 il = ilnblnk(hfluxfile)
306 jmc 1.12 write(msgbuf,'(a)') ' '
307 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
308     & SQUEEZE_RIGHT , mythid)
309 dimitri 1.7 write(msgbuf,'(a,f12.0)')
310 dimitri 1.4 &' Heat flux forcing starts at ',
311 dimitri 1.7 & hfluxstartdate
312 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
313     & SQUEEZE_RIGHT , mythid)
314 dimitri 1.7 write(msgbuf,'(a,f12.0)')
315 dimitri 1.4 &' Heat flux forcing period is ',
316 dimitri 1.7 & hfluxperiod
317 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
318     & SQUEEZE_RIGHT , mythid)
319     write(msgbuf,'(a)')
320 dimitri 1.4 &' Heat flux forcing is read from file: '
321 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
322     & SQUEEZE_RIGHT , mythid)
323     write(msgbuf,'(a,a,a)')
324 dimitri 1.4 &' >> ',hfluxfile(1:il),' <<'
325 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
326     & SQUEEZE_RIGHT , mythid)
327    
328 jmc 1.12 C-- Salt flux.
329 dimitri 1.4 il = ilnblnk(sfluxfile)
330 jmc 1.12 write(msgbuf,'(a)') ' '
331 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
332     & SQUEEZE_RIGHT , mythid)
333 dimitri 1.7 write(msgbuf,'(a,f12.0)')
334 dimitri 1.4 &' Salt flux forcing starts at ',
335 dimitri 1.7 & sfluxstartdate
336 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
337     & SQUEEZE_RIGHT , mythid)
338 dimitri 1.7 write(msgbuf,'(a,f12.0)')
339 dimitri 1.4 &' Salt flux forcing period is ',
340 dimitri 1.7 & sfluxperiod
341 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
342     & SQUEEZE_RIGHT , mythid)
343     write(msgbuf,'(a)')
344 dimitri 1.4 &' Salt flux forcing is read from file: '
345 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
346     & SQUEEZE_RIGHT , mythid)
347     write(msgbuf,'(a,a,a)')
348 dimitri 1.4 &' >> ',sfluxfile(1:il),' <<'
349 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
350     & SQUEEZE_RIGHT , mythid)
351 dimitri 1.4 #endif
352 heimbach 1.1
353 dimitri 1.4 #if defined(ALLOW_ATM_TEMP) || defined(SHORTWAVE_HEATING)
354 jmc 1.12 C-- Net shortwave.
355 heimbach 1.1 il = ilnblnk(swfluxfile)
356 jmc 1.12 write(msgbuf,'(a)') ' '
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 &' Net shortwave flux forcing starts at ',
361 dimitri 1.7 & swfluxstartdate
362 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
363     & SQUEEZE_RIGHT , mythid)
364 dimitri 1.7 write(msgbuf,'(a,f12.0)')
365 dimitri 1.4 &' Net shortwave flux forcing period is ',
366 dimitri 1.7 & swfluxperiod
367 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
368     & SQUEEZE_RIGHT , mythid)
369     write(msgbuf,'(a)')
370 dimitri 1.4 &' Net shortwave flux forcing is read from file:'
371 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
372     & SQUEEZE_RIGHT , mythid)
373     write(msgbuf,'(a,a,a)')
374     &' >> ',swfluxfile(1:il),' <<'
375     call print_message( msgbuf, standardmessageunit,
376     & SQUEEZE_RIGHT , mythid)
377 dimitri 1.4 #endif
378 heimbach 1.1
379 dimitri 1.4 #ifdef ALLOW_ATM_WIND
380 jmc 1.12 C-- Zonal wind.
381 dimitri 1.4 il = ilnblnk(uwindfile)
382 jmc 1.12 write(msgbuf,'(a)') ' '
383 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
384     & SQUEEZE_RIGHT , mythid)
385 dimitri 1.7 write(msgbuf,'(a,f12.0)')
386 dimitri 1.4 &' Zonal wind forcing starts at ',
387 dimitri 1.7 & uwindstartdate
388 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
389     & SQUEEZE_RIGHT , mythid)
390 dimitri 1.7 write(msgbuf,'(a,f12.0)')
391 dimitri 1.4 &' Zonal wind forcing period is ',
392 dimitri 1.7 & uwindperiod
393 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
394     & SQUEEZE_RIGHT , mythid)
395     write(msgbuf,'(a)')
396 dimitri 1.4 &' Zonal wind forcing is read from file:'
397 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
398     & SQUEEZE_RIGHT , mythid)
399     write(msgbuf,'(a,a,a)')
400 dimitri 1.4 &' >> ',uwindfile(1:il),' <<'
401 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
402     & SQUEEZE_RIGHT , mythid)
403    
404 jmc 1.12 C-- Meridional wind.
405 dimitri 1.4 il = ilnblnk(vwindfile)
406 jmc 1.12 write(msgbuf,'(a)') ' '
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 &' Meridional wind forcing starts at ',
411 dimitri 1.7 & vwindstartdate
412 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
413     & SQUEEZE_RIGHT , mythid)
414 dimitri 1.7 write(msgbuf,'(a,f12.0)')
415 dimitri 1.4 &' Meridional wind forcing period is ',
416 dimitri 1.7 & vwindperiod
417 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
418     & SQUEEZE_RIGHT , mythid)
419     write(msgbuf,'(a)')
420 dimitri 1.4 &' Meridional wind forcing is read from file:'
421 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
422     & SQUEEZE_RIGHT , mythid)
423     write(msgbuf,'(a,a,a)')
424 dimitri 1.4 &' >> ',vwindfile(1:il),' <<'
425 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
426     & SQUEEZE_RIGHT , mythid)
427 dimitri 1.4 #endif
428 heimbach 1.1
429 dimitri 1.4 #ifdef ALLOW_ATM_TEMP
430 jmc 1.12 C-- Atmospheric temperature.
431 dimitri 1.4 il = ilnblnk(atempfile)
432 jmc 1.12 write(msgbuf,'(a)') ' '
433 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
434     & SQUEEZE_RIGHT , mythid)
435 dimitri 1.7 write(msgbuf,'(a,f12.0)')
436 dimitri 1.4 &' Atmospheric temperature starts at ',
437 dimitri 1.7 & atempstartdate
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 &' Atmospheric temperature period is ',
442 dimitri 1.7 & atempperiod
443 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
444     & SQUEEZE_RIGHT , mythid)
445     write(msgbuf,'(a)')
446 dimitri 1.4 &' Atmospheric temperature 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 &' >> ',atempfile(1:il),' <<'
451 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
452     & SQUEEZE_RIGHT , mythid)
453    
454 jmc 1.12 C-- Atmospheric specific humidity.
455 dimitri 1.4 il = ilnblnk(aqhfile)
456 jmc 1.12 write(msgbuf,'(a)') ' '
457 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
458     & SQUEEZE_RIGHT , mythid)
459 dimitri 1.7 write(msgbuf,'(a,f12.0)')
460 dimitri 1.4 &' Atmospheric specific humidity starts at ',
461 dimitri 1.7 & aqhstartdate
462 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
463     & SQUEEZE_RIGHT , mythid)
464 dimitri 1.7 write(msgbuf,'(a,f12.0)')
465 dimitri 1.4 &' Atmospheric specific humidity period is ',
466 dimitri 1.7 & aqhperiod
467 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
468     & SQUEEZE_RIGHT , mythid)
469     write(msgbuf,'(a)')
470 dimitri 1.4 &' Atmospheric specific humidity is read from file:'
471 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
472     & SQUEEZE_RIGHT , mythid)
473     write(msgbuf,'(a,a,a)')
474 dimitri 1.4 &' >> ',aqhfile(1:il),' <<'
475 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
476     & SQUEEZE_RIGHT , mythid)
477    
478 jmc 1.12 C-- Net longwave.
479 dimitri 1.4 il = ilnblnk(lwfluxfile)
480 jmc 1.12 write(msgbuf,'(a)') ' '
481 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
482     & SQUEEZE_RIGHT , mythid)
483 dimitri 1.7 write(msgbuf,'(a,f12.0)')
484 dimitri 1.4 &' Net longwave flux forcing starts at ',
485 dimitri 1.7 & lwfluxstartdate
486 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
487     & SQUEEZE_RIGHT , mythid)
488 dimitri 1.7 write(msgbuf,'(a,f12.0)')
489 dimitri 1.4 &' Net longwave flux forcing period is ',
490 dimitri 1.7 & lwfluxperiod
491 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
492     & SQUEEZE_RIGHT , mythid)
493     write(msgbuf,'(a)')
494 dimitri 1.4 &' Net longwave flux forcing is read from file:'
495 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
496     & SQUEEZE_RIGHT , mythid)
497     write(msgbuf,'(a,a,a)')
498 dimitri 1.4 &' >> ',lwfluxfile(1:il),' <<'
499 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
500     & SQUEEZE_RIGHT , mythid)
501    
502 jmc 1.12 C-- Precipitation.
503 dimitri 1.4 il = ilnblnk(precipfile)
504 jmc 1.12 write(msgbuf,'(a)') ' '
505 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
506     & SQUEEZE_RIGHT , mythid)
507 dimitri 1.7 write(msgbuf,'(a,f12.0)')
508 dimitri 1.4 &' Precipitation data set starts at ',
509 dimitri 1.7 & precipstartdate
510 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
511     & SQUEEZE_RIGHT , mythid)
512 dimitri 1.7 write(msgbuf,'(a,f12.0)')
513 dimitri 1.4 &' Precipitation data period is ',
514 dimitri 1.7 & precipperiod
515 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
516     & SQUEEZE_RIGHT , mythid)
517     write(msgbuf,'(a)')
518 dimitri 1.4 &' Precipitation data is read from file: '
519 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
520     & SQUEEZE_RIGHT , mythid)
521     write(msgbuf,'(a,a,a)')
522 dimitri 1.4 &' >> ',precipfile(1:il),' <<'
523 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
524     & SQUEEZE_RIGHT , mythid)
525 dimitri 1.4 #endif
526 heimbach 1.1
527 jmc 1.12 C-- Evaporation.
528     write(msgbuf,'(a)') ' '
529     call print_message( msgbuf, standardmessageunit,
530     & SQUEEZE_RIGHT , mythid)
531 dimitri 1.4 #ifdef EXF_READ_EVAP
532 heimbach 1.1 write(msgbuf,'(a)')
533 dimitri 1.4 &'// EXF_READ_EVAP: defined'
534 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
535     & SQUEEZE_RIGHT , mythid)
536 dimitri 1.4 il = ilnblnk(evapfile)
537 dimitri 1.7 write(msgbuf,'(a,f12.0)')
538 dimitri 1.4 &' Evaporation starts at ',
539 dimitri 1.7 & evapstartdate
540 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
541     & SQUEEZE_RIGHT , mythid)
542 dimitri 1.7 write(msgbuf,'(a,f12.0)')
543 dimitri 1.4 &' Evaporation period is ',
544 dimitri 1.7 & evapperiod
545 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
546     & SQUEEZE_RIGHT , mythid)
547     write(msgbuf,'(a)')
548 dimitri 1.4 &' Evaporation is read from file:'
549 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
550     & SQUEEZE_RIGHT , mythid)
551     write(msgbuf,'(a,a,a)')
552 dimitri 1.4 &' >> ',evapfile(1:il),' <<'
553 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
554     & SQUEEZE_RIGHT , mythid)
555 dimitri 1.4 #else
556 heimbach 1.1 write(msgbuf,'(a)')
557 dimitri 1.4 &'// EXF_READ_EVAP: NOT defined'
558 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
559     & SQUEEZE_RIGHT , mythid)
560 dimitri 1.4 #endif
561    
562 jmc 1.12 C-- Runoff.
563     write(msgbuf,'(a)') ' '
564     call print_message( msgbuf, standardmessageunit,
565     & SQUEEZE_RIGHT , mythid)
566 dimitri 1.4 #ifdef ALLOW_RUNOFF
567 heimbach 1.1 write(msgbuf,'(a)')
568 dimitri 1.4 &'// ALLOW_RUNOFF: defined'
569 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
570     & SQUEEZE_RIGHT , mythid)
571 dimitri 1.4 il = ilnblnk(runofffile)
572 dimitri 1.7 write(msgbuf,'(a,f12.0)')
573 mlosch 1.16 &' Runoff starts at ',
574 dimitri 1.7 & runoffstartdate
575 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
576     & SQUEEZE_RIGHT , mythid)
577 dimitri 1.7 write(msgbuf,'(a,f12.0)')
578 dimitri 1.4 &' Runoff period is ',
579 dimitri 1.7 & runoffperiod
580 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
581     & SQUEEZE_RIGHT , mythid)
582     write(msgbuf,'(a)')
583 dimitri 1.4 &' Runoff is read from file:'
584 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
585     & SQUEEZE_RIGHT , mythid)
586     write(msgbuf,'(a,a,a)')
587 dimitri 1.4 &' >> ',runofffile(1:il),' <<'
588 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
589     & SQUEEZE_RIGHT , mythid)
590 dimitri 1.4 #else /* ALLOW_RUNOFF */
591 heimbach 1.1 write(msgbuf,'(a)')
592 dimitri 1.4 &'// ALLOW_RUNOFF: NOT defined'
593 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
594     & SQUEEZE_RIGHT , mythid)
595 dimitri 1.4 #endif /* ALLOW_RUNOFF */
596 heimbach 1.1
597 jmc 1.20 #ifdef ALLOW_DOWNWARD_RADIATION
598 jmc 1.12 C-- Downward shortwave.
599 dimitri 1.4 il = ilnblnk(swdownfile)
600 jmc 1.12 write(msgbuf,'(a)') ' '
601 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
602     & SQUEEZE_RIGHT , mythid)
603 dimitri 1.7 write(msgbuf,'(a,f12.0)')
604 dimitri 1.4 &' Downward shortwave flux forcing starts at ',
605 dimitri 1.7 & swdownstartdate
606 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
607     & SQUEEZE_RIGHT , mythid)
608 dimitri 1.7 write(msgbuf,'(a,f12.0)')
609 dimitri 1.4 &' Downward shortwave flux forcing period is ',
610 dimitri 1.7 & swdownperiod
611 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
612     & SQUEEZE_RIGHT , mythid)
613     write(msgbuf,'(a)')
614 dimitri 1.4 &' Downward shortwave flux forcing is read from file:'
615 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
616     & SQUEEZE_RIGHT , mythid)
617     write(msgbuf,'(a,a,a)')
618 dimitri 1.4 &' >> ',swdownfile(1:il),' <<'
619 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
620     & SQUEEZE_RIGHT , mythid)
621    
622 jmc 1.12 C-- Downward longwave.
623 dimitri 1.4 il = ilnblnk(lwdownfile)
624 jmc 1.12 write(msgbuf,'(a)') ' '
625 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
626     & SQUEEZE_RIGHT , mythid)
627 dimitri 1.7 write(msgbuf,'(a,f12.0)')
628 dimitri 1.4 &' Downward longwave flux forcing starts at ',
629 dimitri 1.7 & lwdownstartdate
630 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
631     & SQUEEZE_RIGHT , mythid)
632 dimitri 1.7 write(msgbuf,'(a,f12.0)')
633 dimitri 1.4 &' Downward longwave flux forcing period is ',
634 dimitri 1.7 & lwdownperiod
635 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
636     & SQUEEZE_RIGHT , mythid)
637     write(msgbuf,'(a)')
638 dimitri 1.4 &' Downward longwave flux forcing is read from file:'
639 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
640     & SQUEEZE_RIGHT , mythid)
641     write(msgbuf,'(a,a,a)')
642 dimitri 1.4 &' >> ',lwdownfile(1:il),' <<'
643 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
644     & SQUEEZE_RIGHT , mythid)
645 dimitri 1.4 #endif
646 heimbach 1.1
647 dimitri 1.4 #ifdef ATMOSPHERIC_LOADING
648 jmc 1.12 C-- Atmospheric pressure.
649 dimitri 1.4 il = ilnblnk(apressurefile)
650 jmc 1.12 write(msgbuf,'(a)') ' '
651 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
652     & SQUEEZE_RIGHT , mythid)
653 dimitri 1.7 write(msgbuf,'(a,f12.0)')
654 dimitri 1.4 &' Atmospheric pressure forcing starts at ',
655 dimitri 1.7 & apressurestartdate
656 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
657     & SQUEEZE_RIGHT , mythid)
658 dimitri 1.7 write(msgbuf,'(a,f12.0)')
659 dimitri 1.4 &' Atmospheric pressure forcing period is ',
660 dimitri 1.7 & apressureperiod
661 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
662     & SQUEEZE_RIGHT , mythid)
663     write(msgbuf,'(a)')
664 dimitri 1.4 &' Atmospheric pressureforcing is read from file:'
665 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
666     & SQUEEZE_RIGHT , mythid)
667     write(msgbuf,'(a,a,a)')
668 dimitri 1.4 &' >> ',apressurefile(1:il),' <<'
669 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
670     & SQUEEZE_RIGHT , mythid)
671     #endif
672    
673 gforget 1.17 #ifdef ALLOW_ICE_AREAMASK
674     C-- fractional ice-covered area MASK.
675     il = ilnblnk(areamaskfile)
676     write(msgbuf,'(a)') ' '
677     call print_message( msgbuf, standardmessageunit,
678     & SQUEEZE_RIGHT , mythid)
679     write(msgbuf,'(a,f12.0)')
680     &' fractional ice-covered area MASK starts at ',
681     & areamaskstartdate
682     call print_message( msgbuf, standardmessageunit,
683     & SQUEEZE_RIGHT , mythid)
684     write(msgbuf,'(a,f12.0)')
685     &' fractional ice-covered area MASK period is ',
686     & areamaskperiod
687     call print_message( msgbuf, standardmessageunit,
688     & SQUEEZE_RIGHT , mythid)
689     write(msgbuf,'(a)')
690     &' fractional ice-covered area MASK is read from file:'
691     call print_message( msgbuf, standardmessageunit,
692     & SQUEEZE_RIGHT , mythid)
693     write(msgbuf,'(a,a,a)')
694     &' >> ',areamaskfile(1:il),' <<'
695     call print_message( msgbuf, standardmessageunit,
696     & SQUEEZE_RIGHT , mythid)
697     #endif
698    
699 jmc 1.12 write(msgbuf,'(a)') ' '
700 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
701     & SQUEEZE_RIGHT , mythid)
702     write(msgbuf,'(a)')
703     &'// ======================================================='
704     call print_message( msgbuf, standardmessageunit,
705     & SQUEEZE_RIGHT , mythid)
706     write(msgbuf,'(a)')
707     &'// External forcing configuration >>> END <<<'
708     call print_message( msgbuf, standardmessageunit,
709     & SQUEEZE_RIGHT , mythid)
710     write(msgbuf,'(a)')
711     &'// ======================================================='
712     call print_message( msgbuf, standardmessageunit,
713     & SQUEEZE_RIGHT , mythid)
714 jmc 1.12 write(msgbuf,'(a)') ' '
715 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
716     & SQUEEZE_RIGHT , mythid)
717    
718 jmc 1.12 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
719    
720 heimbach 1.11 call print_message( msgbuf, standardmessageunit,
721     & SQUEEZE_RIGHT , mythid)
722     write(msgbuf,'(a)')
723     &'// ======================================================='
724     call print_message( msgbuf, standardmessageunit,
725     & SQUEEZE_RIGHT , mythid)
726     write(msgbuf,'(a)')
727     &'// External forcing climatology configuration >>> START <<<'
728     call print_message( msgbuf, standardmessageunit,
729     & SQUEEZE_RIGHT , mythid)
730     write(msgbuf,'(a)')
731     &'// ======================================================='
732     call print_message( msgbuf, standardmessageunit,
733     & SQUEEZE_RIGHT , mythid)
734 jmc 1.12 write(msgbuf,'(a)') ' '
735 heimbach 1.11 call print_message( msgbuf, standardmessageunit,
736     & SQUEEZE_RIGHT , mythid)
737    
738 jmc 1.12 C For each data set used the summary prints the calendar data
739     C and the corresponding file from which the data will be read.
740 heimbach 1.11
741     #ifdef ALLOW_CLIMSST_RELAXATION
742     write(msgbuf,'(a)')
743     &'// ALLOW_CLIMSST_RELAXATION: defined'
744     call print_message( msgbuf, standardmessageunit,
745     & SQUEEZE_RIGHT , mythid)
746     #else
747     write(msgbuf,'(a)')
748     &'// ALLOW_CLIMSST_RELAXATION: NOT defined'
749     call print_message( msgbuf, standardmessageunit,
750     & SQUEEZE_RIGHT , mythid)
751     #endif
752    
753     #ifdef ALLOW_CLIMSSS_RELAXATION
754     write(msgbuf,'(a)')
755     &'// ALLOW_CLIMSSS_RELAXATION: defined'
756     call print_message( msgbuf, standardmessageunit,
757     & SQUEEZE_RIGHT , mythid)
758     #else
759     write(msgbuf,'(a)')
760     &'// ALLOW_CLIMSSS_RELAXATION: NOT defined'
761     call print_message( msgbuf, standardmessageunit,
762     & SQUEEZE_RIGHT , mythid)
763     #endif
764    
765 jmc 1.12 C The climatological data sets are assumed to contain monthly
766     C data. This can be changed in a later version to an arbitrary
767     C number of intervals during a given year.
768 heimbach 1.11
769     #ifdef ALLOW_CLIMSST_RELAXATION
770 jmc 1.12 C Relaxation to SST climatology.
771 heimbach 1.11 il = ilnblnk(climsstfile)
772     write(msgbuf,'(a)')
773     &' '
774     call print_message( msgbuf, standardmessageunit,
775     & SQUEEZE_RIGHT , mythid)
776     write(msgbuf,'(a,f12.0)')
777     &' Climatological SST starts at ',
778     & climsststartdate
779     call print_message( msgbuf, standardmessageunit,
780     & SQUEEZE_RIGHT , mythid)
781     write(msgbuf,'(a,f12.0)')
782     &' Climatological SST period is ',
783     & climsstperiod
784     call print_message( msgbuf, standardmessageunit,
785     & SQUEEZE_RIGHT , mythid)
786     write(msgbuf,'(a)')
787     &' Climatological SST is read from file:'
788     call print_message( msgbuf, standardmessageunit,
789     & SQUEEZE_RIGHT , mythid)
790     write(msgbuf,'(a,a,a)')
791     &' >> ',climsstfile(1:il),' <<'
792     call print_message( msgbuf, standardmessageunit,
793     & SQUEEZE_RIGHT , mythid)
794     #endif
795    
796     #ifdef ALLOW_CLIMSSS_RELAXATION
797 jmc 1.12 C Relaxation to SSS climatology.
798 heimbach 1.11 il = ilnblnk(climsssfile)
799     write(msgbuf,'(a)')
800     &' '
801     call print_message( msgbuf, standardmessageunit,
802     & SQUEEZE_RIGHT , mythid)
803     write(msgbuf,'(a,f12.0)')
804     &' Climatological SSS starts at ',
805     & climsssstartdate
806     call print_message( msgbuf, standardmessageunit,
807     & SQUEEZE_RIGHT , mythid)
808     write(msgbuf,'(a,f12.0)')
809     &' Climatological SSS period is ',
810     & climsssperiod
811     call print_message( msgbuf, standardmessageunit,
812     & SQUEEZE_RIGHT , mythid)
813     write(msgbuf,'(a)')
814     &' Climatological SSS is read from file:'
815     call print_message( msgbuf, standardmessageunit,
816     & SQUEEZE_RIGHT , mythid)
817     write(msgbuf,'(a,a,a)')
818     &' >> ',climsssfile(1:il),' <<'
819     call print_message( msgbuf, standardmessageunit,
820     & SQUEEZE_RIGHT , mythid)
821     #endif
822    
823 jmc 1.12 write(msgbuf,'(a)') ' '
824 heimbach 1.11 call print_message( msgbuf, standardmessageunit,
825     & SQUEEZE_RIGHT , mythid)
826     write(msgbuf,'(a)')
827     &'// ======================================================='
828     call print_message( msgbuf, standardmessageunit,
829     & SQUEEZE_RIGHT , mythid)
830     write(msgbuf,'(a)')
831     &'// External forcing climatology configuration >>> END <<<'
832     call print_message( msgbuf, standardmessageunit,
833     & SQUEEZE_RIGHT , mythid)
834     write(msgbuf,'(a)')
835     &'// ======================================================='
836     call print_message( msgbuf, standardmessageunit,
837     & SQUEEZE_RIGHT , mythid)
838 jmc 1.12 write(msgbuf,'(a)') ' '
839 heimbach 1.11 call print_message( msgbuf, standardmessageunit,
840     & SQUEEZE_RIGHT , mythid)
841    
842 jmc 1.12 _END_MASTER( myThid )
843    
844     RETURN
845     END
  ViewVC Help
Powered by ViewVC 1.1.22