Ignore:
Timestamp:
Feb 14, 2018 5:00:09 PM (4 years ago)
Author:
suehring
Message:

Bugfix in re-mapping surface-element data in case of restarts; bugfix in initialization of water-surface roughness; bugfix - uninitialized resistance at urban-type surfaces

File:
1 edited

Legend:

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

    r2798 r2805  
    2525! -----------------
    2626! $Id$
     27! Bugfix in initialization of roughness over water surfaces
     28!
     29! 2798 2018-02-09 17:16:39Z suehring
    2730! Minor bugfix for initialization of pt_surface
    2831!
     
    33823385                   surf_lsm_h%z0q(m)    = water_pars_f%pars_xy(ind_w_z0h,j,i)
    33833386                ENDIF
    3384 
    33853387                IF ( water_pars_f%pars_xy(ind_w_lambda_s,j,i) /=               &
    33863388                     water_pars_f%fill )                                       &
     
    38643866          ENDDO
    38653867       ENDIF
     3868
    38663869!
    38673870!--    Initial run actions
     
    42644267!--    Calculate new roughness lengths (for water surfaces only, i.e. only
    42654268!-     horizontal surfaces)
    4266        CALL calc_z0_water_surface
     4269       IF ( .NOT. constant_roughness )  CALL calc_z0_water_surface
    42674270
    42684271       t_soil_h_p    = t_soil_h
     
    43074310          ENDIF
    43084311       ENDDO
     4312
    43094313
    43104314
     
    58975901      ENDIF
    58985902      READ ( 13 ) ns_v_on_file_lsm
    5899 
    59005903!
    59015904!--   Allocate temporary arrays to store surface data
Note: See TracChangeset for help on using the changeset viewer.