/[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.12 by jmc, Tue May 8 00:21:31 2007 UTC
# Line 1  Line 1 
1  c $Header$  C $Header$
2    C $Name$
3    
4  #include "EXF_OPTIONS.h"  #include "EXF_OPTIONS.h"
5    
6    
7        subroutine exf_Summary(        SUBROUTINE EXF_SUMMARY( myThid )
      I                        mythid  
      &                      )  
8    
9  c     ==================================================================  c     ==================================================================
10  c     SUBROUTINE exf_Summary  c     SUBROUTINE exf_summary
11  c     ==================================================================  c     ==================================================================
12  c  c
13  c     o List all the settings of the external forcing.  c     o List all the settings of the external forcing.
# Line 26  c     changed: Dimitris Menemenlis menem Line 25  c     changed: Dimitris Menemenlis menem
25  c              - modifications for using pkg/exf with pkg/seaice  c              - modifications for using pkg/exf with pkg/seaice
26  c  c
27  c     ==================================================================  c     ==================================================================
28  c     SUBROUTINE exf_Summary  c     SUBROUTINE exf_summary
29  c     ==================================================================  c     ==================================================================
30    
31        implicit none        implicit none
32    
33  c     == global variables ==  C     == global variables ==
34    
35  #include "EEPARAMS.h"  #include "EEPARAMS.h"
36  #include "SIZE.h"  #include "SIZE.h"
37  #include "cal.h"  #include "cal.h"
38  #include "exf.h"  #include "EXF_CONSTANTS.h"
39  #include "exf_param.h"  #include "EXF_PARAM.h"
40    
41  c     == routine arguments ==  C     == routine arguments ==
42    
43  c     mythid  - thread number for this instance of the routine.  C     myThid  - thread number for this instance of the routine.
44    
45        integer mythid        integer myThid
46    
47  c     == local variables ==  C     == local variables ==
48    
       integer i  
49        integer il        integer il
       integer timeint(4)  
50    
51        character*(max_len_mbuf) msgbuf        character*(max_len_mbuf) msgbuf
52    
53  c     == external ==  C     == external ==
54    
55        integer  ilnblnk        integer  ilnblnk
56        external ilnblnk        external ilnblnk
57    
58  c     == end of interface ==  C     == end of interface ==
59    
60        write(msgbuf,'(a)')        _BEGIN_MASTER( myThid )
61       &' '  
62          write(msgbuf,'(a)') ' '
63        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
64       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
65        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 76  c     == end of interface == Line 74  c     == end of interface ==
74       &'// ======================================================='       &'// ======================================================='
75        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
76       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
77        write(msgbuf,'(a)')        write(msgbuf,'(a)') ' '
      &' '  
       call print_message( msgbuf, standardmessageunit,  
      &                    SQUEEZE_RIGHT , mythid)  
       write(msgbuf,'(a,a)')  
      &'External forcing version: ',externalforcingversion  
       call print_message( msgbuf, standardmessageunit,  
      &                    SQUEEZE_RIGHT , mythid)  
       write(msgbuf,'(a,a)')  
      &'Uses Calendar version:    ',usescalendarversion  
       call print_message( msgbuf, standardmessageunit,  
      &                    SQUEEZE_RIGHT , mythid)  
       write(msgbuf,'(a)')  
      &' '  
78        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
79       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
80    
81  c--   Print settings of some CPP flags.  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          CALL WRITE_0D_R8( exf_monFreq, INDEX_NONE, 'exf_monFreq =',
101         &  ' /* EXF monitor frequency [ s ] */')
102          CALL WRITE_0D_R8( repeatPeriod, INDEX_NONE, 'repeatPeriod =',
103         &  ' /* period for cycling forcing dataset [ s ] */')
104          CALL WRITE_0D_R8( climtempfreeze, INDEX_NONE,'climTempFreeze=',
105         &  ' /* Minimum climatological temperature [deg.C] */')
106          CALL WRITE_0D_R8( windStressMax, INDEX_NONE,'windStressMax =',
107         &  ' /* Maximum absolute windstress [ Pa ] */')
108          CALL WRITE_0D_R8( exf_albedo, INDEX_NONE, 'exf_albedo =',
109         & '  /* Sea-water albedo [-] */')
110          CALL WRITE_0D_R8( ocean_emissivity, INDEX_NONE,
111         &  'ocean_emissivity =',
112         &  ' /* longwave ocean-surface emissivity [-] */')
113          CALL WRITE_0D_R8( ice_emissivity, INDEX_NONE,'ice_emissivity =',
114         &  ' /* longwave seaice emissivity [-] */')
115          CALL WRITE_0D_R8(snow_emissivity, INDEX_NONE,'snow_emissivity =',
116         &  ' /* longwave snow  emissivity [-] */')
117          CALL WRITE_0D_R8( atmrho, INDEX_NONE, 'atmrho =',
118         & '  /* mean atmospheric density [kg/m^3] */')
119          CALL WRITE_0D_R8( atmcp, INDEX_NONE, 'atmcp =',
120         & '  /* mean atmospheric specific heat [J/kg/K] */')
121          CALL WRITE_0D_R8( flamb, INDEX_NONE, 'flamb =',
122         & '  /* latent heat of evaporation [J/kg] */')
123          CALL WRITE_0D_R8( flami, INDEX_NONE, 'flami =',
124         & '  /* latent heat of pure-ice melting [J/kg] */')
125          CALL WRITE_0D_R8( cvapor_fac, INDEX_NONE, 'cvapor_fac =',
126         &  ' /* const. for Saturation calculation [?] */')
127          CALL WRITE_0D_R8( cvapor_exp, INDEX_NONE, 'cvapor_exp =',
128         &  ' /* const. for Saturation calculation [?] */')
129          CALL WRITE_0D_R8( cvapor_fac_ice, INDEX_NONE, 'cvapor_fac_ice=',
130         &  ' /* const. for Saturation calculation [?] */')
131          CALL WRITE_0D_R8( cvapor_exp_ice, INDEX_NONE, 'cvapor_exp_ice=',
132         &  ' /* const. for Saturation calculation [?] */')
133          CALL WRITE_0D_R8( humid_fac, INDEX_NONE, 'humid_fac =',
134         &  ' /* humidity coef. in virtual temp. [(kg/kg)^-1] */')
135          CALL WRITE_0D_R8( gamma_blk, INDEX_NONE, 'gamma_blk =',
136         &  ' /* adiabatic lapse rate [?] */')
137          CALL WRITE_0D_R8( saltsat, INDEX_NONE, 'saltsat =',
138         &  ' /* reduction of Qsat over salty water [-] */')
139          CALL WRITE_0D_R8( cen2kel, INDEX_NONE, 'cen2kel =',
140         &  ' /* conversion of deg. Centigrade to Kelvin [K] */')
141          CALL WRITE_0D_R8( exf_scal_BulkCdn, INDEX_NONE,
142         &  'exf_scal_BulkCdn=',
143         &  ' /* Drag coefficient scaling factor [-] */')
144          CALL WRITE_0D_R8( psim_fac, INDEX_NONE, 'psim_fac =',
145         &  ' /* coef used in turbulent fluxes calculation [-] */')
146          CALL WRITE_0D_R8( zolmin, INDEX_NONE, 'zolmin =',
147         &  ' /* minimum stability parameter [?] */')
148          CALL WRITE_0D_R8( hu, INDEX_NONE, 'zref =',
149         & '  /* reference height [ m ] */')
150          CALL WRITE_0D_R8( hu, INDEX_NONE, 'hu =',
151         & '  /* height of mean wind [ m ] */')
152          CALL WRITE_0D_R8( hu, INDEX_NONE, 'ht =',
153         & '  /* height of mean temperature [ m ] */')
154          CALL WRITE_0D_R8( hu, INDEX_NONE, 'hq =',
155         & '  /* height of mean spec.humidity [ m ] */')
156          CALL WRITE_0D_R8( umin, INDEX_NONE, 'uMin =',
157         &  ' /* minimum wind speed [m/s] */')
158          CALL WRITE_0D_R8( cdrag_1, INDEX_NONE, 'cDrag_1 =',
159         &  ' /* coef used in drag calculation [?] */')
160          CALL WRITE_0D_R8( cdrag_2, INDEX_NONE, 'cDrag_2 =',
161         &  ' /* coef used in drag calculation [?] */')
162          CALL WRITE_0D_R8( cdrag_3, INDEX_NONE, 'cDrag_3 =',
163         &  ' /* coef used in drag calculation [?] */')
164          CALL WRITE_0D_R8( cstanton_1, INDEX_NONE, 'cStanton_1 =',
165         &  ' /* coef used in Stanton number calculation [?] */')
166          CALL WRITE_0D_R8( cstanton_2, INDEX_NONE, 'cStanton_2 =',
167         &  ' /* coef used in Stanton number calculation [?] */')
168          CALL WRITE_0D_R8( cdalton, INDEX_NONE, 'cDalton =',
169         &  ' /* coef used in Dalton number calculation [?] */')
170          WRITE(msgBuf,'(A)') ' '
171          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
172         &                    SQUEEZE_RIGHT , myThid )
173    
174    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
175    C--   Print settings of some CPP flags.
176          WRITE(msgBuf,'(A)') ' EXF main CPP flags:'
177          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
178         &                    SQUEEZE_RIGHT , myThid )
179          WRITE(msgBuf,'(A)') ' '
180          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
181         &                    SQUEEZE_RIGHT , myThid )
182    
183  #ifdef ALLOW_ATM_TEMP  #ifdef ALLOW_ATM_TEMP
184        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 143  c--   Print settings of some CPP flags. Line 228  c--   Print settings of some CPP flags.
228       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
229  #endif  #endif
230    
231  c--   For each data set used the summary prints the calendar data  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
232  c     and the corresponding file from which the data will be read.  
233    C--   For each data set used the summary prints the calendar data
234    C     and the corresponding file from which the data will be read.
235    
236  #ifndef ALLOW_ATM_WIND  #ifndef ALLOW_ATM_WIND
237  c--   Zonal wind stress.  C--   Zonal wind stress.
238        il = ilnblnk(ustressfile)        il = ilnblnk(ustressfile)
239        call cal_TimeInterval( ustressperiod, 'secs', timeint, mythid )        write(msgbuf,'(a)') ' '
       write(msgbuf,'(a)')  
      &' '  
