Changeset 2700 for palm/trunk/SOURCE


Ignore:
Timestamp:
Dec 15, 2017 2:12:35 PM (7 years ago)
Author:
suehring
Message:

Bugfix, missing initialization of surface attributes in case of inifor-initialization branch

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r2698 r2700  
    11581158          v = MERGE( v, 0.0_wp, BTEST( wall_flags_0, 2 ) )
    11591159          w = MERGE( w, 0.0_wp, BTEST( wall_flags_0, 3 ) )
     1160!
     1161!--       Initialize surface variables, e.g. friction velocity, momentum
     1162!--       fluxes, etc.
     1163          CALL init_surfaces
    11601164
    11611165          CALL location_message( 'finished', .TRUE. )
  • palm/trunk/SOURCE/netcdf_data_input_mod.f90

    r2696 r2700  
    554554!--             PE-wise reading of 2D vegetation type.
    555555                ALLOCATE ( vegetation_type_f%var(nys:nyn,nxl:nxr)  )
     556
    556557                DO  i = nxl, nxr
    557558                   CALL get_variable( id_surf, 'vegetation_type',              &
Note: See TracChangeset for help on using the changeset viewer.