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

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

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

revision 1.6 by edhill, Thu Oct 9 04:19:19 2003 UTC revision 1.7 by dimitri, Mon Oct 20 06:25:16 2003 UTC
# Line 47  c     mythid  - thread number for this i Line 47  c     mythid  - thread number for this i
47    
48  c     == local variables ==  c     == local variables ==
49    
       integer i  
50        integer il        integer il
       integer timeint(4)  
51    
52        character*(max_len_mbuf) msgbuf        character*(max_len_mbuf) msgbuf
53    
# Line 149  c     and the corresponding file from wh Line 147  c     and the corresponding file from wh
147  #ifndef ALLOW_ATM_WIND  #ifndef ALLOW_ATM_WIND
148  c--   Zonal wind stress.  c--   Zonal wind stress.
149        il = ilnblnk(ustressfile)        il = ilnblnk(ustressfile)
       call cal_TimeInterval( ustressperiod, 'secs', timeint, mythid )  
150        write(msgbuf,'(a)')        write(msgbuf,'(a)')
151       &' '       &' '
152        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
153       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
154        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')        write(msgbuf,'(a,f12.0)')
155       &'   Zonal wind stress forcing starts at         ',       &'   Zonal wind stress forcing starts at         ',
156       &    (ustressstartdate(i), i=1,2), dayofweek(ustressstartdate(4)),       &    ustressstartdate
      &    '.'  
157        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
158       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
159        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
160       &'   Zonal wind stress forcing period is         ',       &'   Zonal wind stress forcing period is         ',
161       &    (timeint(i), i=1,2)       &    ustressperiod
162        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
163       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
164        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 176  c--   Zonal wind stress. Line 172  c--   Zonal wind stress.
172    
173  c--   Meridional wind stress.  c--   Meridional wind stress.
174        il = ilnblnk(vstressfile)        il = ilnblnk(vstressfile)
       call cal_TimeInterval( vstressperiod, 'secs', timeint, mythid )  
175        write(msgbuf,'(a)')        write(msgbuf,'(a)')
176       &' '       &' '
177        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
178       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
179        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')        write(msgbuf,'(a,f12.0)')
180       &'   Meridional wind stress forcing starts at    ',       &'   Meridional wind stress forcing starts at    ',
181       &    (vstressstartdate(i), i=1,2), dayofweek(vstressstartdate(4)),       &    vstressstartdate
      &    '.'  
182        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
183       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
184        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
185       &'   Meridional wind stress forcing period is    ',       &'   Meridional wind stress forcing period is    ',
186       &    (timeint(i), i=1,2)       &    vstressperiod
187        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
188       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
189        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 205  c--   Meridional wind stress. Line 199  c--   Meridional wind stress.
199  #ifndef ALLOW_ATM_TEMP  #ifndef ALLOW_ATM_TEMP
200  c--   Heat flux.  c--   Heat flux.
201        il = ilnblnk(hfluxfile)        il = ilnblnk(hfluxfile)
       call cal_TimeInterval( hfluxperiod, 'secs', timeint, mythid )  
202        write(msgbuf,'(a)')        write(msgbuf,'(a)')
203       &' '       &' '
204        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
205       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
206        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')        write(msgbuf,'(a,f12.0)')
207       &'   Heat flux forcing starts at                ',       &'   Heat flux forcing starts at                ',
208       &    (hfluxstartdate(i), i=1,2), dayofweek(hfluxstartdate(4)),'.'       &    hfluxstartdate
209        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
210       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
211        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
212       &'   Heat flux forcing period is                 ',       &'   Heat flux forcing period is                 ',
213       &    (timeint(i), i=1,2)       &    hfluxperiod
214        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
215       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
216        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 231  c--   Heat flux. Line 224  c--   Heat flux.
224    
225  c--   Salt flux.  c--   Salt flux.
226        il = ilnblnk(sfluxfile)        il = ilnblnk(sfluxfile)
       call cal_TimeInterval( sfluxperiod, 'secs', timeint, mythid )  