240        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
241       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
242        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')        write(msgbuf,'(a,f12.0)')
243       &'   Zonal wind stress forcing starts at         ',       &'   Zonal wind stress forcing starts at         ',
244       &    (ustressstartdate(i), i=1,2), dayofweek(ustressstartdate(4)),       &    ustressstartdate
      &    '.'  
245        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
246       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
247        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
248       &'   Zonal wind stress forcing period is         ',       &'   Zonal wind stress forcing period is         ',
249       &    (timeint(i), i=1,2)       &    ustressperiod
250        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
251       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
252        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 174  c--   Zonal wind stress. Line 258  c--   Zonal wind stress.
258        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
259       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
260    
261  c--   Meridional wind stress.  C--   Meridional wind stress.
262        il = ilnblnk(vstressfile)        il = ilnblnk(vstressfile)
263        call cal_TimeInterval( vstressperiod, 'secs', timeint, mythid )        write(msgbuf,'(a)') ' '
       write(msgbuf,'(a)')  
      &' '  
264        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
265       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
266        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')        write(msgbuf,'(a,f12.0)')
267       &'   Meridional wind stress forcing starts at    ',       &'   Meridional wind stress forcing starts at    ',
268       &    (vstressstartdate(i), i=1,2), dayofweek(vstressstartdate(4)),       &    vstressstartdate
      &    '.'  
