diff --git a/src/MNH/ecrad_interface.f90 b/src/MNH/ecrad_interface.f90
index b056dbd68dd7ddc7d3e1206e179642da26847efd..19830f9896f118c40384137108b54baf9a1eed3d 100644
--- a/src/MNH/ecrad_interface.f90
+++ b/src/MNH/ecrad_interface.f90
@@ -68,8 +68,8 @@ SUBROUTINE ECRAD_INTERFACE ( KLON,KLEV,KRAD_DIAG, KAER, &
 !        Q. LIBOIS (June 2017)  
 
 !     MODIFICATIONS.
-!     --------------        
-
+!     --------------     
+!       J. Escobar 18/06/2018: bug compile R*4 => REAL(KIND=JPRB) PLAT/LON
 !-----------------------------------------------------------------------
 !
 !*       0.    DECLARATIONS
@@ -195,8 +195,8 @@ REAL(KIND=JPRB), DIMENSION(:,:,:),INTENT(IN)    :: PCGA_DST    !Assymetry factor
 REAL(KIND=JPRB), DIMENSION(:,:,:),INTENT(IN)    :: PTAUREL_DST !Optical depth of dust relative to the one at 550nm
 LOGICAL, INTENT (IN)                 :: ODUST  ! flag for dust
 !
-REAL, DIMENSION (:), INTENT (IN)     :: PLAT ! latitude
-REAL, DIMENSION (:), INTENT (IN)     :: PLON  ! longitude
+REAL(KIND=JPRB), DIMENSION (:), INTENT (IN)     :: PLAT ! latitude
+REAL(KIND=JPRB), DIMENSION (:), INTENT (IN)     :: PLON  ! longitude
 !
 ! OUTPUTS 
 !
diff --git a/src/MNH/modd_sub_modeln.f90 b/src/MNH/modd_sub_modeln.f90
index 86359f8aafa1c2783feb8a7f2e960a3ffde94e31..50cd6ec7b1c58144a357c9c1d343ef56eff62093 100644
--- a/src/MNH/modd_sub_modeln.f90
+++ b/src/MNH/modd_sub_modeln.f90
@@ -5,7 +5,7 @@
 !-----------------------------------------------------------------
 ! Modifications:
 !  Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O
-!-
+!  J. Escobar : 18/06/2018 , bug compile R*4 => real*8 pointer XT_VISC  
 !-----------------------------------------------------------------
 !     #################
       MODULE MODD_SUB_MODEL_n
@@ -65,7 +65,7 @@ REAL*8,DIMENSION(:), POINTER :: XT_ADV=>NULL(),XT_SOURCES=>NULL(),XT_DRAG=>NULL(
 REAL*8,DIMENSION(:), POINTER :: XT_ADVUVW=>NULL(),XT_GRAV=>NULL()
 REAL*8,DIMENSION(:), POINTER :: XT_DIFF=>NULL(),XT_RELAX=>NULL(),XT_PARAM=>NULL(),XT_SPECTRA=>NULL()
 REAL*8,DIMENSION(:), POINTER :: XT_HALO=>NULL(),XT_RAD_BOUND=>NULL(),XT_PRESS=>NULL()
-REAL,DIMENSION(:), POINTER :: XT_VISC=>NULL()
+REAL*8,DIMENSION(:), POINTER :: XT_VISC=>NULL()
 REAL*8,DIMENSION(:), POINTER :: XT_CLOUD=>NULL(),XT_STEP_SWA=>NULL(),XT_STEP_MISC=>NULL()
 REAL*8,DIMENSION(:), POINTER :: XT_ELEC=>NULL(),XT_SHADOWS=>NULL()
 REAL*8,DIMENSION(:), POINTER :: XT_COUPL=>NULL(),XT_1WAY=>NULL(),XT_STEP_BUD=>NULL()