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

Timestamp:

Sep 29, 2020 12:47:35 PM (4 years ago)

Author:

eckhard

Message:

inifor: Fixed off-by-one indexing error for profile quantities

File:

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

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

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Fixed off-by-one indexing error for profile quantities
+!
+!
+! 4675 2020-09-11 10:00:26Z eckhard
 ! Improved code formatting
 ! 
@@ -378 +382 @@
  SUBROUTINE interp_average_profile(source_array, profile_array, avg_grid)
     TYPE(grid_definition), INTENT(IN)          ::  avg_grid
-    REAL(wp), DIMENSION(:,:,:), INTENT(IN)     ::  source_array
+    REAL(wp), DIMENSION(:,:,:), INTENT(IN)     ::  source_array(0:,0:,:)
     REAL(wp), DIMENSION(:), INTENT(OUT)        ::  profile_array
 
@@ -435 +439 @@
 
     TYPE(grid_definition), INTENT(IN)          ::  avg_grid
-    REAL(wp), DIMENSION(:,:,:), INTENT(IN)     ::  source_array
+    REAL(wp), DIMENSION(:,:,:), INTENT(IN)     ::  source_array(0:,0:,:)
     REAL(wp), DIMENSION(:), INTENT(OUT)        ::  profile_array
 
@@ -481 +485 @@
 
     TYPE(grid_definition), INTENT(IN)          ::  cosmo_grid, avg_grid
-    REAL(wp), DIMENSION(:,:,:), INTENT(IN)     ::  cosmo_pressure
+    REAL(wp), DIMENSION(:,:,:), INTENT(IN)     ::  cosmo_pressure(0:,0:,:)
     REAL(wp), DIMENSION(:), INTENT(OUT)        ::  profile_array