269        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
270       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
271        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
272       &'   Meridional wind stress forcing period is    ',       &'   Meridional wind stress forcing period is    ',
273       &    (timeint(i), i=1,2)       &    vstressperiod
274        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
275       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
276        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 203  c--   Meridional wind stress. Line 284  c--   Meridional wind stress.
284  #endif  #endif
285    
286  #ifndef ALLOW_ATM_TEMP  #ifndef ALLOW_ATM_TEMP
287  c--   Heat flux.  C--   Heat flux.
288        il = ilnblnk(hfluxfile)        il = ilnblnk(hfluxfile)
289        call cal_TimeInterval( hfluxperiod, 'secs', timeint, mythid )        write(msgbuf,'(a)') ' '
       write(msgbuf,'(a)')  
      &' '  
290        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
291       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
292        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')        write(msgbuf,'(a,f12.0)')
293       &'   Heat flux forcing starts at                ',       &'   Heat flux forcing starts at                ',
294       &    (hfluxstartdate(i), i=1,2), dayofweek(hfluxstartdate(4)),'.'       &    hfluxstartdate
295        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
296       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
297        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
298       &'   Heat flux forcing period is                 ',       &'   Heat flux forcing period is                 ',
299       &    (timeint(i), i=1,2)       &    hfluxperiod
300        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
301       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
302        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 229  c--   Heat flux. Line 308  c--   Heat flux.
308        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
309       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
310    
311  c--   Salt flux.  C--   Salt flux.
312        il = ilnblnk(sfluxfile)        il = ilnblnk(sfluxfile)
313        call cal_TimeInterval( sfluxperiod, 'secs', timeint, mythid )        write(msgbuf,'(a)') ' '
       write(msgbuf,'(a)')  
      &' '  