227        write(msgbuf,'(a)')        write(msgbuf,'(a)')
228       &' '       &' '
229        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
230       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
231        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')        write(msgbuf,'(a,f12.0)')
232       &'   Salt flux forcing starts at                 ',       &'   Salt flux forcing starts at                 ',
233       &    (sfluxstartdate(i), i=1,2), dayofweek(sfluxstartdate(4)),'.'       &    sfluxstartdate
234        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
235       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
236        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
237       &'   Salt flux forcing period is                 ',       &'   Salt flux forcing period is                 ',
238       &    (timeint(i), i=1,2)       &    sfluxperiod
239        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
240       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
241        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 259  c--   Salt flux. Line 251  c--   Salt flux.
251  #if defined(ALLOW_ATM_TEMP) || defined(SHORTWAVE_HEATING)  #if defined(ALLOW_ATM_TEMP) || defined(SHORTWAVE_HEATING)
252  c--   Net shortwave.  c--   Net shortwave.
253        il = ilnblnk(swfluxfile)        il = ilnblnk(swfluxfile)
       call cal_TimeInterval( swfluxperiod, 'secs', timeint, mythid )  
254        write(msgbuf,'(a)')        write(msgbuf,'(a)')
255       &' '       &' '
256        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
257       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
258        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')        write(msgbuf,'(a,f12.0)')
259       &'   Net shortwave flux forcing starts at      ',       &'   Net shortwave flux forcing starts at      ',
260       &    (swfluxstartdate(i), i=1,2), dayofweek(swfluxstartdate(4)),       &    swfluxstartdate
      &    '.'  
261        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
262       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
263        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
264       &'   Net shortwave flux forcing period is      ',       &'   Net shortwave flux forcing period is      ',
265       &    (timeint(i), i=1,2)       &    swfluxperiod
266        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
267       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
268        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 288  c--   Net shortwave. Line 278  c--   Net shortwave.
278  #ifdef ALLOW_ATM_WIND  #ifdef ALLOW_ATM_WIND
279  c--   Zonal wind.  c--   Zonal wind.
280        il = ilnblnk(uwindfile)        il = ilnblnk(uwindfile)
       call cal_TimeInterval( uwindperiod, 'secs', timeint, mythid )  
281        write(msgbuf,'(a)')        write(msgbuf,'(a)')
282       &' '       &' '
283        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
284       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
285        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')        write(msgbuf,'(a,f12.0)')
286       &'   Zonal wind forcing starts at                ',       &'   Zonal wind forcing starts at                ',
287       &    (uwindstartdate(i), i=1,2), dayofweek(uwindstartdate(4)),       &    uwindstartdate
      &    '.'  
288        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
289       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
290        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
291       &'   Zonal wind forcing period is                ',       &'   Zonal wind forcing period is                ',
292       &    (timeint(i), i=1,2)       &    uwindperiod
293        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
294       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
295        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 315  c--   Zonal wind. Line 303  c--   Zonal wind.
303    
304  c--   Meridional wind.  c--   Meridional wind.
305        il = ilnblnk(vwindfile)        il = ilnblnk(vwindfile)
       call cal_TimeInterval( vwindperiod, 'secs', timeint, mythid )  
306        write(msgbuf,'(a)')        write(msgbuf,'(a)')
307       &' '       &' '
308        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
309       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
310        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')        write(msgbuf,'(a,f12.0)')
311       &'   Meridional wind forcing starts at           ',       &'   Meridional wind forcing starts at           ',
312       &    (vwindstartdate(i), i=1,2), dayofweek(vwindstartdate(4)),       &    vwindstartdate
      &    '.'  
313        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
314       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
315        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
316       &'   Meridional wind forcing period is           ',       &'   Meridional wind forcing period is           ',
317       &    (timeint(i), i=1,2)       &    vwindperiod
318        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
319       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
320        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 344  c--   Meridional wind. Line 330  c--   Meridional wind.
330  #ifdef ALLOW_ATM_TEMP  #ifdef ALLOW_ATM_TEMP
331  c--   Atmospheric temperature.  c--   Atmospheric temperature.
332        il = ilnblnk(atempfile)        il = ilnblnk(atempfile)
       call cal_TimeInterval( atempperiod, 'secs', timeint, mythid )  
