Changeset 3767 for palm/trunk/SOURCE/surface_mod.f90

Timestamp:

Feb 27, 2019 8:18:02 AM (5 years ago)

Author:

raasch

Message:

unused variables removed from rrd-subroutines parameter list

File:

• palm/trunk/SOURCE/surface_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/surface_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! unused variables removed from rrd-subroutine parameter list
+! 
+! 3761 2019-02-25 15:31:42Z raasch
 ! OpenACC directives added to avoid compiler warnings about unused variables,
 ! unused variable removed
@@ -3820 +3823 @@
 !> of cyclic_fill mode. 
 !------------------------------------------------------------------------------!
-    SUBROUTINE surface_rrd_local( ii, kk, nxlf, nxlc, nxl_on_file, nxrf, nxrc, & 
-                                  nxr_on_file, nynf, nync, nyn_on_file, nysf,  &
+    SUBROUTINE surface_rrd_local( kk, nxlf, nxlc, nxl_on_file, nxrf,           &
+                                  nxr_on_file, nynf, nyn_on_file, nysf,        &
                                   nysc, nys_on_file, found )
 
@@ -3833 +3836 @@
        INTEGER(iwp)       ::  m           !< running index for surface elements, refers to gathered array encompassing all surface types
        INTEGER(iwp)       ::  mm          !< running index for surface elements, refers to individual surface types
-       INTEGER(iwp)       ::  ii          !< running index over input files
        INTEGER(iwp)       ::  kk          !< running index over previous input files covering current local domain
        INTEGER(iwp)       ::  nxlc        !< index of left boundary on current subdomain
        INTEGER(iwp)       ::  nxlf        !< index of left boundary on former subdomain 
        INTEGER(iwp)       ::  nxl_on_file !< index of left boundary on former local domain 
-       INTEGER(iwp)       ::  nxrc        !< index of right boundary on current subdomain
        INTEGER(iwp)       ::  nxrf        !< index of right boundary on former subdomain
        INTEGER(iwp)       ::  nxr_on_file !< index of right boundary on former local domain  
-       INTEGER(iwp)       ::  nync        !< index of north boundary on current subdomain
        INTEGER(iwp)       ::  nynf        !< index of north boundary on former subdomain
        INTEGER(iwp)       ::  nyn_on_file !< index of norht boundary on former local domain