From b48fc539898f67b1fd77f760017aa2efeb568f4b Mon Sep 17 00:00:00 2001
From: Juan Escobar <escj@aero.obs-mip.fr>
Date: Tue, 18 Sep 2018 15:26:17 +0200
Subject: [PATCH] Juan 18/09/2018:modd_types_glt.F90, nitialize bat => NULL() ,
used in associated statement
---
src/SURFEX/modd_types_glt.F90 | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/src/SURFEX/modd_types_glt.F90 b/src/SURFEX/modd_types_glt.F90
index 5614483e3..0079a1cfe 100644
--- a/src/SURFEX/modd_types_glt.F90
+++ b/src/SURFEX/modd_types_glt.F90
@@ -60,6 +60,8 @@
! components to t_tfl
! Modified: 2013/07 (S. Senesi) : #ifdef in_surfex for dynamic arrays
! in t_glt
+! Modified: 2018/09 (J. Escobar): initialize bat => NULL() ,
+! used in associated statement
! -----------------------------------------------------------------------
!
MODULE modd_types_glt
@@ -698,7 +700,7 @@ TYPE t_glt
!
! Bathymetry (in meters)
REAL, DIMENSION(:,:), POINTER :: &
- bat
+ bat => NULL()
! Main domain
TYPE(t_dom), DIMENSION(:,:), POINTER :: &
dom
--
GitLab