diff --git a/src/SURFEX/read_ascllv.F90 b/src/SURFEX/read_ascllv.F90
index a8fda182d299cb4ca247d17e94d1f2d180aaee71..aefd7a16eaa8d3865e06468e43e40d8d2ec1c5f7 100644
--- a/src/SURFEX/read_ascllv.F90
+++ b/src/SURFEX/read_ascllv.F90
@@ -67,7 +67,7 @@ INTEGER      :: IGLB                       ! logical unit
 !
 INTEGER      :: JLAT, JLON                 ! indexes of OLATLONMASK array
 !
-INTEGER*4, PARAMETER :: ILONG=200000
+INTEGER, PARAMETER :: ILONG=200000
 !
 REAL         :: ZVALUER
 REAL, DIMENSION(ILONG) :: ZVALUE          ! values of a data point
diff --git a/src/SURFEX/read_binllv.F90 b/src/SURFEX/read_binllv.F90
index 2357330807b67fd2d8122f72c5442e3d2513ff8f..12027951eabce3628442b6a4a962d9f010ca96c6 100644
--- a/src/SURFEX/read_binllv.F90
+++ b/src/SURFEX/read_binllv.F90
@@ -36,6 +36,10 @@ USE MODD_SSO_n, ONLY : SSO_t
 !
 USE MODD_PGD_GRID,   ONLY : LLATLONMASK
 !
+#ifdef SFX_MNH
+use modd_precision, only: MNHINT32
+#endif
+!
 USE MODI_OPEN_FILE
 USE MODI_CLOSE_FILE
 USE MODI_PT_BY_PT_TREATMENT
@@ -68,11 +72,23 @@ INTEGER      :: JLAT, JLON                 ! indexes of OLATLONMASK array
 !
 INTEGER, PARAMETER :: ILONG=1000
 !
+#ifdef SFX_MNH
+REAL(kind=MNHINT32) :: ZVALUER
+#else
 REAL*4         :: ZVALUER
+#endif
 REAL, DIMENSION(ILONG) :: ZVALUE          ! values of a data point
+#ifdef SFX_MNH
+REAL(kind=MNHINT32) :: ZLATR
+#else
 REAL*4         :: ZLATR
+#endif
 REAL, DIMENSION(ILONG) :: ZLAT              ! latitude of data point
+#ifdef SFX_MNH
+REAL(kind=MNHINT32) :: ZLONR, ZLONR2
+#else
 REAL*4         :: ZLONR, ZLONR2
+#endif
 REAL, DIMENSION(ILONG) :: ZLON              ! longitude of data point
 !
 INTEGER :: ICPT, ISTAT
diff --git a/src/SURFEX/uncompress_field.F90 b/src/SURFEX/uncompress_field.F90
index fadc0be3f840632dfd4432c870b6173361025bb0..684fcdef42379f9e1f2cea7236478c73875335be 100644
--- a/src/SURFEX/uncompress_field.F90
+++ b/src/SURFEX/uncompress_field.F90
@@ -2,7 +2,7 @@ SUBROUTINE UNCOMPRESS_FIELD(KLONG,PSEUIL,PFIELD_IN,PFIELD_OUT)
 
 IMPLICIT NONE
  
-INTEGER*4, INTENT(IN) :: KLONG
+INTEGER, INTENT(IN) :: KLONG
 REAL, INTENT(IN) :: PSEUIL
 REAL, DIMENSION(:), INTENT(IN) :: PFIELD_IN
 REAL, DIMENSION(:), INTENT(OUT) :: PFIELD_OUT