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

unused variables removed from rrd-subroutines parameter list

File:
1 edited

Legend:

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

    r3685 r3767  
    2626! -----------------
    2727! $Id$
     28! unused variable for file index removed from rrd-subroutines parameter list
     29!
     30! 3685 2019-01-21 01:02:11Z knoop
    2831! Some interface calls moved to module_interface + cleanup
    2932!
     
    20322035!> This routine reads the respective restart data.
    20332036!------------------------------------------------------------------------------!
    2034  SUBROUTINE salsa_rrd_local( i, k, nxlf, nxlc, nxl_on_file, nxrf, nxrc,        &
     2037 SUBROUTINE salsa_rrd_local( k, nxlf, nxlc, nxl_on_file, nxrf, nxrc,           &
    20352038                             nxr_on_file, nynf, nync, nyn_on_file, nysf,       &
    20362039                             nysc, nys_on_file, tmp_3d, found )
     
    20432046    INTEGER(iwp) ::  c  !<
    20442047    INTEGER(iwp) ::  g  !<
    2045     INTEGER(iwp) ::  i  !<
    20462048    INTEGER(iwp) ::  k  !<
    20472049    INTEGER(iwp) ::  nxlc            !<
Note: See TracChangeset for help on using the changeset viewer.