Changeset 4523 for palm/trunk/UTIL/inifor/src/inifor.f90

Timestamp:

May 7, 2020 3:58:16 PM (4 years ago)

Author:

eckhard

Message:

fixed constant-density pressure extrapolation, respect integer working precision

File:

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

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

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! respect integer working precision (iwp) specified in inifor_defs.f90
+! 
+! 
+! 4481 2020-03-31 18:55:54Z maronga
 ! Alert user to warnings if any
 ! 
@@ -128 +132 @@
         ONLY:  average_pressure_perturbation,                                  &
                average_profile,                                                & 
-               extrapolate_density,                                            &
-               extrapolate_pressure,                                           & 
                geostrophic_winds,                                              &
                get_surface_pressure,                                           &
@@ -141 +143 @@
     IMPLICIT NONE
     
-    INTEGER ::  igroup !< loop index for IO groups
-    INTEGER ::  ivar   !< loop index for output variables
-    INTEGER ::  iter   !< loop index for time steps
+    INTEGER(iwp) ::  igroup !< loop index for IO groups
+    INTEGER(iwp) ::  ivar   !< loop index for output variables
+    INTEGER(iwp) ::  iter   !< loop index for time steps
 
     REAL(wp), ALLOCATABLE, DIMENSION(:,:,:)     ::  output_arr !< array buffer for interpolated quantities