From 7be76db33e77732f0df14ff7296903197e6c4641 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 4 Jul 2018 15:45:01 +0200
Subject: [PATCH] Philippe 04/07/2018: SURFEX: bug correction: PLMO must be
 declared POINTER because it can be passed non associated

---
 src/SURFEX/rmc01_surf.F90 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/SURFEX/rmc01_surf.F90 b/src/SURFEX/rmc01_surf.F90
index d81d605d2..e38cd1496 100644
--- a/src/SURFEX/rmc01_surf.F90
+++ b/src/SURFEX/rmc01_surf.F90
@@ -36,6 +36,8 @@
 !!    MODIFICATIONS
 !!    -------------
 !!     Original     07/2006
+!!     P. Wautelet 04/07/2018: add POINTER attribute to PLMO
+!!                             to allow to pass it even if not associated
 !-------------------------------------------------------------------------------
 !
 !*       0.    DECLARATIONS
@@ -57,7 +59,7 @@ IMPLICIT NONE
 !              ------------------------
 !
 REAL, DIMENSION(:,:),   INTENT(IN)  :: PZ   ! altitude of full levels
-REAL, DIMENSION(:,:),   INTENT(IN)  :: PLMO ! Monin Obuhkov length
+REAL, DIMENSION(:,:),POINTER, INTENT(IN)  :: PLMO ! Monin Obuhkov length
 REAL, DIMENSION(:,:),   INTENT(OUT) :: PLK  ! Mixing length
 REAL, DIMENSION(:,:),   INTENT(OUT) :: PLEPS! Dissipative length
 LOGICAL, OPTIONAL,      INTENT(IN)  :: ONEUTRAL
-- 
GitLab