/[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.45 by dimitri, Fri Apr 27 13:22:47 2007 UTC revision 1.46 by heimbach, Wed May 2 22:31:35 2007 UTC
# Line 74  c     Surface flux data. Line 74  c     Surface flux data.
74       &   exf_scal_BulkCdn,     climtempfreeze,       &   exf_scal_BulkCdn,     climtempfreeze,
75       &          exf_iprec,         exf_yftype,   exf_monFreq,       &          exf_iprec,         exf_yftype,   exf_monFreq,
76       & useExfYearlyFields,  twoDigitYear,   useExfCheckRange,       & useExfYearlyFields,  twoDigitYear,   useExfCheckRange,
77       & selectStressGridPosition       & selectStressGridPosition,
78         & hu, ht, umin, atmrho, atmcp, cen2kel,
79         & cdrag_1, cdrag_2, cdrag_3, cstanton_1, cstanton_2, cdalton,
80         & flamb, flami, zolmin, zref,
81         & cvapor_fac, cvapor_exp, cvapor_fac_ice, cvapor_exp_ice,
82         & humid_fac, gamma_blk, saltsat, psim_fac
83    
84        NAMELIST /EXF_NML_02/        NAMELIST /EXF_NML_02/
85       &          hfluxfile,          atempfile,       aqhfile,       &          hfluxfile,          atempfile,       aqhfile,
# Line 194  c     Set default values. Line 199  c     Set default values.
199        year2sec           = 365.*86400.        year2sec           = 365.*86400.
200        exf_monFreq        = monitorFreq        exf_monFreq        = monitorFreq
201    
202          umin           = 0.5 _d 0
203          atmrho         =        1.200    d0
204          cdrag_1        =        0.0027000d0
205          cdrag_2        =        0.0001420d0
206          cdrag_3        =        0.0000764d0
207          cstanton_1     =        0.0327000d0
208          cstanton_2     =        0.0180000d0
209          cdalton        =        0.0346000d0
210          atmcp          =     1005.000    d0
211          flamb          =  2500000.000    d0
212          flami          =   334000.000    d0
213          zolmin         =     -100.000    d0
214          zref           =       10.000    d0
215          cvapor_fac     =   640380.000    d0
216          cvapor_exp     =     5107.400    d0
217          cvapor_fac_ice = 11637800.000    d0
218          cvapor_exp_ice =     5897.800    d0
219          humid_fac   =           0.606    d0
220          gamma_blk   =           0.010    d0
221          saltsat     =           0.980    d0
222          psim_fac    =           5.000    d0
223          cen2kel     =         273.150    d0
224          hu          =          10.000    d0
225          ht          =           2.000    d0
226    
227  c     Calendar data.  c     Calendar data.
228        hfluxstartdate1    = 0        hfluxstartdate1    = 0
229        hfluxstartdate2    = 0        hfluxstartdate2    = 0
# Line 649  c     Next, read the forcing data file. Line 679  c     Next, read the forcing data file.
679    
680        CLOSE( iUnit )        CLOSE( iUnit )
681    
682    c     Hard-wire certain parameters
683          hq = ht
684    
685        call exf_check( mythid )        call exf_check( mythid )
686    
687  c     Complete the start date specifications for the forcing  c     Complete the start date specifications for the forcing
Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46
  ViewVC Help
Powered by ViewVC 1.1.22