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

Timestamp:

Jan 2, 2019 4:52:21 PM (4 years ago)

Author:

suehring

Message:

Bugfix, initialize strings with intent(out) attribute, delete debug prints

File:

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

palm/trunk/SOURCE/parin.f90

@@ -15 +15 @@
 ! PALM. If not, see <http://www.gnu.org/licenses/>.
 !
-! Copyright 1997-2018 Leibniz Universitaet Hannover
+! Copyright 1997-2019 Leibniz Universitaet Hannover
 !------------------------------------------------------------------------------!
 !
@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Delete debug-print statements
+! 
+! 3646 2018-12-28 17:58:49Z kanani
 ! Bugfix: for restarts, reset data_output_during_spinup to FALSE to enable
 ! correct calculation of ntdim in check_parameters
@@ -897 +900 @@
              max_pr_user = max_pr_user_tmp
           ENDIF
-PRINT*, 'data_output_during_spinup 1: ', data_output_during_spinup
 !
 !--       Activate spinup
@@ -917 +919 @@
              ENDIF
           ENDIF
-PRINT*, 'data_output_during_spinup 2: ', data_output_during_spinup
 
 !