314        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
315       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
316        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')        write(msgbuf,'(a,f12.0)')
317       &'   Salt flux forcing starts at                 ',       &'   Salt flux forcing starts at                 ',
318       &    (sfluxstartdate(i), i=1,2), dayofweek(sfluxstartdate(4)),'.'       &    sfluxstartdate
319        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
320       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
321        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
322       &'   Salt flux forcing period is                 ',       &'   Salt flux forcing period is                 ',
323       &    (timeint(i), i=1,2)       &    sfluxperiod
324        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
325       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
326        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 257  c--   Salt flux. Line 334  c--   Salt flux.
334  #endif  #endif
335    
336  #if defined(ALLOW_ATM_TEMP) || defined(SHORTWAVE_HEATING)  #if defined(ALLOW_ATM_TEMP) || defined(SHORTWAVE_HEATING)
337  c--   Net shortwave.  C--   Net shortwave.
338        il = ilnblnk(swfluxfile)        il = ilnblnk(swfluxfile)
339        call cal_TimeInterval( swfluxperiod, 'secs', timeint, mythid )        write(msgbuf,'(a)') ' '
       write(msgbuf,'(a)')  
      &' '  
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,1x,a,a)')        write(msgbuf,'(a,f12.0)')
343       &'   Net shortwave flux forcing starts at      ',       &'   Net shortwave flux forcing starts at      ',
344       &    (swfluxstartdate(i), i=1,2), dayofweek(swfluxstartdate(4)),       &    swfluxstartdate
      &    '.'  
345        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
346       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
347        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
348       &'   Net shortwave flux forcing period is      ',       &'   Net shortwave flux forcing period is      ',
349       &    (timeint(i), i=1,2)       &    swfluxperiod
350        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
351       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
352        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 286  c--   Net shortwave. Line 360  c--   Net shortwave.
360  #endif  #endif
361    
362  #ifdef ALLOW_ATM_WIND  #ifdef ALLOW_ATM_WIND
363  c--   Zonal wind.  C--   Zonal wind.
364        il = ilnblnk(uwindfile)        il = ilnblnk(uwindfile)
365        call cal_TimeInterval( uwindperiod, 'secs', timeint, mythid )        write(msgbuf,'(a)') ' '
       write(msgbuf,'(a)')  
      &' '  
366        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
367       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
368        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')        write(msgbuf,'(a,f12.0)')
369       &'   Zonal wind forcing starts at                ',       &'   Zonal wind forcing starts at                ',
370       &    (uwindstartdate(i), i=1,2), dayofweek(uwindstartdate(4)),       &    uwindstartdate
      &    '.'  
371        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
372       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
373        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
374       &'   Zonal wind forcing period is                ',       &'   Zonal wind forcing period is                ',
375       &    (timeint(i), i=1,2)       &    uwindperiod
376        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
377       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
378        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 313  c--   Zonal wind. Line 384  c--   Zonal wind.
384        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
385       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
386    
387  c--   Meridional wind.  C--   Meridional wind.
388        il = ilnblnk(vwindfile)        il = ilnblnk(vwindfile)
389        call cal_TimeInterval( vwindperiod, 'secs', timeint, mythid )        write(msgbuf,'(a)') ' '
       write(msgbuf,'(a)')  
      &' '  
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,1x,a,a)')        write(msgbuf,'(a,f12.0)')
393       &'   Meridional wind forcing starts at           ',       &'   Meridional wind forcing starts at           ',
394       &    (vwindstartdate(i), i=1,2), dayofweek(vwindstartdate(4)),       &    vwindstartdate
      &    '.'  
