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

    r3761 r3767  
    2626! -----------------
    2727! $Id$
     28! unused variables removed from rrd-subroutine parameter list
     29!
     30! 3761 2019-02-25 15:31:42Z raasch
    2831! OpenACC directives added to avoid compiler warnings about unused variables,
    2932! unused variable removed
     
    38203823!> of cyclic_fill mode.
    38213824!------------------------------------------------------------------------------!
    3822     SUBROUTINE surface_rrd_local( ii, kk, nxlf, nxlc, nxl_on_file, nxrf, nxrc, &
    3823                                   nxr_on_file, nynf, nync, nyn_on_file, nysf,  &
     3825    SUBROUTINE surface_rrd_local( kk, nxlf, nxlc, nxl_on_file, nxrf,           &
     3826                                  nxr_on_file, nynf, nyn_on_file, nysf,        &
    38243827                                  nysc, nys_on_file, found )
    38253828
     
    38333836       INTEGER(iwp)       ::  m           !< running index for surface elements, refers to gathered array encompassing all surface types
    38343837       INTEGER(iwp)       ::  mm          !< running index for surface elements, refers to individual surface types
    3835        INTEGER(iwp)       ::  ii          !< running index over input files
    38363838       INTEGER(iwp)       ::  kk          !< running index over previous input files covering current local domain
    38373839       INTEGER(iwp)       ::  nxlc        !< index of left boundary on current subdomain
    38383840       INTEGER(iwp)       ::  nxlf        !< index of left boundary on former subdomain
    38393841       INTEGER(iwp)       ::  nxl_on_file !< index of left boundary on former local domain
    3840        INTEGER(iwp)       ::  nxrc        !< index of right boundary on current subdomain
    38413842       INTEGER(iwp)       ::  nxrf        !< index of right boundary on former subdomain
    38423843       INTEGER(iwp)       ::  nxr_on_file !< index of right boundary on former local domain 
    3843        INTEGER(iwp)       ::  nync        !< index of north boundary on current subdomain
    38443844       INTEGER(iwp)       ::  nynf        !< index of north boundary on former subdomain
    38453845       INTEGER(iwp)       ::  nyn_on_file !< index of norht boundary on former local domain 
Note: See TracChangeset for help on using the changeset viewer.