Changeset 3649 for palm

Timestamp:

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

Author:

suehring

Message:

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

Location:

palm/trunk/SOURCE

Files:

• module_interface.f90 (modified) (2 diffs)
• parin.f90 (modified) (4 diffs)

palm/trunk/SOURCE/module_interface.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Initialize strings, in order to avoid compiler warnings for non-initialized
+! characters with intent(out) attribute
+! 
+! 3648 2019-01-02 16:35:46Z suehring
 ! Rename subroutines for surface-data output
 ! 
@@ -547 +551 @@
    CHARACTER (LEN=*), INTENT(OUT) ::  grid_y !< netcdf dimension in y-direction
    CHARACTER (LEN=*), INTENT(OUT) ::  grid_z !< netcdf dimension in z-direction
-
+!
+!--As long as no action is done in this subroutine, initial strings with   
+!--intent(out) attribute, in order to avoid compiler warnings.
+   found  = .FALSE.
+   grid_x = 'none'
+   grid_y = 'none'
+   grid_z = 'none'
 
 END SUBROUTINE module_interface_define_netcdf_grid

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
 
 !