Changeset 3856 for palm/trunk


Ignore:
Timestamp:
Apr 3, 2019 11:06:59 AM (6 years ago)
Author:
suehring
Message:

Bugfix in lsm_init in case no surface fractions are provided

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/land_surface_model_mod.f90

    r3847 r3856  
    2525! -----------------
    2626! $Id$
     27! Bugfix in lsm_init in case no surface-fractions are provided
     28!
     29! 3847 2019-04-01 14:51:44Z suehring
    2730! Adjust message-call for checks that are especially carried out locally.
    2831!
     
    29052908                         vegetation_type_f%var(j,i)                 = 1 ! bare soil
    29062909                         soil_type_f%var_2d(j,i)                    = 1
    2907                          surface_fraction_f%frac(ind_veg_wall,j,i)  = 1.0_wp
    2908                          surface_fraction_f%frac(ind_pav_green,j,i) = 0.0_wp
    2909                          surface_fraction_f%frac(ind_wat_win,j,i)   = 0.0_wp
     2910!                         
     2911!--                      Set surface_fraction if provided in static input,
     2912!--                      else, in case no tiles are used, this will be done
     2913!--                      on basis of the prescribed types (vegetation/pavement/
     2914!--                      water_type).
     2915                         IF ( surface_fraction_f%from_file )  THEN
     2916                            surface_fraction_f%frac(ind_veg_wall,j,i)  = 1.0_wp
     2917                            surface_fraction_f%frac(ind_pav_green,j,i) = 0.0_wp
     2918                            surface_fraction_f%frac(ind_wat_win,j,i)   = 0.0_wp
     2919                         ENDIF
    29102920                      ENDIF
    29112921                     
Note: See TracChangeset for help on using the changeset viewer.