Changeset 3768 for palm/trunk/SOURCE/user_init_urban_surface.f90

Timestamp:

Feb 27, 2019 2:35:58 PM (5 years ago)

Author:

raasch

Message:

variables commented out + statement added to avoid compiler warnings about unused variables

File:

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

palm/trunk/SOURCE/user_init_urban_surface.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! unused variables commented out to avoid compiler warnings
+! 
+! 3655 2019-01-07 16:51:22Z knoop
 ! Corrected "Former revisions" section
 ! 
@@ -52 +55 @@
     USE arrays_3d
     
-    USE control_parameters,                                                    &
-        ONLY:  urban_surface
+!    USE control_parameters,                                                    &
+!        ONLY:  urban_surface
     
     USE indices
@@ -67 +70 @@
     IMPLICIT NONE
 
-    INTEGER(iwp) ::  i  !< grid index
-    INTEGER(iwp) ::  j  !< grid index
-    INTEGER(iwp) ::  m  !< running index on 1D wall-type grid
+!    INTEGER(iwp) ::  i  !< grid index
+!    INTEGER(iwp) ::  j  !< grid index
+!    INTEGER(iwp) ::  m  !< running index on 1D wall-type grid
 
 !