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/gust_mod.f90

    r3725 r3767  
    2525! -----------------
    2626! $Id$
     27! unused variable for file index removed from rrd-subroutines parameter list
     28!
     29! 3725 2019-02-07 10:11:02Z raasch
    2730! dummy statement modified to avoid compiler warnings about unused variables
    2831!
     
    549552!> This routine reads the respective restart data for the gust module.
    550553!------------------------------------------------------------------------------!
    551     SUBROUTINE gust_rrd_local( i, k, nxlf, nxlc, nxl_on_file, nxrf, nxrc,      &
     554    SUBROUTINE gust_rrd_local( k, nxlf, nxlc, nxl_on_file, nxrf, nxrc,         &
    552555                               nxr_on_file, nynf, nync, nyn_on_file, nysf,     &
    553556                               nysc, nys_on_file, tmp_2d, tmp_3d, found )
     
    565568       IMPLICIT NONE
    566569
    567        INTEGER(iwp) ::  i               !<
    568570       INTEGER(iwp) ::  k               !<
    569571       INTEGER(iwp) ::  nxlc            !<
     
    590592!--    You may remove them.
    591593       IF ( dummy_logical )  THEN
    592           idum = i + k + nxlc + nxlf + nxrc + nxrf + nync + nynf + nysc + nysf +                                       &
     594          idum = k + nxlc + nxlf + nxrc + nxrf + nync + nynf + nysc + nysf +                       &
    593595                 tmp_2d(nys_on_file,nxl_on_file) + tmp_3d(nzb,nys_on_file,nxl_on_file)
    594596       ENDIF
Note: See TracChangeset for help on using the changeset viewer.