/[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.4 by cheisey, Thu Dec 19 13:44:51 2002 UTC revision 1.5 by dimitri, Sat Dec 28 10:11:11 2002 UTC
# Line 34  c     changed: Virginie Thierry, vthierr Line 34  c     changed: Virginie Thierry, vthierr
34  c              - added new obcs parameters (for each boundaries)  c              - added new obcs parameters (for each boundaries)
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
 c  
37  c     added "repeatPeriod" for cycling of forcing datasets 19-Dec-2002  c     added "repeatPeriod" for cycling of forcing datasets 19-Dec-2002
38    c     added option EXF_READ_EVAP. menemenlis@jpl.nasa.gov 20-Dec-2002
39    c
40  c     ==================================================================  c     ==================================================================
41  c     SUBROUTINE exf_readparms  c     SUBROUTINE exf_readparms
42  c     ==================================================================  c     ==================================================================
# Line 73  c     Surface flux data. Line 74  c     Surface flux data.
74       &    atempstartdate1,    atempstartdate2,   atempperiod,       &    atempstartdate1,    atempstartdate2,   atempperiod,
75       &      aqhstartdate1,      aqhstartdate2,     aqhperiod,       &      aqhstartdate1,      aqhstartdate2,     aqhperiod,
76       &    sfluxstartdate1,    sfluxstartdate2,   sfluxperiod,       &    sfluxstartdate1,    sfluxstartdate2,   sfluxperiod,
77         &     evapstartdate1,     evapstartdate2,    evapperiod,
78       &   precipstartdate1,   precipstartdate2,  precipperiod,       &   precipstartdate1,   precipstartdate2,  precipperiod,
79       &   runoffstartdate1,   runoffstartdate2,  runoffperiod,       &   runoffstartdate1,   runoffstartdate2,  runoffperiod,
80       &  ustressstartdate1,  ustressstartdate2, ustressperiod,       &  ustressstartdate1,  ustressstartdate2, ustressperiod,
# Line 88  c     Surface flux data. Line 90  c     Surface flux data.
90       &apressurestartdate1,apressurestartdate2,apressureperiod,       &apressurestartdate1,apressurestartdate2,apressureperiod,
91       &          hfluxfile,          atempfile,       aqhfile,       &          hfluxfile,          atempfile,       aqhfile,
92       &          sfluxfile,         precipfile,    runofffile,       &          sfluxfile,         precipfile,    runofffile,
93       &        ustressfile,        vstressfile,       &        ustressfile,        vstressfile,      evapfile,
94       &          uwindfile,          vwindfile,       &          uwindfile,          vwindfile,
95       &         swfluxfile,         lwfluxfile, apressurefile,       &         swfluxfile,         lwfluxfile, apressurefile,
96       &          exf_iprec,         exf_yftype,       &          exf_iprec,         exf_yftype,
97       &           scal_hfl,           scal_ust,       scal_vst,       &           scal_hfl,           scal_ust,       scal_vst,
98       &           scal_swf,           scal_sst,       scal_sss,       &           scal_swf,           scal_sst,       scal_sss,
99       &     scal_apressure,           scal_prc,       scal_sfl       &     scal_apressure,           scal_sfl
100    
101        _BEGIN_MASTER(mythid)        _BEGIN_MASTER(mythid)
102    
# Line 117  c     Calendar data. Line 119  c     Calendar data.
119        sfluxstartdate2    = 0        sfluxstartdate2    = 0
120        sfluxperiod        = 0.0 _d 0        sfluxperiod        = 0.0 _d 0
121    
122          evapstartdate1   = 0
123          evapstartdate2   = 0
124          evapperiod       = 0.0 _d 0
125    
126        precipstartdate1   = 0        precipstartdate1   = 0
127        precipstartdate2   = 0        precipstartdate2   = 0
128        precipperiod       = 0.0 _d 0        precipperiod       = 0.0 _d 0
# Line 171  c     Calendar data. Line 177  c     Calendar data.
177    
178        repeatPeriod           = 0.0 _d 0        repeatPeriod           = 0.0 _d 0
179    
   
180  c     Data files.  c     Data files.
181        hfluxfile          = ' '        hfluxfile          = ' '
182        atempfile          = ' '        atempfile          = ' '
183        aqhfile            = ' '        aqhfile            = ' '
184          evapfile           = ' '
185        precipfile         = ' '        precipfile         = ' '
186        sfluxfile          = ' '        sfluxfile          = ' '
187        runofffile         = ' '        runofffile         = ' '
# Line 192  c     Initialise the date arrays. Line 198  c     Initialise the date arrays.
198           hfluxstartdate(i)    = 0           hfluxstartdate(i)    = 0
199           atempstartdate(i)    = 0           atempstartdate(i)    = 0
200           aqhstartdate(i)      = 0           aqhstartdate(i)      = 0
201             evapstartdate(i)     = 0
202           precipstartdate(i)   = 0           precipstartdate(i)   = 0
203           sfluxstartdate(i)    = 0           sfluxstartdate(i)    = 0
204           runoffstartdate(i)   = 0           runoffstartdate(i)   = 0
# Line 220  c     scaling between exf units and MITg Line 227  c     scaling between exf units and MITg
227        scal_sst       =  1. _d 0        scal_sst       =  1. _d 0
228        scal_sss       =  1. _d 0        scal_sss       =  1. _d 0
229        scal_apressure =  1. _d 0        scal_apressure =  1. _d 0
 #if (defined (ALLOW_BULKFORMULAE) && defined (ALLOW_ATM_TEMP))  
       scal_prc       =  1. _d 0  
 #else  
230        scal_sfl       =  1. _d 0            scal_sfl       =  1. _d 0    
 #endif  
231    
232  c     Check for the availability of the right calendar version.  c     Check for the availability of the right calendar version.
233        if ( calendarversion .ne. usescalendarversion ) then        if ( calendarversion .ne. usescalendarversion ) then
# Line 260  c     check for consistency Line 263  c     check for consistency
263           stop 'stop in exf_readparms: value of exf_yftype not allowed'           stop 'stop in exf_readparms: value of exf_yftype not allowed'
264        end if        end if
265    
266    #ifdef EXF_READ_EVAP
267          call cal_FullDate(  evapstartdate1,    evapstartdate2,
268         &                    evapstartdate,              mythid )
269    #endif EXF_READ_EVAP
270    
271  #ifdef ALLOW_RUNOFF  #ifdef ALLOW_RUNOFF
272        call cal_FullDate(  runoffstartdate1,  runoffstartdate2,        call cal_FullDate(  runoffstartdate1,  runoffstartdate2,
273       &                    runoffstartdate,            mythid )       &                    runoffstartdate,            mythid )
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22