From 248fab1fcf6e56041566150a490361bb47a73715 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 19 Apr 2019 15:07:40 +0200
Subject: [PATCH] Philippe 19/04/2019: SURFEX: improve kind of several
 variables

---
 src/SURFEX/read_ascllv.F90      |  2 +-
 src/SURFEX/read_binllv.F90      | 16 ++++++++++++++++
 src/SURFEX/uncompress_field.F90 |  2 +-
 3 files changed, 18 insertions(+), 2 deletions(-)

diff --git a/src/SURFEX/read_ascllv.F90 b/src/SURFEX/read_ascllv.F90
index a8fda182d..aefd7a16e 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 235733080..12027951e 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 fadc0be3f..684fcdef4 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
-- 
GitLab