Changeset 4824 for palm/trunk/SOURCE/surface_data_output_mod.f90

Timestamp:

Dec 12, 2020 8:45:23 PM (3 years ago)

Author:

moh.hefny

Message:

bugfix in surface_data_output_mod and radiation_model_mod

File:

• palm/trunk/SOURCE/surface_data_output_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/surface_data_output_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix: correct the down-ward surf_lsm index in the routine surface_data_output_collect_2d
+!
+! 4805 2020-12-02 12:05:34Z gronemeier
 ! Bugfix: add time_dosurf to restart data
 !
@@ -4040 +4043 @@
        ENDDO
     ELSE
-       n_surf = n_surf + surf_lsm_h(0)%ns
+       n_surf = n_surf + surf_lsm_h(1)%ns
     ENDIF
     IF ( ALLOCATED( var_usm_h0 ) )  THEN