Ignore:
Timestamp:
Feb 27, 2019 8:18:02 AM (3 years ago)
Author:
raasch
Message:

unused variables removed from rrd-subroutines parameter list

File:
1 edited

Legend:

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

    r3747 r3767  
    2525! -----------------
    2626! $Id$
     27! unused variable for file index removed from rrd-subroutines parameter list
     28!
     29! 3747 2019-02-16 15:15:23Z gronemeier
    2730! Add routine user_init_arrays
    2831!
     
    11311134!> calculated in routine rrd_local.
    11321135!------------------------------------------------------------------------------!
    1133     SUBROUTINE user_rrd_local( i, k, nxlf, nxlc, nxl_on_file, nxrf, nxrc,      &
     1136    SUBROUTINE user_rrd_local( k, nxlf, nxlc, nxl_on_file, nxrf, nxrc,         &
    11341137                               nxr_on_file, nynf, nync, nyn_on_file, nysf,     &
    11351138                               nysc, nys_on_file, tmp_3d, found )
    11361139
    11371140
    1138        INTEGER(iwp) ::  i               !<
    11391141       INTEGER(iwp) ::  k               !<
    11401142       INTEGER(iwp) ::  nxlc            !<
Note: See TracChangeset for help on using the changeset viewer.