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

Timestamp:

Sep 12, 2018 3:02:00 PM (6 years ago)

Author:

raasch

Message:

various changes to avoid compiler warnings (mainly removal of unused variables)

File:

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

palm/trunk/SOURCE/surface_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3222 2018-08-30 13:35:35Z suehring
 ! +building_type, pavement_type, vegetation_type, water_type
 ! +building_type_name, pavement_type_name, vegetation_type_name, water_type_name 
@@ -1623 +1626 @@
        INTEGER(iwp) ::  j         !< running index y-direction
        INTEGER(iwp) ::  k         !< running index z-direction
-       INTEGER(iwp) ::  l         !< index variable used to distinguish surface facing
-       INTEGER(iwp) ::  m         !< running index surface elements
 
        INTEGER(iwp)                 ::  start_index_lsm_h !< dummy to determing local start index in surface type for given (j,i), for horizontal natural surfaces
@@ -3366 +3367 @@
                                   nysc, nys_on_file, found )
 
-       USE pegrid,                                                             &
-           ONLY: myid, numprocs_previous_run
-
        IMPLICIT NONE
-
-       CHARACTER (LEN=1)  ::  dum         !< dummy to create correct string for reading input variable
 
        INTEGER(iwp)       ::  i           !< running index along x-direction, refers to former domain size
@@ -3377 +3373 @@
        INTEGER(iwp)       ::  j           !< running index along y-direction, refers to former domain size
        INTEGER(iwp)       ::  jc          !< running index along y-direction, refers to former domain size
-       INTEGER(iwp)       ::  k           !< running index along z-direction
        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