Changeset 2700 for palm

Timestamp:

Dec 15, 2017 2:12:35 PM (6 years ago)

Author:

suehring

Message:

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

Location:

palm/trunk/SOURCE

Files:

• init_3d_model.f90 (modified) (1 diff)
• netcdf_data_input_mod.f90 (modified) (1 diff)

palm/trunk/SOURCE/init_3d_model.f90

@@ -1158 +1158 @@
           v = MERGE( v, 0.0_wp, BTEST( wall_flags_0, 2 ) )
           w = MERGE( w, 0.0_wp, BTEST( wall_flags_0, 3 ) )
+!
+!--       Initialize surface variables, e.g. friction velocity, momentum 
+!--       fluxes, etc. 
+          CALL init_surfaces
 
           CALL location_message( 'finished', .TRUE. )

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -554 +554 @@
 !--             PE-wise reading of 2D vegetation type.
                 ALLOCATE ( vegetation_type_f%var(nys:nyn,nxl:nxr)  )
+
                 DO  i = nxl, nxr
                    CALL get_variable( id_surf, 'vegetation_type',              &