Changeset 2921 for palm/trunk/SOURCE/land_surface_model_mod.f90

Timestamp:

Mar 22, 2018 3:05:23 PM (6 years ago)

Author:

Giersch

Message:

further inipar parameter has been added to restart data, bugfix in spinup mechanism

File:

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

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! The activation of spinup has been moved to parin
+! 
+! 2894 2018-03-15 09:17:58Z Giersch
 ! Calculations of the index range of the subdomain on file which overlaps with
 ! the current subdomain are already done in read_restart_data_mod,
@@ -4586 +4589 @@
        land_surface = .TRUE.
 
-!
-!--    Activate spinup
-       IF ( spinup_time > 0.0_wp )  THEN
-          coupling_start_time = spinup_time
-          IF ( spinup_pt_mean == 9999999.9_wp )  THEN
-             spinup_pt_mean = pt_surface
-          ENDIF
-          IF ( .NOT. spinup )  THEN
-             end_time = end_time + spinup_time
-             spinup = .TRUE.
-          ENDIF
-       ENDIF
-
 
  10    CONTINUE