/[lmdze]/trunk/phylmd/Interface_surf/interfsurf_hq.f
ViewVC logotype

Diff of /trunk/phylmd/Interface_surf/interfsurf_hq.f

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

revision 268 by guez, Thu May 3 16:46:29 2018 UTC revision 269 by guez, Thu May 3 17:14:14 2018 UTC
# Line 113  contains Line 113  contains
113      real zfra(size(knindex)) ! (knon)      real zfra(size(knindex)) ! (knon)
114      REAL, PARAMETER:: fmagic = 1. ! facteur magique pour r\'egler l'alb\'edo      REAL, PARAMETER:: fmagic = 1. ! facteur magique pour r\'egler l'alb\'edo
115      REAL, PARAMETER:: max_eau_sol = 150. ! in kg m-2      REAL, PARAMETER:: max_eau_sol = 150. ! in kg m-2
116        REAL, PARAMETER:: tau_gl = 86400. * 5.
117    
118      !-------------------------------------------------------------      !-------------------------------------------------------------
119    
# Line 209  contains Line 210  contains
210    
211         CALL soil(dtime, is_sic, snow, tsurf_new, tsoil, soilcap, soilflux)         CALL soil(dtime, is_sic, snow, tsurf_new, tsoil, soilcap, soilflux)
212         cal = RCPD / soilcap         cal = RCPD / soilcap
213         dif_grnd = 0.         dif_grnd = 1. / tau_gl
214         tsurf = tsurf_new         tsurf = tsurf_new
215         beta = 1.         beta = 1.
216    
Legend:
Removed from v.268  
changed lines
  Added in v.269
  ViewVC Help
Powered by ViewVC 1.1.21