395        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
396       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
397        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
398       &'   Meridional wind forcing period is           ',       &'   Meridional wind forcing period is           ',
399       &    (timeint(i), i=1,2)       &    vwindperiod
400        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
401       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
402        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 342  c--   Meridional wind. Line 410  c--   Meridional wind.
410  #endif  #endif
411    
412  #ifdef ALLOW_ATM_TEMP  #ifdef ALLOW_ATM_TEMP
413  c--   Atmospheric temperature.  C--   Atmospheric temperature.
414        il = ilnblnk(atempfile)        il = ilnblnk(atempfile)
415        call cal_TimeInterval( atempperiod, 'secs', timeint, mythid )        write(msgbuf,'(a)') ' '
       write(msgbuf,'(a)')  
      &' '  
416        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
417       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
418        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')        write(msgbuf,'(a,f12.0)')
419       &'   Atmospheric temperature starts at           ',       &'   Atmospheric temperature starts at           ',
420       &    (atempstartdate(i), i=1,2), dayofweek(atempstartdate(4)),       &    atempstartdate
      &    '.'  
421        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
422       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
423        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
424       &'   Atmospheric temperature period is           ',       &'   Atmospheric temperature period is           ',
425       &    (timeint(i), i=1,2)       &    atempperiod
426        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
427       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
428        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 369  c--   Atmospheric temperature. Line 434  c--   Atmospheric temperature.
434        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
435       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
436    
437  c--   Atmospheric specific humidity.  C--   Atmospheric specific humidity.
438        il = ilnblnk(aqhfile)        il = ilnblnk(aqhfile)
439        call cal_TimeInterval( aqhperiod, 'secs', timeint, mythid )        write(msgbuf,'(a)') ' '
       write(msgbuf,'(a)')  
      &' '  
440        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
441       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
442        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')        write(msgbuf,'(a,f12.0)')
443       &'   Atmospheric specific humidity starts at     ',       &'   Atmospheric specific humidity starts at     ',
444       &    (aqhstartdate(i), i=1,2), dayofweek(aqhstartdate(4)),       &    aqhstartdate
      &    '.'  
445        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
446       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
447        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
448       &'   Atmospheric specific humidity period is     ',       &'   Atmospheric specific humidity period is     ',
449       &    (timeint(i), i=1,2)       &    aqhperiod
450        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
451       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
452        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 396  c--   Atmospheric specific humidity. Line 458  c--   Atmospheric specific humidity.
458        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
459       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
460    
461  c--   Net longwave.  C--   Net longwave.
462        il = ilnblnk(lwfluxfile)        il = ilnblnk(lwfluxfile)
463        call cal_TimeInterval( lwfluxperiod, 'secs', timeint, mythid )        write(msgbuf,'(a)') ' '
       write(msgbuf,'(a)')  
      &' '  
464        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
465       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
466        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')        write(msgbuf,'(a,f12.0)')
467       &'   Net longwave flux forcing starts at       ',       &'   Net longwave flux forcing starts at       ',
468       &    (lwfluxstartdate(i), i=1,2), dayofweek(lwfluxstartdate(4)),       &    lwfluxstartdate
      &    '.'  
469        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
470       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
471        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
472       &'   Net longwave flux forcing period is       ',       &'   Net longwave flux forcing period is       ',
473       &    (timeint(i), i=1,2)       &    lwfluxperiod
474        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
475       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
476        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 423  c--   Net longwave. Line 482  c--   Net longwave.
482        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
483       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
484    
485  c--   Precipitation.  C--   Precipitation.
486        il = ilnblnk(precipfile)        il = ilnblnk(precipfile)
487        call cal_TimeInterval( precipperiod, 'secs', timeint, mythid )        write(msgbuf,'(a)') ' '
       write(msgbuf,'(a)')  
      &' '  
488        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
489       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
490        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')        write(msgbuf,'(a,f12.0)')
491       &'   Precipitation data set starts at            ',       &'   Precipitation data set starts at            ',
492       &    (precipstartdate(i), i=1,2), dayofweek(precipstartdate(4)),       &    precipstartdate
      &'.'  
