Changeset 3649


Ignore:
Timestamp:
Jan 2, 2019 4:52:21 PM (3 years ago)
Author:
suehring
Message:

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

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/module_interface.f90

    r3648 r3649  
    2525! -----------------
    2626! $Id$
     27! Initialize strings, in order to avoid compiler warnings for non-initialized
     28! characters with intent(out) attribute
     29!
     30! 3648 2019-01-02 16:35:46Z suehring
    2731! Rename subroutines for surface-data output
    2832!
     
    547551   CHARACTER (LEN=*), INTENT(OUT) ::  grid_y !< netcdf dimension in y-direction
    548552   CHARACTER (LEN=*), INTENT(OUT) ::  grid_z !< netcdf dimension in z-direction
    549 
     553!
     554!--As long as no action is done in this subroutine, initial strings with   
     555!--intent(out) attribute, in order to avoid compiler warnings.
     556   found  = .FALSE.
     557   grid_x = 'none'
     558   grid_y = 'none'
     559   grid_z = 'none'
    550560
    551561END SUBROUTINE module_interface_define_netcdf_grid
  • palm/trunk/SOURCE/parin.f90

    r3646 r3649  
    1515! PALM. If not, see <http://www.gnu.org/licenses/>.
    1616!
    17 ! Copyright 1997-2018 Leibniz Universitaet Hannover
     17! Copyright 1997-2019 Leibniz Universitaet Hannover
    1818!------------------------------------------------------------------------------!
    1919!
     
    2525! -----------------
    2626! $Id$
     27! Delete debug-print statements
     28!
     29! 3646 2018-12-28 17:58:49Z kanani
    2730! Bugfix: for restarts, reset data_output_during_spinup to FALSE to enable
    2831! correct calculation of ntdim in check_parameters
     
    897900             max_pr_user = max_pr_user_tmp
    898901          ENDIF
    899 PRINT*, 'data_output_during_spinup 1: ', data_output_during_spinup
    900902!
    901903!--       Activate spinup
     
    917919             ENDIF
    918920          ENDIF
    919 PRINT*, 'data_output_during_spinup 2: ', data_output_during_spinup
    920921
    921922!
Note: See TracChangeset for help on using the changeset viewer.