/[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 215 by guez, Tue Mar 28 12:46:28 2017 UTC revision 217 by guez, Thu Mar 30 14:25:18 2017 UTC
# Line 26  contains Line 26  contains
26      USE dimphy, ONLY: klon      USE dimphy, ONLY: klon
27      USE fonte_neige_m, ONLY: fonte_neige      USE fonte_neige_m, ONLY: fonte_neige
28      USE indicesol, ONLY: epsfra, is_lic, is_oce, is_sic, is_ter      USE indicesol, ONLY: epsfra, is_lic, is_oce, is_sic, is_ter
29      USE interface_surf, ONLY: run_off_lic, conf_interface      USE interface_surf, ONLY: conf_interface
30      USE interfsur_lim_m, ONLY: interfsur_lim      USE interfsur_lim_m, ONLY: interfsur_lim
31      use read_sst_m, only: read_sst      use read_sst_m, only: read_sst
32      use soil_m, only: soil      use soil_m, only: soil
# Line 263  contains Line 263  contains
263         fder = fder + dflux_s + dflux_l         fder = fder + dflux_s + dflux_l
264         z0_new = SQRT(0.002**2 + rugoro**2)         z0_new = SQRT(0.002**2 + rugoro**2)
265      case (is_lic)      case (is_lic)
        if (.not. allocated(run_off_lic)) then  
           allocate(run_off_lic(knon))  
           run_off_lic = 0.  
        endif  
   
266         ! Surface "glacier continentaux" appel a l'interface avec le sol         ! Surface "glacier continentaux" appel a l'interface avec le sol
267    
268         IF (soil_model) THEN         IF (soil_model) THEN
Legend:
Removed from v.215  
changed lines
  Added in v.217
  ViewVC Help
Powered by ViewVC 1.1.21