Changeset 3614 for palm/trunk/UTIL/inifor/src/inifor_transform.f90

Timestamp:

Dec 10, 2018 7:05:46 AM (5 years ago)

Author:

raasch

Message:

unused variables removed, abort renamed inifor_abort to avoid intrinsic problem in Fortran

File:

• palm/trunk/UTIL/inifor/src/inifor_transform.f90 (modified) (2 diffs)

palm/trunk/UTIL/inifor/src/inifor_transform.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3613 2018-12-07 18:20:37Z eckhard
 ! Use averaged heights profile for level-based averaging instead of modified
 !    COSMO heights array
@@ -398 +401 @@
 
        REAL(dp) ::  drhodz, dz, zk, rhok
-       INTEGER  ::  k, k_min
+       INTEGER  ::  k_min
 
        k_min = avg_grid % k_min