diff --git a/src/MNH/modd_fieldn.f90 b/src/MNH/modd_fieldn.f90
index 278e98521a4003cfa3a23441215d9db422739962..ad3288ed52c6e43f2986823e0f6c410a27d1796d 100644
--- a/src/MNH/modd_fieldn.f90
+++ b/src/MNH/modd_fieldn.f90
@@ -124,7 +124,11 @@ TYPE FIELD_t
   REAL, DIMENSION(:,:)       ,POINTER :: XFLUCTWTN=>NULL() !W tangential velocity fluctuations NORTH boundary
   REAL, DIMENSION(:,:)       ,POINTER :: XFLUCTWTE=>NULL() !W tangential velocity fluctuations EAST boundary
   REAL, DIMENSION(:,:)       ,POINTER :: XFLUCTWTS=>NULL() !W tangential velocity fluctuations SOUTH boundary
-!
+  REAL, DIMENSION(:,:,:), POINTER :: XHLC_HRC=>NULL()
+  REAL, DIMENSION(:,:,:), POINTER :: XHLC_HCF=>NULL()
+  REAL, DIMENSION(:,:,:), POINTER :: XHLI_HRI=>NULL()
+  REAL, DIMENSION(:,:,:), POINTER :: XHLI_HCF=>NULL()
+  !
 END TYPE FIELD_t
 
 TYPE(FIELD_t), DIMENSION(JPMODELMAX), TARGET, SAVE :: FIELD_MODEL
@@ -167,6 +171,11 @@ REAL, DIMENSION(:,:,:), POINTER :: XRCM=>NULL()
 REAL, DIMENSION(:,:),   POINTER :: XFLUCTUNW=>NULL(),XFLUCTVNN=>NULL(),XFLUCTUTN=>NULL(),XFLUCTVTW=>NULL()
 REAL, DIMENSION(:,:),   POINTER :: XFLUCTUNE=>NULL(),XFLUCTVNS=>NULL(),XFLUCTUTS=>NULL(),XFLUCTVTE=>NULL()
 REAL, DIMENSION(:,:),   POINTER :: XFLUCTWTW=>NULL(),XFLUCTWTN=>NULL(),XFLUCTWTE=>NULL(),XFLUCTWTS=>NULL()
+REAL, DIMENSION(:,:,:), POINTER :: XHLC_HRC=>NULL()
+REAL, DIMENSION(:,:,:), POINTER :: XHLC_HCF=>NULL()
+REAL, DIMENSION(:,:,:), POINTER :: XHLI_HRI=>NULL()
+REAL, DIMENSION(:,:,:), POINTER :: XHLI_HCF=>NULL()
+
 CONTAINS
 
 SUBROUTINE FIELD_GOTO_MODEL(KFROM, KTO)
@@ -222,6 +231,10 @@ FIELD_MODEL(KFROM)%XFLUCTWTW=>XFLUCTWTW
 FIELD_MODEL(KFROM)%XFLUCTWTN=>XFLUCTWTN
 FIELD_MODEL(KFROM)%XFLUCTWTE=>XFLUCTWTE
 FIELD_MODEL(KFROM)%XFLUCTWTS=>XFLUCTWTS
+FIELD_MODEL(KFROM)%XHLC_HRC=>XHLC_HRC
+FIELD_MODEL(KFROM)%XHLC_HCF=>XHLC_HCF
+FIELD_MODEL(KFROM)%XHLI_HRI=>XHLI_HRI
+FIELD_MODEL(KFROM)%XHLI_HCF=>XHLI_HCF
 !
 ! Current model is set to model KTO
 !XZWS=>FIELD_MODEL(KTO)%XZWS !Done in FIELDLIST_GOTO_MODEL
@@ -272,6 +285,10 @@ XFLUCTWTW=>FIELD_MODEL(KTO)%XFLUCTWTW
 XFLUCTWTN=>FIELD_MODEL(KTO)%XFLUCTWTN
 XFLUCTWTE=>FIELD_MODEL(KTO)%XFLUCTWTE
 XFLUCTWTS=>FIELD_MODEL(KTO)%XFLUCTWTS
+XHLC_HRC=>FIELD_MODEL(KTO)%XHLC_HRC
+XHLC_HCF=>FIELD_MODEL(KTO)%XHLC_HCF
+XHLI_HRI=>FIELD_MODEL(KTO)%XHLI_HRI
+XHLI_HCF=>FIELD_MODEL(KTO)%XHLI_HCF
 END SUBROUTINE FIELD_GOTO_MODEL
 
 END MODULE MODD_FIELD_n