493        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
494       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
495        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
496       &'   Precipitation data period is                ',       &'   Precipitation data period is                ',
497       &    (timeint(i), i=1,2)       &    precipperiod
498        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
499       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
500        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 451  c--   Precipitation. Line 507  c--   Precipitation.
507       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
508  #endif  #endif
509    
510    C--   Evaporation.
511          write(msgbuf,'(a)') ' '
512          call print_message( msgbuf, standardmessageunit,
513         &                    SQUEEZE_RIGHT , mythid)
514  #ifdef EXF_READ_EVAP  #ifdef EXF_READ_EVAP
 c--   Evaporation.  
515        write(msgbuf,'(a)')        write(msgbuf,'(a)')
516       &'// EXF_READ_EVAP:                      defined'       &'// EXF_READ_EVAP:                      defined'
517        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
518       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
519        il = ilnblnk(evapfile)        il = ilnblnk(evapfile)
520        call cal_TimeInterval( evapperiod, 'secs', timeint, mythid )        write(msgbuf,'(a,f12.0)')
   
       write(msgbuf,'(a)')  
      &' '  
       call print_message( msgbuf, standardmessageunit,  
      &                    SQUEEZE_RIGHT , mythid)  
       write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')  
521       &'   Evaporation starts at     ',       &'   Evaporation starts at     ',
522       &    (evapstartdate(i), i=1,2), dayofweek(evapstartdate(4)),       &    evapstartdate
      &    '.'  
523        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
524       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
525        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
526       &'   Evaporation period is     ',       &'   Evaporation period is     ',
527       &    (timeint(i), i=1,2)       &    evapperiod
528        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
529       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
530        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 490  c--   Evaporation. Line 542  c--   Evaporation.
542       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
543  #endif  #endif
544    
545    C--   Runoff.
546          write(msgbuf,'(a)') ' '
547          call print_message( msgbuf, standardmessageunit,
548         &                    SQUEEZE_RIGHT , mythid)
549  #ifdef ALLOW_RUNOFF  #ifdef ALLOW_RUNOFF
 c--   Runoff.  
550        write(msgbuf,'(a)')        write(msgbuf,'(a)')
551       &'// ALLOW_RUNOFF:                       defined'       &'// ALLOW_RUNOFF:                       defined'
552        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
553       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
554        il = ilnblnk(runofffile)        il = ilnblnk(runofffile)
555        call cal_TimeInterval( runoffperiod, 'secs', timeint, mythid )        write(msgbuf,'(a,f12.0)')
   
       write(msgbuf,'(a)')  
      &' '  
       call print_message( msgbuf, standardmessageunit,  
      &                    SQUEEZE_RIGHT , mythid)  
       write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')  
556       &'   Runnoff starts at     ',       &'   Runnoff starts at     ',
557       &    (runoffstartdate(i), i=1,2), dayofweek(runoffstartdate(4)),       &    runoffstartdate
      &    '.'  
558        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
559       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
560        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
561       &'   Runoff period is     ',       &'   Runoff period is     ',
562       &    (timeint(i), i=1,2)       &    runoffperiod
563        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
564       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
565        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 530  c--   Runoff. Line 578  c--   Runoff.
578  #endif /* ALLOW_RUNOFF */  #endif /* ALLOW_RUNOFF */
579    
580  #ifdef DOWNWARD_RADIATION  #ifdef DOWNWARD_RADIATION
581  c--   Downward shortwave.  C--   Downward shortwave.
582        il = ilnblnk(swdownfile)        il = ilnblnk(swdownfile)
583        call cal_TimeInterval( swdownperiod, 'secs', timeint, mythid )        write(msgbuf,'(a)') ' '
       write(msgbuf,'(a)')  
      &' '  
584        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
585       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
586        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')        write(msgbuf,'(a,f12.0)')
587       &'   Downward shortwave flux forcing starts at      ',       &'   Downward shortwave flux forcing starts at      ',
588       &    (swdownstartdate(i), i=1,2), dayofweek(swdownstartdate(4)),       &    swdownstartdate
      &    '.'  
589        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
590       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
591        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
592       &'   Downward shortwave flux forcing period is      ',       &'   Downward shortwave flux forcing period is      ',
593       &    (timeint(i), i=1,2)       &    swdownperiod
594        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
595       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
596        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 557  c--   Downward shortwave. Line 602  c--   Downward shortwave.
602        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
603       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
604    
605  c--   Downward longwave.  C--   Downward longwave.
606        il = ilnblnk(lwdownfile)        il = ilnblnk(lwdownfile)
607        call cal_TimeInterval( lwdownperiod, 'secs', timeint, mythid )        write(msgbuf,'(a)') ' '
       write(msgbuf,'(a)')  
      &' '  
