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

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

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

revision 1.3 by heimbach, Tue Nov 12 20:34:41 2002 UTC revision 1.4.2.1 by cheisey, Fri Dec 27 15:09:45 2002 UTC
# Line 35  c              - added new obcs paramete Line 35  c              - added new obcs paramete
35  c     included runoff D. Stammer, Nov. 25, 2001  c     included runoff D. Stammer, Nov. 25, 2001
36  c     included pressure forcing. heimbach@mit.edu 05-Nov-2002  c     included pressure forcing. heimbach@mit.edu 05-Nov-2002
37  c  c
38    c     added "repeatPeriod" for cycling of forcing datasets 19-Dec-2002
39  c     ==================================================================  c     ==================================================================
40  c     SUBROUTINE exf_readparms  c     SUBROUTINE exf_readparms
41  c     ==================================================================  c     ==================================================================
# Line 67  c     == end of interface == Line 68  c     == end of interface ==
68    
69  c     Surface flux data.  c     Surface flux data.
70        namelist /exf_nml/        namelist /exf_nml/
71         &    repeatPeriod,
72       &    hfluxstartdate1,    hfluxstartdate2,   hfluxperiod,       &    hfluxstartdate1,    hfluxstartdate2,   hfluxperiod,
73       &    atempstartdate1,    atempstartdate2,   atempperiod,       &    atempstartdate1,    atempstartdate2,   atempperiod,
74       &      aqhstartdate1,      aqhstartdate2,     aqhperiod,       &      aqhstartdate1,      aqhstartdate2,     aqhperiod,
# Line 92  c     Surface flux data. Line 94  c     Surface flux data.
94       &          exf_iprec,         exf_yftype,       &          exf_iprec,         exf_yftype,
95       &           scal_hfl,           scal_ust,       scal_vst,       &           scal_hfl,           scal_ust,       scal_vst,
96       &           scal_swf,           scal_sst,       scal_sss,       &           scal_swf,           scal_sst,       scal_sss,
97       &     scal_apressure,           scal_prc,       scal_sfl       &     scal_apressure,           scal_prc,       scal_sfl,
98         &    windspeedstartdate1,    windspeedstartdate2,  
99         &    windspeedperiod, windspeedfile
100        _BEGIN_MASTER(mythid)        _BEGIN_MASTER(mythid)
101    
102  c     Set default values.  c     Set default values.
# Line 167  c     Calendar data. Line 170  c     Calendar data.
170        apressurestartdate2    = 0        apressurestartdate2    = 0
171        apressureperiod        = 0.0 _d 0        apressureperiod        = 0.0 _d 0
172    
173          windspeedstartdate1    = 0
174          windspeedstartdate2    = 0
175          windspeedperiod        = 0.0 _d 0
176    
177    
178          repeatPeriod           = 0.0 _d 0
179    
180    
181  c     Data files.  c     Data files.
182        hfluxfile          = ' '        hfluxfile          = ' '
183        atempfile          = ' '        atempfile          = ' '
# Line 181  c     Data files. Line 192  c     Data files.
192        swfluxfile         = ' '        swfluxfile         = ' '
193        lwfluxfile         = ' '        lwfluxfile         = ' '
194        apressurefile      = ' '        apressurefile      = ' '
195          windspeedfile      = ' '
196    
197  c     Initialise the date arrays.  c     Initialise the date arrays.
198        do i = 1,4        do i = 1,4
# Line 201  c     Initialise the date arrays. Line 213  c     Initialise the date arrays.
213           obcsEstartdate(i)    = 0           obcsEstartdate(i)    = 0
214           obcsWstartdate(i)    = 0           obcsWstartdate(i)    = 0
215           apressurestartdate(i)= 0           apressurestartdate(i)= 0
216             windspeedstartdate(i)= 0
217        enddo        enddo
218    
219  c     Initialise file type and field precision  c     Initialise file type and field precision
# Line 273  c     check for consistency Line 286  c     check for consistency
286       &                    lwfluxstartdate,            mythid )       &                    lwfluxstartdate,            mythid )
287        call cal_FullDate(  precipstartdate1,  precipstartdate2,        call cal_FullDate(  precipstartdate1,  precipstartdate2,
288       &                    precipstartdate,            mythid )       &                    precipstartdate,            mythid )
289          call cal_FullDate(windspeedstartdate1, windspeedstartdate2,
290         &                     windspeedstartdate,            mythid )
291  #else  #else
292        call cal_FullDate(   hfluxstartdate1,   hfluxstartdate2,        call cal_FullDate(   hfluxstartdate1,   hfluxstartdate2,
293       &                     hfluxstartdate,            mythid )       &                     hfluxstartdate,            mythid )
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4.2.1
  ViewVC Help
Powered by ViewVC 1.1.22