Changeset 4631 for palm/trunk/SOURCE/time_integration_spinup.f90

Timestamp:

Aug 3, 2020 1:48:14 PM (4 years ago)

Author:

suehring

Message:

Spinup: Set pt1 attribute only element-wise

File:

• palm/trunk/SOURCE/time_integration_spinup.f90 (modified) (3 diffs)

palm/trunk/SOURCE/time_integration_spinup.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
-! 
+!
+!
 ! Former revisions:
 ! -----------------
 ! $Id$
+! Set pt1 attribute only element-wise
+! 
+! 4540 2020-05-18 15:23:29Z raasch
 ! File re-formatted to follow the PALM coding standard
 !
@@ -335 +338 @@
                 pt(k,j,i) = pt_spinup
                 !!!!!!!!!!!!!!!!HACK!!!!!!!!!!!!!
-                surf_usm_h%pt1 = pt_spinup
+                surf_usm_h%pt1(m) = pt_spinup
                 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
              ENDDO
@@ -346 +349 @@
                    pt(k,j,i) = pt_spinup
                    !!!!!!!!!!!!!!!!HACK!!!!!!!!!!!!!
-                   surf_usm_v(l)%pt1 = pt_spinup
+                   surf_usm_v(l)%pt1(m) = pt_spinup
                    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
                 ENDDO