Ignore:
Timestamp:
Feb 26, 2019 4:23:41 PM (3 years ago)
Author:
raasch
Message:

unused_variables removed, bugfix in im_define_netcdf_grid argument list, trim added to avoid truncation compiler warnings, save attribute added to local targets to avoid outlive pointer target warning, first argument removed from module_interface_rrd_*, file module_interface reformatted with respect to coding standards, bugfix in surface_data_output_rrd_local (variable k removed)

File:
1 edited

Legend:

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

    r3762 r3766  
    2525! -----------------
    2626! $Id$
     27! bugfix in surface_data_output_rrd_local (variable k removed)
     28!
     29! 3762 2019-02-25 16:54:16Z suehring
    2730! Remove unused variables and add preprocessor directives for variables that
    2831! are used only when netcdf4 is defined
     
    45094512       IMPLICIT NONE
    45104513
    4511        INTEGER(iwp)       ::  k                 !< running index over previous input files covering current local domain
    4512 
    45134514       LOGICAL, INTENT(OUT)  ::  found
     4515
    45144516!
    45154517!--    Here the reading of user-defined restart data follows:
     
    45204522
    45214523          CASE ( 'surfaces%var_av' )
    4522              IF ( k == 1 )  READ ( 13 )  surfaces%var_av
     4524             READ ( 13 )  surfaces%var_av
    45234525
    45244526          CASE DEFAULT
Note: See TracChangeset for help on using the changeset viewer.