608        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
609       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
610        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')        write(msgbuf,'(a,f12.0)')
611       &'   Downward longwave flux forcing starts at       ',       &'   Downward longwave flux forcing starts at       ',
612       &    (lwdownstartdate(i), i=1,2), dayofweek(lwdownstartdate(4)),       &    lwdownstartdate
      &    '.'  
613        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
614       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
615        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
616       &'   Downward longwave flux forcing period is       ',       &'   Downward longwave flux forcing period is       ',
617       &    (timeint(i), i=1,2)       &    lwdownperiod
618        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
619       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
620        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 586  c--   Downward longwave. Line 628  c--   Downward longwave.
628  #endif  #endif
629    
630  #ifdef ATMOSPHERIC_LOADING  #ifdef ATMOSPHERIC_LOADING
631  c--   Atmospheric pressure.  C--   Atmospheric pressure.
632        il = ilnblnk(apressurefile)        il = ilnblnk(apressurefile)
633        call cal_TimeInterval( apressureperiod, 'secs', timeint, mythid )        write(msgbuf,'(a)') ' '
       write(msgbuf,'(a)')  
      &' '  
634        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
635       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
636        write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')        write(msgbuf,'(a,f12.0)')
637       &'   Atmospheric pressure forcing starts at      ',       &'   Atmospheric pressure forcing starts at      ',
638       &    (apressurestartdate(i), i=1,2),       &    apressurestartdate
      &    dayofweek(apressurestartdate(4)), '.'  
639        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
640       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
641        write(msgbuf,'(a,i9.8,i7.6)')        write(msgbuf,'(a,f12.0)')
642       &'   Atmospheric pressure forcing period is      ',       &'   Atmospheric pressure forcing period is      ',
643       &    (timeint(i), i=1,2)       &    apressureperiod
644        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
645       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
646        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 614  c--   Atmospheric pressure. Line 653  c--   Atmospheric pressure.
653       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
654  #endif  #endif
655    
656        write(msgbuf,'(a)')        write(msgbuf,'(a)') ' '
      &' '  
