Changeset 2513 for palm/trunk/SOURCE/init_3d_model.f90

Timestamp:

Oct 4, 2017 9:24:39 AM (7 years ago)

Author:

kanani

Message:

Bugfixes related to profile output of passive scalar

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix in storing initial scalar profile (wrong index)
+! 
+! 2350 2017-08-15 11:48:26Z kanani
 ! Bugfix in nopointer version
 ! 
@@ -1301 +1304 @@
 !
 !--       Store initial scalar profile
-          hom(:,1,115,:) = SPREAD(  s(:,nys,nxl), 2, statistic_regions+1 )
+          hom(:,1,121,:) = SPREAD(  s(:,nys,nxl), 2, statistic_regions+1 )
        ENDIF