diff --git a/src/SURFEX/pgd_grid_io_init.F90 b/src/SURFEX/pgd_grid_io_init.F90
index 594e1ba39c4973aa934b7a58c730e2a1ec17ffb3..f3b31ef0fc0f0aa79503782c3bc7edbbdf8607c9 100644
--- a/src/SURFEX/pgd_grid_io_init.F90
+++ b/src/SURFEX/pgd_grid_io_init.F90
@@ -159,7 +159,7 @@ REAL(KIND=JPRB) :: ZHOOK_HANDLE
 IF (LHOOK) CALL DR_HOOK('PGD_GRID_IO_INIT',0,ZHOOK_HANDLE)
 IF (HPROGRAM=='MESONH') THEN
 #ifdef MNH_PARALLEL
-  IF ( PRESENT(KIMAX) .AND. PRESENT(KJMAX) .AND. PRESENT(HGRID) .AND. PRESENT(ORECT) \
+  IF ( PRESENT(KIMAX) .AND. PRESENT(KJMAX) .AND. PRESENT(HGRID) .AND. PRESENT(ORECT) &
     .AND. PRESENT(KDXRATIO) .AND. PRESENT(KDYRATIO) ) THEN
     CALL PGD_GRID_IO_INIT_MNH(KGRID_PAR,PGRID_PAR,HGRID,ORECT,KIMAX,KJMAX,KDXRATIO,KDYRATIO)
   ELSE
diff --git a/src/SURFEX/read_covers_and_av_pgd_on_layers.F90 b/src/SURFEX/read_covers_and_av_pgd_on_layers.F90
index 220e086eee4f91e725364cbb0ffa72650d7c03fc..c0eeb805e485089318f472010f24e599f1ae1fc2 100644
--- a/src/SURFEX/read_covers_and_av_pgd_on_layers.F90
+++ b/src/SURFEX/read_covers_and_av_pgd_on_layers.F90
@@ -152,9 +152,11 @@ DO JLAYER=1,KDATA_LAYER
       CASE('STR')
         ZWEIGHT=XDATA_TOWN  (JCOVER) * ( 1. - XDATA_BLD(JCOVER) )
       CASE('TRE')
-        ZWEIGHT=XDATA_NATURE(JCOVER) * (  XDATA_VEGTYPE(JCOVER,NVT_TREE) + XDATA_VEGTYPE(JCOVER,NVT_EVER) + XDATA_VEGTYPE(JCOVER,NVT_CONI) )  
+        ZWEIGHT=XDATA_NATURE(JCOVER) * (  XDATA_VEGTYPE(JCOVER,NVT_TREE) &
+                + XDATA_VEGTYPE(JCOVER,NVT_EVER) + XDATA_VEGTYPE(JCOVER,NVT_CONI) )  
       CASE('GRT')
-        ZWEIGHT=XDATA_TOWN(JCOVER) * XDATA_GARDEN(JCOVER) * (  XDATA_VEGTYPE(JCOVER,NVT_TREE) + XDATA_VEGTYPE(JCOVER,NVT_EVER) + XDATA_VEGTYPE(JCOVER,NVT_CONI) )  
+        ZWEIGHT=XDATA_TOWN(JCOVER) * XDATA_GARDEN(JCOVER) * (  XDATA_VEGTYPE(JCOVER,NVT_TREE) &
+                + XDATA_VEGTYPE(JCOVER,NVT_EVER) + XDATA_VEGTYPE(JCOVER,NVT_CONI) )  
       CASE DEFAULT
         CALL ABOR1_SFX('AV_PGD_1D: WEIGHTING FUNCTION NOT ALLOWED '//HSFTYPE)
       END SELECT
diff --git a/src/SURFEX/split_grid_conf_proj.F90 b/src/SURFEX/split_grid_conf_proj.F90
index 9c19c33a157425f0f611e3e5d588bd24e7edc5ae..b638909be6ba2a2e811caa737d36a425f7cb8303 100644
--- a/src/SURFEX/split_grid_conf_proj.F90
+++ b/src/SURFEX/split_grid_conf_proj.F90
@@ -74,7 +74,7 @@ REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !* original grid
 REAL                            :: ZLAT0, ZLON0, ZRPK, ZBETA, ZLATOR, ZLONOR
 INTEGER                         :: IIMAX, IJMAX
-REAL, DIMENSION(PGRID_PAR(11))      :: ZX, ZY, ZDX, ZDY
+REAL, DIMENSION(INT(PGRID_PAR(11)))      :: ZX, ZY, ZDX, ZDY
 !
 !* splitted grid on processor
 INTEGER                         :: IIMAX_SPLIT, IJMAX_SPLIT
diff --git a/src/SURFEX/zoom_pgd_cover.F90 b/src/SURFEX/zoom_pgd_cover.F90
index 67f25764d669a4b8486eea2f54ae1c72b948e7a1..c7c5d58a07ec16ab6340f6278eb571d7054123a6 100644
--- a/src/SURFEX/zoom_pgd_cover.F90
+++ b/src/SURFEX/zoom_pgd_cover.F90
@@ -97,7 +97,7 @@ REAL, DIMENSION(:,:), POINTER     :: ZCOVER
 REAL, DIMENSION(:,:), POINTER :: ZSEA1, ZWATER1, ZNATURE1, ZTOWN1
 REAL, DIMENSION(:,:), POINTER :: ZSEA2, ZWATER2, ZNATURE2, ZTOWN2
 REAL, DIMENSION(:),   ALLOCATABLE :: ZSUM
-CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+CHARACTER(LEN=16) :: YRECFM         ! Name of the article to be read
 CHARACTER(LEN=100) :: YCOMMENT
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !------------------------------------------------------------------------------