Changeset 3646 for palm/trunk/SOURCE/parin.f90

Timestamp:

Dec 28, 2018 5:58:49 PM (5 years ago)

Author:

kanani

Message:

Bugfix: replace simulated_time by time_since_reference_point where required

File:

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

palm/trunk/SOURCE/parin.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix: for restarts, reset data_output_during_spinup to FALSE to enable
+! correct calculation of ntdim in check_parameters
+! 
+! 3637 2018-12-20 01:51:36Z knoop
 ! Implementation of the PALM module interface
 ! 
@@ -893 +897 @@
              max_pr_user = max_pr_user_tmp
           ENDIF
-
+PRINT*, 'data_output_during_spinup 1: ', data_output_during_spinup
 !
 !--       Activate spinup
@@ -904 +908 @@
                 ENDIF
                 end_time = end_time + spinup_time
-                IF ( TRIM( initializing_actions ) /= 'read_restart_data' )     &
+                IF ( TRIM( initializing_actions ) /= 'read_restart_data' )  THEN
                    spinup = .TRUE.
+                ELSEIF (        TRIM( initializing_actions ) == 'read_restart_data'      &
+                         .AND.  time_since_reference_point > 0.0_wp )  THEN
+                   data_output_during_spinup = .FALSE.  !< required for correct ntdim calculation
+                                                        !< in check_parameters for restart run
+                ENDIF
              ENDIF
           ENDIF
+PRINT*, 'data_output_during_spinup 2: ', data_output_during_spinup
 
 !