From 53e943dc4dc8b1dcd85d2b1165ad172cf20c737c Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Thu, 28 Apr 2022 15:53:43 +0200
Subject: [PATCH] P.Tulet 28/04/2022: missing MEGAN XLAI declaration
---
src/SURFEX/modd_megann.F90 | 2 ++
1 file changed, 2 insertions(+)
diff --git a/src/SURFEX/modd_megann.F90 b/src/SURFEX/modd_megann.F90
index 3f1e4e1c6..64e310860 100644
--- a/src/SURFEX/modd_megann.F90
+++ b/src/SURFEX/modd_megann.F90
@@ -63,6 +63,7 @@ TYPE MEGAN_t
REAL :: XMODPREC ! Precipitation correction factor (megan)
REAL, POINTER, DIMENSION(:,:) :: XEF ! efficiency factor
REAL, POINTER, DIMENSION(:,:) :: XPFT ! PFT factor (veg type)
+ REAL, POINTER, DIMENSION(:) :: XLAI ! Total LAI for MEGAN
INTEGER, POINTER, DIMENSION(:) :: NSLTYP ! USDA soil number category
CHARACTER(LEN=16), POINTER, DIMENSION(:) :: CVNAME3D ! name of the scheme species
CHARACTER(LEN=16), POINTER, DIMENSION(:) :: CMECH_SPC ! name of the scheme species
@@ -82,6 +83,7 @@ REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_MEGAN_n:MEGAN_INIT",0,ZHOOK_HANDLE)
NULLIFY(YMEGAN%XEF)
NULLIFY(YMEGAN%XPFT)
+NULLIFY(YMEGAN%XLAI)
NULLIFY(YMEGAN%NSLTYP)
NULLIFY(YMEGAN%CVNAME3D)
NULLIFY(YMEGAN%CMECH_SPC)
--
GitLab