From 2b8310c8fffaf517b58ae748020318c0cbcf9c86 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 13 Jun 2023 16:56:32 +0200
Subject: [PATCH] Philippe 13/06/2023: type HALO2_ll: use allocatables instead
 of pointers

---
 src/LIB/SURCOUCHE/src/modd_structure2_ll.f90 | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/src/LIB/SURCOUCHE/src/modd_structure2_ll.f90 b/src/LIB/SURCOUCHE/src/modd_structure2_ll.f90
index 3b04ba768..174cb15ad 100644
--- a/src/LIB/SURCOUCHE/src/modd_structure2_ll.f90
+++ b/src/LIB/SURCOUCHE/src/modd_structure2_ll.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1998-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1998-2023 CNRS, Meteo-France and Universite Paul Sabatier
 !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
 !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
 !MNH_LIC for details. version 1.
@@ -34,6 +34,7 @@ MODULE MODD_STRUCTURE2_ll
 !!    -------------
 !
 !    Original 04/05/98
+! P. Wautelet 13/06/2023: use allocatables instead of pointers
 !
 !-------------------------------------------------------------------------------
 !
@@ -45,10 +46,10 @@ TYPE HALO2_ll
 !
 ! Type for the second layer of the halo
 !
-  REAL, DIMENSION(:,:), POINTER :: WEST  => NULL()
-  REAL, DIMENSION(:,:), POINTER :: EAST  => NULL()
-  REAL, DIMENSION(:,:), POINTER :: NORTH => NULL()
-  REAL, DIMENSION(:,:), POINTER :: SOUTH => NULL()
+  REAL, DIMENSION(:,:), ALLOCATABLE :: WEST
+  REAL, DIMENSION(:,:), ALLOCATABLE :: EAST
+  REAL, DIMENSION(:,:), ALLOCATABLE :: NORTH
+  REAL, DIMENSION(:,:), ALLOCATABLE :: SOUTH
 !
 END TYPE HALO2_ll
 !
-- 
GitLab