Changeset 3349 for palm/trunk


Ignore:
Timestamp:
Oct 15, 2018 4:39:41 PM (6 years ago)
Author:
suehring
Message:

Bugfix in initialization of soil properties from dynamic input file

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r3347 r3349  
    2525! -----------------
    2626! $Id$
     27! Bugfix in initialization of soil properties from dynamic input file
     28!
     29! 3347 2018-10-15 14:21:08Z suehring
    2730! Assign real value instead of integer
    2831!
     
    27572760                   surf_lsm_v(l)%building_covered(m) = .FALSE.
    27582761!
    2759 !--                      Wall grid point is building-covered. This case, set
    2760 !--                      flag indicating that surface properties are initialized
    2761 !--                      from neighboring reference grid point, which is not
    2762 !--                      building_covered.
     2762!--                Wall grid point is building-covered. This case, set
     2763!--                flag indicating that surface properties are initialized
     2764!--                from neighboring reference grid point, which is not
     2765!--                building_covered.
    27632766                   IF ( building_type_f%from_file )  THEN
    27642767                      i = surf_lsm_v(l)%i(m)
     
    43564359                DO  l = 0, 3
    43574360                   DO  m = 1, surf_lsm_v(l)%ns
    4358                       i = surf_lsm_v(l)%i(m) + MERGE( 0, surf_lsm_v(l)%ioff,   &
    4359                                              surf_lsm_v(l)%building_covered(m) )
    4360                       j = surf_lsm_v(l)%j(m) + MERGE( 0, surf_lsm_v(l)%joff,   &
    4361                                              surf_lsm_v(l)%building_covered(m) )
     4361!
     4362!--                   Note, in contrast to the static input data the dynamic
     4363!--                   input do not need to be checked whether a grid point
     4364!--                   is building covered. This is because soil data in the
     4365!--                   dynamic input is provided for the whole domain. 
     4366                      i = surf_lsm_v(l)%i(m)
     4367                      j = surf_lsm_v(l)%j(m)
    43624368
    43634369                      IF ( init_3d%msoil_3d(0,j,i) /= init_3d%fill_msoil )     &
     
    44174423                DO  l = 0, 3
    44184424                   DO  m = 1, surf_lsm_v(l)%ns
    4419                       i = surf_lsm_v(l)%i(m) + MERGE( 0, surf_lsm_v(l)%ioff,   &
    4420                                                 surf_lsm_v(l)%building_covered(m) )
    4421                       j = surf_lsm_v(l)%j(m) + MERGE( 0, surf_lsm_v(l)%joff,   &
    4422                                                 surf_lsm_v(l)%building_covered(m) )
     4425!
     4426!--                   Note, in contrast to the static input data the dynamic
     4427!--                   input do not need to be checked whether a grid point
     4428!--                   is building covered. This is because soil data in the
     4429!--                   dynamic input is provided for the whole domain. 
     4430                      i = surf_lsm_v(l)%i(m)
     4431                      j = surf_lsm_v(l)%j(m)
    44234432
    44244433                      IF ( init_3d%tsoil_3d(0,j,i) /= init_3d%fill_tsoil )     &
  • palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

    r3348 r3349  
    2020! Current revisions:
    2121! -----------------
    22 ! Fix for format descriptor
     22!
    2323!
    2424! Former revisions:
    2525! -----------------
    2626! $Id$
     27! Fix for format descriptor
     28!
     29! 3348 2018-10-15 14:30:51Z suehring
    2730! - Revise structure of init routine
    2831! - introduce new parameters to skip STG for some timesteps
Note: See TracChangeset for help on using the changeset viewer.