Changeset 4475 for palm/trunk/UTIL/inifor/src/inifor_util.f90

Timestamp:

Mar 26, 2020 4:28:19 PM (5 years ago)

Author:

gronemeier

Message:

bugfixes/changes to INIFOR:

• c: revise output format in routine report (inifor_control)
• b: check if namelist file was opened (inifor_grid)
• b: use explicit loop in routine reverse (inifor_util)

File:

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

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

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Bugfix: use explicit loop in 'reverse' subroutine instead of implicit loop
+! 
+! 3866 2019-04-05 14:25:01Z eckhard
 ! Use PALM's working precision
 ! Improved coding style
@@ -269 +272 @@
  SUBROUTINE reverse(input_arr)
 
+    INTEGER ::  i
+    INTEGER ::  lbound_3rd_dimension
+    INTEGER ::  ubound_3rd_dimension
+
     REAL(wp), INTENT(INOUT) ::  input_arr(:,:,:)
 
-    input_arr = input_arr(:,:,size(input_arr, 3):1:-1)
+    lbound_3rd_dimension = LBOUND(input_arr, 3)
+    ubound_3rd_dimension = UBOUND(input_arr, 3)
+
+    DO  i = lbound_3rd_dimension, ubound_3rd_dimension
+       input_arr(:,:,i) = input_arr(:,:,                    &
+         ubound_3rd_dimension - ( i - lbound_3rd_dimension ))
+    ENDDO
 
  END SUBROUTINE reverse