333        write(msgbuf,'(a)')        write(msgbuf,'(a)')
334       &' '       &' '
335        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
336       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
337        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')        write(msgbuf,'(a,f12.0)')
338       &'   Atmospheric temperature starts at           ',       &'   Atmospheric temperature starts at           ',
339       &    (atempstartdate(i), i=1,2), dayofweek(atempstartdate(4)),       &    atempstartdate
      &    '.'  
340        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
341       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
342        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
343       &'   Atmospheric temperature period is           ',       &'   Atmospheric temperature period is           ',
344       &    (timeint(i), i=1,2)       &    atempperiod
345        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
346       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
347        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 371  c--   Atmospheric temperature. Line 355  c--   Atmospheric temperature.
355    
356  c--   Atmospheric specific humidity.  c--   Atmospheric specific humidity.
357        il = ilnblnk(aqhfile)        il = ilnblnk(aqhfile)
       call cal_TimeInterval( aqhperiod, 'secs', timeint, mythid )  
358        write(msgbuf,'(a)')        write(msgbuf,'(a)')
359       &' '       &' '
360        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
361       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
362        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')        write(msgbuf,'(a,f12.0)')
363       &'   Atmospheric specific humidity starts at     ',       &'   Atmospheric specific humidity starts at     ',
364       &    (aqhstartdate(i), i=1,2), dayofweek(aqhstartdate(4)),       &    aqhstartdate
      &    '.'  
365        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
366       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
367        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
368       &'   Atmospheric specific humidity period is     ',       &'   Atmospheric specific humidity period is     ',
369       &    (timeint(i), i=1,2)       &    aqhperiod
370        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
371       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
372        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 398  c--   Atmospheric specific humidity. Line 380  c--   Atmospheric specific humidity.
380    
381  c--   Net longwave.  c--   Net longwave.
382        il = ilnblnk(lwfluxfile)        il = ilnblnk(lwfluxfile)
       call cal_TimeInterval( lwfluxperiod, 'secs', timeint, mythid )  
383        write(msgbuf,'(a)')        write(msgbuf,'(a)')
384       &' '       &' '
385        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
386       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
387        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')        write(msgbuf,'(a,f12.0)')
388       &'   Net longwave flux forcing starts at       ',       &'   Net longwave flux forcing starts at       ',
389       &    (lwfluxstartdate(i), i=1,2), dayofweek(lwfluxstartdate(4)),       &    lwfluxstartdate
      &    '.'  
390        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
391       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
392        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
393       &'   Net longwave flux forcing period is       ',       &'   Net longwave flux forcing period is       ',
394       &    (timeint(i), i=1,2)       &    lwfluxperiod
395        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
396       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
397        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 425  c--   Net longwave. Line 405  c--   Net longwave.
405    
406  c--   Precipitation.  c--   Precipitation.
407        il = ilnblnk(precipfile)        il = ilnblnk(precipfile)
       call cal_TimeInterval( precipperiod, 'secs', timeint, mythid )  
408        write(msgbuf,'(a)')        write(msgbuf,'(a)')
409       &' '       &' '
410        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
411       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
412        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')        write(msgbuf,'(a,f12.0)')
413       &'   Precipitation data set starts at            ',       &'   Precipitation data set starts at            ',
414       &    (precipstartdate(i), i=1,2), dayofweek(precipstartdate(4)),       &    precipstartdate
      &'.'  
415        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
416       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
417        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
418       &'   Precipitation data period is                ',       &'   Precipitation data period is                ',
419       &    (timeint(i), i=1,2)       &    precipperiod
420        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
421       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
422        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 458  c--   Evaporation. Line 436  c--   Evaporation.
436        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
437       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
438        il = ilnblnk(evapfile)        il = ilnblnk(evapfile)
       call cal_TimeInterval( evapperiod, 'secs', timeint, mythid )  
   
439        write(msgbuf,'(a)')        write(msgbuf,'(a)')
440       &' '       &' '
441        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
442       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
443        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')        write(msgbuf,'(a,f12.0)')
444       &'   Evaporation starts at     ',       &'   Evaporation starts at     ',
445       &    (evapstartdate(i), i=1,2), dayofweek(evapstartdate(4)),       &    evapstartdate
      &    '.'  
446        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
447       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
448        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
449       &'   Evaporation period is     ',       &'   Evaporation period is     ',
450       &    (timeint(i), i=1,2)       &    evapperiod
451        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
452       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
453        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 497  c--   Runoff. Line 472  c--   Runoff.
472        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
473       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
474        il = ilnblnk(runofffile)        il = ilnblnk(runofffile)
       call cal_TimeInterval( runoffperiod, 'secs', timeint, mythid )  
   
475        write(msgbuf,'(a)')        write(msgbuf,'(a)')
476       &' '       &' '
477        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
478       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
479        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')        write(msgbuf,'(a,f12.0)')
480       &'   Runnoff starts at     ',       &'   Runnoff starts at     ',
481       &    (runoffstartdate(i), i=1,2), dayofweek(runoffstartdate(4)),       &    runoffstartdate
      &    '.'  
482        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
483       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
484        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
485       &'   Runoff period is     ',       &'   Runoff period is     ',
486       &    (timeint(i), i=1,2)       &    runoffperiod
487        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
488       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
489        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 532  c--   Runoff. Line 504  c--   Runoff.
504  #ifdef DOWNWARD_RADIATION  #ifdef DOWNWARD_RADIATION
505  c--   Downward shortwave.  c--   Downward shortwave.
506        il = ilnblnk(swdownfile)        il = ilnblnk(swdownfile)
       call cal_TimeInterval( swdownperiod, 'secs', timeint, mythid )  
507        write(msgbuf,'(a)')        write(msgbuf,'(a)')
508       &' '       &' '
509        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
510       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
511        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')        write(msgbuf,'(a,f12.0)')
512       &'   Downward shortwave flux forcing starts at      ',       &'   Downward shortwave flux forcing starts at      ',
513       &    (swdownstartdate(i), i=1,2), dayofweek(swdownstartdate(4)),       &    swdownstartdate
      &    '.'  
514        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
515       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
516        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
517       &'   Downward shortwave flux forcing period is      ',       &'   Downward shortwave flux forcing period is      ',
518       &    (timeint(i), i=1,2)       &    swdownperiod
519        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
520       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
521        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 559  c--   Downward shortwave. Line 529  c--   Downward shortwave.
529    
530  c--   Downward longwave.  c--   Downward longwave.
531        il = ilnblnk(lwdownfile)        il = ilnblnk(lwdownfile)
       call cal_TimeInterval( lwdownperiod, 'secs', timeint, mythid )  
532        write(msgbuf,'(a)')        write(msgbuf,'(a)')
533       &' '       &' '
534        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
535       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
536        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')        write(msgbuf,'(a,f12.0)')
537       &'   Downward longwave flux forcing starts at       ',       &'   Downward longwave flux forcing starts at       ',
538       &    (lwdownstartdate(i), i=1,2), dayofweek(lwdownstartdate(4)),       &    lwdownstartdate
      &    '.'  
539        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
540       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
541        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
542       &'   Downward longwave flux forcing period is       ',       &'   Downward longwave flux forcing period is       ',
543       &    (timeint(i), i=1,2)       &    lwdownperiod
544        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
545       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
546        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 588  c--   Downward longwave. Line 556  c--   Downward longwave.
556  #ifdef ATMOSPHERIC_LOADING  #ifdef ATMOSPHERIC_LOADING
557  c--   Atmospheric pressure.  c--   Atmospheric pressure.
558        il = ilnblnk(apressurefile)        il = ilnblnk(apressurefile)
       call cal_TimeInterval( apressureperiod, 'secs', timeint, mythid )  
559        write(msgbuf,'(a)')        write(msgbuf,'(a)')
560       &' '       &' '
561        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
562       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
563        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')        write(msgbuf,'(a,f12.0)')
564       &'   Atmospheric pressure forcing starts at      ',       &'   Atmospheric pressure forcing starts at      ',
565       &    (apressurestartdate(i), i=1,2),       &    apressurestartdate
      &    dayofweek(apressurestartdate(4)), '.'  
566        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
567       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
568        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
569       &'   Atmospheric pressure forcing period is      ',       &'   Atmospheric pressure forcing period is      ',
570       &    (timeint(i), i=1,2)       &    apressureperiod
571        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
572       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
573        write(msgbuf,'(a)')        write(msgbuf,'(a)')
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22