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

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

File:
1 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
Note: See TracChangeset for help on using the changeset viewer.