Ignore:
Timestamp:
Apr 10, 2019 9:31:22 AM (2 years ago)
Author:
suehring
Message:

Make level 3 initialization of urban-surfaces consistent to input data standard; revise flagging of ground-floor level surfaces at buidlings; bugfixes in level 3 initialization of albedo; bugfix in OpenMP directive; check for zero output timestep in surface output; assure that Obukhov lenght does not become zero

File:
1 edited

Legend:

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

    r3868 r3881  
    2525! -----------------
    2626! $Id$
     27! Bugfix in level 3 initialization of pavement albedo type and pavement
     28! emissivity
     29!
     30! 3868 2019-04-08 11:52:36Z suehring
    2731! More strict limitation of roughness length when it is in the order of the
    2832! vertical grid spacing
     
    41864190                     pavement_pars_f%fill )                                    &
    41874191                   surf_lsm_h%albedo_type(ind_pav_green,m) =                   &
    4188                                               INT( pavement_pars(ind_p_at,st) )
     4192                                   INT( pavement_pars_f%pars_xy(ind_p_at,j,i) )
    41894193                IF ( pavement_pars_f%pars_xy(ind_p_emis,j,i) /=                &
    41904194                     pavement_pars_f%fill )                                    &
    41914195                   surf_lsm_h%emissivity(ind_pav_green,m)  =                   &
    4192                                               pavement_pars(ind_p_emis,st)
     4196                                   pavement_pars_f%pars_xy(ind_p_emis,j,i)
    41934197             ENDIF
    41944198
     
    42464250                        pavement_pars_f%fill )                                 &
    42474251                      surf_lsm_v(l)%albedo_type(ind_pav_green,m) =             &
    4248                                             INT( pavement_pars(ind_p_at,st) )
     4252                                   INT( pavement_pars_f%pars_xy(ind_p_at,j,i) )
    42494253
    42504254                   IF ( pavement_pars_f%pars_xy(ind_p_emis,j,i) /=             &
    42514255                        pavement_pars_f%fill )                                 &
    42524256                      surf_lsm_v(l)%emissivity(ind_pav_green,m)  =             &
    4253                                             pavement_pars(ind_p_emis,st
     4257                                   pavement_pars_f%pars_xy(ind_p_emis,j,i
    42544258                ENDIF
    42554259             ENDDO
Note: See TracChangeset for help on using the changeset viewer.