diff --git a/src/LIB/SURCOUCHE/src/fmwrit_ll.f90 b/src/LIB/SURCOUCHE/src/fmwrit_ll.f90
index 9b93ac0f4914243239887117fad0fa12f455dec7..303a081fd4eea1020ad36eb14b827756b83cdf21 100644
--- a/src/LIB/SURCOUCHE/src/fmwrit_ll.f90
+++ b/src/LIB/SURCOUCHE/src/fmwrit_ll.f90
@@ -304,6 +304,7 @@ CONTAINS
     CHARACTER(LEN=*),OPTIONAL,INTENT(IN)  :: HDAD_NAME
     !
     CHARACTER(LEN=:),ALLOCATABLE :: YDAD_NAME
+    INTEGER                      :: ILEN
     !
     CALL PRINT_MSG(NVERB_DEBUG,'IO','IO_WRITE_HEADER','called for file '//TRIM(TPFILE%CNAME))
     !
@@ -327,7 +328,8 @@ CONTAINS
       ALLOCATE(CHARACTER(LEN=MAX(NFILENAMELGTMAXLFI,LEN_TRIM(TPFILE%TDADFILE%CNAME))) :: YDAD_NAME)
       YDAD_NAME(:) = TPFILE%TDADFILE%CNAME
     ELSE IF (PRESENT(HDAD_NAME)) THEN
-      ALLOCATE(CHARACTER(LEN=MAX(NFILENAMELGTMAXLFI,LEN_TRIM(HDAD_NAME))) :: YDAD_NAME)
+      ILEN = LEN_TRIM(HDAD_NAME)
+      ALLOCATE(CHARACTER(LEN=MAX(NFILENAMELGTMAXLFI,ILEN)) :: YDAD_NAME)
       YDAD_NAME(:) = HDAD_NAME
     ELSE
       CALL PRINT_MSG(NVERB_DEBUG,'IO','IO_WRITE_HEADER',TRIM(TPFILE%CNAME)// &
diff --git a/src/MNH/read_all_data_grib_case.f90 b/src/MNH/read_all_data_grib_case.f90
index aeb6ae5b7c67d7189b050861c4165e2428ff44ba..70a16b2c2518b13efabe0e185a90ad37681c12ce 100644
--- a/src/MNH/read_all_data_grib_case.f90
+++ b/src/MNH/read_all_data_grib_case.f90
@@ -18,7 +18,7 @@ SUBROUTINE READ_ALL_DATA_GRIB_CASE(HFILE,TPPRE_REAL1,HGRIB,TPPGDFILE,    &
 USE MODD_IO_ll, ONLY: TFILEDATA
 !
 CHARACTER(LEN=4),  INTENT(IN)    :: HFILE       ! which file ('ATM0','ATM1' or 'CHEM')
-TYPE(TFILEDATA),POINTER,INTENT(IN) :: TPPRE_REAL1 ! PRE_REAL1 file
+TYPE(TFILEDATA),POINTER,INTENT(INOUT) :: TPPRE_REAL1 ! PRE_REAL1 file
 CHARACTER(LEN=28), INTENT(IN)    :: HGRIB       ! name of the GRIB file
 TYPE(TFILEDATA),   INTENT(IN)    :: TPPGDFILE   ! physiographic data file
 INTEGER,           INTENT(IN)    :: KVERB       ! verbosity level
@@ -185,7 +185,7 @@ IMPLICIT NONE
 !       ------------------------
 !
 CHARACTER(LEN=4),  INTENT(IN)    :: HFILE       ! which file ('ATM0','ATM1' or 'CHEM')
-TYPE(TFILEDATA),POINTER,INTENT(IN) :: TPPRE_REAL1! PRE_REAL1 file
+TYPE(TFILEDATA),POINTER,INTENT(INOUT) :: TPPRE_REAL1! PRE_REAL1 file
 CHARACTER(LEN=28), INTENT(IN)    :: HGRIB       ! name of the GRIB file
 TYPE(TFILEDATA),   INTENT(IN)    :: TPPGDFILE   ! physiographic data file
 INTEGER,           INTENT(IN)    :: KVERB       ! verbosity level
diff --git a/src/configure b/src/configure
index 99d8933a30e4e074969722e3c5421255db2eb1a6..9a3f1538c705a544f016af4f9027d41da0d04839 100755
--- a/src/configure
+++ b/src/configure
@@ -163,6 +163,7 @@ module load ga/\${VER_GA}
                 export  VER_MPI=${VER_MPI:-MPIINTEL}
                 export OPTLEVEL=${OPTLEVEL:-O2}
                 export MVWORK=${MVWORK:-YES}
+                export VER_CDF=${VER_CDF:-CDFAUTO}
                 export MNHENV=${MNHENV:-"
 #export OBJDIR_PATH=$WORKDIR/DIR_OBJ_ADA
 export MP_MPILIB=pempi