Changeset 2723 for palm/trunk/SOURCE/urban_surface_mod.f90

Timestamp:

Jan 5, 2018 9:27:03 AM (6 years ago)

Author:

maronga

Message:

bugfixes for spinup mechanism to work with lsm+usm+radiation

File:

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

palm/trunk/SOURCE/urban_surface_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Bugfix for spinups (end_time was increased twice in case of LSM + USM runs)
+! 
+! 2720 2018-01-02 16:27:15Z kanani
 ! Correction of comment
 ! 
@@ -5107 +5110 @@
        IF ( spinup_time > 0.0_wp )  THEN
           coupling_start_time = spinup_time
-          end_time = end_time + spinup_time
           IF ( spinup_pt_mean == 9999999.9_wp )  THEN
              spinup_pt_mean = pt_surface
           ENDIF
-          spinup = .TRUE.
+          IF ( .NOT. spinup )  THEN
+             end_time = end_time + spinup_time
+             spinup = .TRUE.
+          ENDIF
        ENDIF