diff --git a/src/SURFEX/init_megann.F90 b/src/SURFEX/init_megann.F90
index bc40cc3effedf9ce126f4f528be39d67a1e3cb3b..a532d8747bd6952473a59ff5e96784f878c4b66e 100644
--- a/src/SURFEX/init_megann.F90
+++ b/src/SURFEX/init_megann.F90
@@ -296,15 +296,15 @@ ENDDO
 !
 ! Passage des type de végétation isba/vegtype avec ceux de Megan
 !
-IP_TRBE = VEGTYPE_TO_PATCH(NVT_TRBE, IO%NPATCH)
-IP_TRBD = VEGTYPE_TO_PATCH(NVT_TRBD, IO%NPATCH)
-IP_TEBE = VEGTYPE_TO_PATCH(NVT_TEBE, IO%NPATCH)
-IP_TEBD = VEGTYPE_TO_PATCH(NVT_TEBD, IO%NPATCH)
-IP_TENE = VEGTYPE_TO_PATCH(NVT_TENE, IO%NPATCH)
-IP_BOBD = VEGTYPE_TO_PATCH(NVT_BOBD, IO%NPATCH)
-IP_BONE = VEGTYPE_TO_PATCH(NVT_BONE, IO%NPATCH)
-IP_BOND = VEGTYPE_TO_PATCH(NVT_BOND, IO%NPATCH)
-IP_SHRB = VEGTYPE_TO_PATCH(NVT_SHRB, IO%NPATCH)
+CALL VEGTYPE_TO_PATCH(NVT_TRBE, IO%NPATCH, IP_TRBE)
+CALL VEGTYPE_TO_PATCH(NVT_TRBD, IO%NPATCH, IP_TRBD)
+CALL VEGTYPE_TO_PATCH(NVT_TEBE, IO%NPATCH, IP_TEBE)
+CALL VEGTYPE_TO_PATCH(NVT_TEBD, IO%NPATCH, IP_TEBD)
+CALL VEGTYPE_TO_PATCH(NVT_TENE, IO%NPATCH, IP_TENE)
+CALL VEGTYPE_TO_PATCH(NVT_BOBD, IO%NPATCH, IP_BOBD)
+CALL VEGTYPE_TO_PATCH(NVT_BONE, IO%NPATCH, IP_BONE)
+CALL VEGTYPE_TO_PATCH(NVT_BOND, IO%NPATCH, IP_BOND)
+CALL VEGTYPE_TO_PATCH(NVT_SHRB, IO%NPATCH, IP_SHRB)
 !
 MGN%XPFT(:,:) = 0.
 !