Ignore:
Timestamp:
May 30, 2018 5:43:55 PM (3 years ago)
Author:
suehring
Message:

Speed-up NetCDF input; Revise NetCDF-input routines and remove input via io-blocks; Temporarily revoke renaming of input variables in dynamic driver; More detailed error messages created; Bugfix in mapping 3D buildings; Bugfix in land-surface model at pavement surfaces; Bugfix in initialization with inifor

File:
1 edited

Legend:

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

    r3049 r3051  
    2525! -----------------
    2626! $Id$
     27! Bugfix in surface-element loops for pavement surfaces
     28!
     29! 3045 2018-05-28 07:55:41Z Giersch
    2730! Error messages revised
    2831!
     
    37883791                   surf_lsm_v(l)%emissivity(ind_pav_green,m)  =                &
    37893792                                              pavement_pars(ind_p_emis,st)   
    3790 
    3791                    DO  k = nzb_soil, surf_lsm_h%nzt_pavement(m)
     3793                                             
     3794                   DO  k = nzb_soil, surf_lsm_v(l)%nzt_pavement(m)
    37923795                      surf_lsm_v(l)%lambda_h_def(k,m)    =                     &
    37933796                                    pavement_subsurface_pars_1(k,pavement_type)                       
     
    44104413                DO  k = nzb_soil, nzt_soil
    44114414                   IF ( surf_lsm_v(l)%pavement_surface(m)  .AND.               &
    4412                         k <= surf_lsm_h%nzt_pavement(m) )  THEN
     4415                        k <= surf_lsm_v(l)%nzt_pavement(m) )  THEN
    44134416                      surf_lsm_v(l)%root_fr(k,m) = 0.0_wp
    44144417                   ELSE
     
    46924695          ALLOCATE ( surf_lsm_v(l)%water_surface(1:surf_lsm_v(l)%ns)       )
    46934696
    4694           surf_lsm_v(l)%water_surface     = .FALSE.
    4695           surf_lsm_v(l)%pavement_surface  = .FALSE.
    4696           surf_lsm_v(l)%vegetation_surface   = .FALSE.
     4697          surf_lsm_v(l)%water_surface       = .FALSE.
     4698          surf_lsm_v(l)%pavement_surface    = .FALSE.
     4699          surf_lsm_v(l)%vegetation_surface  = .FALSE.
    46974700         
    46984701
Note: See TracChangeset for help on using the changeset viewer.