Philippe 14/09/2022: bugfix: GALLOC/GALLOCM were not initialized

81f4ea92 · WAUTELET Philippe · df314991 · 81f4ea92
Commit 81f4ea92 authored 2 years ago by WAUTELET Philippe
--- a/src/MNH/set_grid.f90
+++ b/src/MNH/set_grid.f90
@@ -538,6 +538,8 @@ SUBROUTINE STORE_GRID_1DIR_BOUNDS( HDIR, PHAT, PHATM, PHAT_BOUND, PHATM_BOUND )
  REAL, DIMENSION(:), POINTER :: ZHAT_GLOB
  REAL, DIMENSION(:), POINTER :: ZHATM_GLOB
+  GALLOC  = .FALSE.
+  GALLOCM = .FALSE.
  ZHAT_GLOB  => NULL()
  ZHATM_GLOB => NULL()