Skip to content
Snippets Groups Projects
Commit 53e943dc authored by RODIER Quentin's avatar RODIER Quentin
Browse files

P.Tulet 28/04/2022: missing MEGAN XLAI declaration

parent 373685d4
No related branches found
Tags PACK-MNH-V5-1--0-02-FF
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/SURFEX/modd_megann.F90
+ 2
− 0
View file @ 53e943dc
...@@ -63,6 +63,7 @@ TYPE MEGAN_t ...@@ -63,6 +63,7 @@ TYPE MEGAN_t
REAL :: XMODPREC ! Precipitation correction factor (megan) REAL :: XMODPREC ! Precipitation correction factor (megan)
REAL, POINTER, DIMENSION(:,:) :: XEF ! efficiency factor REAL, POINTER, DIMENSION(:,:) :: XEF ! efficiency factor
REAL, POINTER, DIMENSION(:,:) :: XPFT ! PFT factor (veg type) REAL, POINTER, DIMENSION(:,:) :: XPFT ! PFT factor (veg type)
REAL, POINTER, DIMENSION(:) :: XLAI ! Total LAI for MEGAN
INTEGER, POINTER, DIMENSION(:) :: NSLTYP ! USDA soil number category INTEGER, POINTER, DIMENSION(:) :: NSLTYP ! USDA soil number category
CHARACTER(LEN=16), POINTER, DIMENSION(:) :: CVNAME3D ! name of the scheme species CHARACTER(LEN=16), POINTER, DIMENSION(:) :: CVNAME3D ! name of the scheme species
CHARACTER(LEN=16), POINTER, DIMENSION(:) :: CMECH_SPC ! 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 ...@@ -82,6 +83,7 @@ REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_MEGAN_n:MEGAN_INIT",0,ZHOOK_HANDLE) IF (LHOOK) CALL DR_HOOK("MODD_MEGAN_n:MEGAN_INIT",0,ZHOOK_HANDLE)
NULLIFY(YMEGAN%XEF) NULLIFY(YMEGAN%XEF)
NULLIFY(YMEGAN%XPFT) NULLIFY(YMEGAN%XPFT)
NULLIFY(YMEGAN%XLAI)
NULLIFY(YMEGAN%NSLTYP) NULLIFY(YMEGAN%NSLTYP)
NULLIFY(YMEGAN%CVNAME3D) NULLIFY(YMEGAN%CVNAME3D)
NULLIFY(YMEGAN%CMECH_SPC) NULLIFY(YMEGAN%CMECH_SPC)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme