Ignore:
Timestamp:
Feb 26, 2019 4:23:41 PM (2 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/user_init_land_surface.f90

    r3700 r3766  
    2525! -----------------
    2626! $Id$
     27! unused variables commented out
     28!
     29! 3700 2019-01-26 17:03:42Z knoop
    2730! Corrected "Former revisions" section
    2831!
     
    6669    IMPLICIT NONE
    6770
    68     INTEGER(iwp) ::  i  !< grid index
    69     INTEGER(iwp) ::  j  !< grid index
    70     INTEGER(iwp) ::  m  !< running index on 1D wall-type grid
     71!    INTEGER(iwp) ::  i  !< grid index
     72!    INTEGER(iwp) ::  j  !< grid index
     73!    INTEGER(iwp) ::  m  !< running index on 1D wall-type grid
    7174
    7275!
Note: See TracChangeset for help on using the changeset viewer.