657        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
658       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
659        write(msgbuf,'(a)')        write(msgbuf,'(a)')
# Line 630  c--   Atmospheric pressure. Line 668  c--   Atmospheric pressure.
668       &'// ======================================================='       &'// ======================================================='
669        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
670       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
671          write(msgbuf,'(a)') ' '
672          call print_message( msgbuf, standardmessageunit,
673         &                    SQUEEZE_RIGHT , mythid)
674    
675    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
676    
677          call print_message( msgbuf, standardmessageunit,
678         &                    SQUEEZE_RIGHT , mythid)
679          write(msgbuf,'(a)')
680         &'// ======================================================='
681          call print_message( msgbuf, standardmessageunit,
682         &                    SQUEEZE_RIGHT , mythid)
683          write(msgbuf,'(a)')
684         &'// External forcing climatology configuration >>> START <<<'
685          call print_message( msgbuf, standardmessageunit,
686         &                    SQUEEZE_RIGHT , mythid)
687          write(msgbuf,'(a)')
688         &'// ======================================================='
689          call print_message( msgbuf, standardmessageunit,
690         &                    SQUEEZE_RIGHT , mythid)
691          write(msgbuf,'(a)') ' '
692          call print_message( msgbuf, standardmessageunit,
693         &                    SQUEEZE_RIGHT , mythid)
694    
695    C     For each data set used the summary prints the calendar data
696    C     and the corresponding file from which the data will be read.
697    
698    #ifdef ALLOW_CLIMSST_RELAXATION
699          write(msgbuf,'(a)')
700         &'// ALLOW_CLIMSST_RELAXATION:           defined'
701          call print_message( msgbuf, standardmessageunit,
702         &                    SQUEEZE_RIGHT , mythid)
703    #else
704          write(msgbuf,'(a)')
705         &'// ALLOW_CLIMSST_RELAXATION:       NOT defined'
706          call print_message( msgbuf, standardmessageunit,
707         &                    SQUEEZE_RIGHT , mythid)
708    #endif
709    
710    #ifdef ALLOW_CLIMSSS_RELAXATION
711          write(msgbuf,'(a)')
712         &'// ALLOW_CLIMSSS_RELAXATION:           defined'
713          call print_message( msgbuf, standardmessageunit,
714         &                    SQUEEZE_RIGHT , mythid)
715    #else
716          write(msgbuf,'(a)')
717         &'// ALLOW_CLIMSSS_RELAXATION:       NOT defined'
718          call print_message( msgbuf, standardmessageunit,
719         &                    SQUEEZE_RIGHT , mythid)
720    #endif
721    
722    C     The climatological data sets are assumed to contain monthly
723    C     data. This can be changed in a later version to an arbitrary
724    C     number of intervals during a given year.
725    
726    #ifdef ALLOW_CLIMSST_RELAXATION
727    C     Relaxation to SST climatology.
728          il = ilnblnk(climsstfile)
729        write(msgbuf,'(a)')        write(msgbuf,'(a)')
730       &' '       &' '
731        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
732       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
733          write(msgbuf,'(a,f12.0)')
734         &'   Climatological SST starts at         ',
735         &    climsststartdate
736          call print_message( msgbuf, standardmessageunit,
737         &                    SQUEEZE_RIGHT , mythid)
738          write(msgbuf,'(a,f12.0)')
739         &'   Climatological SST period is         ',
740         &    climsstperiod
741          call print_message( msgbuf, standardmessageunit,
742         &                    SQUEEZE_RIGHT , mythid)
743          write(msgbuf,'(a)')
744         &'   Climatological SST is read from file:'
745          call print_message( msgbuf, standardmessageunit,
746         &                    SQUEEZE_RIGHT , mythid)
747          write(msgbuf,'(a,a,a)')
748         &'   >>  ',climsstfile(1:il),'  <<'
749          call print_message( msgbuf, standardmessageunit,
750         &                    SQUEEZE_RIGHT , mythid)
751    #endif
752    
753    #ifdef ALLOW_CLIMSSS_RELAXATION
754    C     Relaxation to SSS climatology.
755          il = ilnblnk(climsssfile)
756          write(msgbuf,'(a)')
757         &' '
758          call print_message( msgbuf, standardmessageunit,
759         &                    SQUEEZE_RIGHT , mythid)
760          write(msgbuf,'(a,f12.0)')
761         &'   Climatological SSS starts at         ',
762         &    climsssstartdate
763          call print_message( msgbuf, standardmessageunit,
764         &                    SQUEEZE_RIGHT , mythid)
765          write(msgbuf,'(a,f12.0)')
766         &'   Climatological SSS period is         ',
767         &    climsssperiod
768          call print_message( msgbuf, standardmessageunit,
769         &                    SQUEEZE_RIGHT , mythid)
770          write(msgbuf,'(a)')
771         &'   Climatological SSS is read from file:'
772          call print_message( msgbuf, standardmessageunit,
773         &                    SQUEEZE_RIGHT , mythid)
774          write(msgbuf,'(a,a,a)')
775         &'   >>  ',climsssfile(1:il),'  <<'
776          call print_message( msgbuf, standardmessageunit,
777         &                    SQUEEZE_RIGHT , mythid)
778    #endif
779    
780          write(msgbuf,'(a)') ' '
781          call print_message( msgbuf, standardmessageunit,
782         &                    SQUEEZE_RIGHT , mythid)
783          write(msgbuf,'(a)')
784         &'// ======================================================='
785          call print_message( msgbuf, standardmessageunit,
786         &                    SQUEEZE_RIGHT , mythid)
787          write(msgbuf,'(a)')
788         &'// External forcing climatology configuration  >>> END <<<'
789          call print_message( msgbuf, standardmessageunit,
790         &                    SQUEEZE_RIGHT , mythid)
791          write(msgbuf,'(a)')
792         &'// ======================================================='
793          call print_message( msgbuf, standardmessageunit,
794         &                    SQUEEZE_RIGHT , mythid)
795          write(msgbuf,'(a)') ' '
796          call print_message( msgbuf, standardmessageunit,
797         &                    SQUEEZE_RIGHT , mythid)
798    
799          _END_MASTER( myThid )
800    
801        end        RETURN
802          END
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22