A bug fix from Natalja:

"The code crashed in extrap_nod3D, gen_support.F90, because scalar variables were declared allocatable."
FESOM · Nov 5, 2018 · ccdfba6 · ccdfba6
1 parent 6aa0a9e
commit ccdfba6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/gen_support.F90 b/src/gen_support.F90
@@ -274,7 +274,7 @@ subroutine extrap_nod3D(arr)
   real(kind=WP)                  :: val
   integer                        :: enodes(3)
   logical                        :: success
-  real(kind=WP), allocatable     :: loc_max, glob_max
+  real(kind=WP)                  :: loc_max, glob_max
 
 
   allocate(work_array(myDim_nod2D+eDim_nod2D))