Changeset 3786 for palm/trunk/SOURCE/land_surface_model_mod.f90

Timestamp:

Mar 6, 2019 4:58:03 PM (6 years ago)

Author:

raasch

Message:

unused variables removed, interoperable C datatypes introduced in particle type to avoid compiler warnings

File:

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

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! further unused variables removed
+! 
+! 3767 2019-02-27 08:18:02Z raasch
 ! unused variable for file index removed from rrd-subroutines parameter list
 ! 
@@ -2584 +2587 @@
 
        INTEGER(iwp) ::  i                       !< running index
-       INTEGER(iwp) ::  i_off                   !< index offset of surface element, seen from atmospheric grid point 
        INTEGER(iwp) ::  j                       !< running index
-       INTEGER(iwp) ::  j_off                   !< index offset of surface element, seen from atmospheric grid point 
        INTEGER(iwp) ::  k                       !< running index
        INTEGER(iwp) ::  kn                      !< running index
@@ -6561 +6562 @@
     IMPLICIT NONE
 
-    INTEGER(iwp) ::  i                 !< 
     INTEGER(iwp) ::  k                 !< 
     INTEGER(iwp) ::  l                 !< running index surface orientation
@@ -7262 +7262 @@
        IMPLICIT NONE
 
-       INTEGER(iwp)                          :: i, j, k, l, m   !< running indices
+       INTEGER(iwp)                          :: i, j, k, m   !< running indices