Changeset 3614 for palm/trunk/UTIL/inifor/src/inifor_grid.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_grid.f90 (modified) (2 diffs)

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

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3613 2018-12-07 18:20:37Z eckhard
 ! Average initial profiles only over PALM domain region, not the
 !     geostrophic-wind averaging region
@@ -1520 +1523 @@
        LOGICAL                              :: level_based_averaging
 
-       INTEGER :: i, j
-
        ALLOCATE( avg_grid % x(1) )
        ALLOCATE( avg_grid % y(1) )