Changeset 3768 for palm/trunk/SOURCE/user_lpm_init.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_lpm_init.f90 (modified) (2 diffs)

palm/trunk/SOURCE/user_lpm_init.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables commented out to avoid compiler warnings
+! 
+! 3655 2019-01-07 16:51:22Z knoop
 ! Corrected "Former revisions" section
 ! 
@@ -76 +79 @@
     IMPLICIT NONE
 
-    INTEGER(iwp) ::  ip   !<
-    INTEGER(iwp) ::  jp   !< 
-    INTEGER(iwp) ::  kp   !< 
-    INTEGER(iwp) ::  n    !< 
+!    INTEGER(iwp) ::  ip   !<
+!    INTEGER(iwp) ::  jp   !<
+!    INTEGER(iwp) ::  kp   !<
+!    INTEGER(iwp) ::  n    !<
 
 !