diff --git a/src/LIB/SURCOUCHE/src/fmread_ll.f90 b/src/LIB/SURCOUCHE/src/fmread_ll.f90
index 5e00f6622164ffb80876f044a18198c0c7833d8c..d982d6d10e60d2dfc27ea00ac64fe06ffb92518f 100644
--- a/src/LIB/SURCOUCHE/src/fmread_ll.f90
+++ b/src/LIB/SURCOUCHE/src/fmread_ll.f90
@@ -337,6 +337,9 @@ USE MODD_STRUCTURE_ll, ONLY : ZONE_ll
 USE MODD_TIMEZ,        ONLY : TIMEZ
 !
 USE MODE_ALLOCBUFFER_ll
+#ifdef MNH_GA
+USE MODE_GA
+#endif
 USE MODE_MNH_TIMING,   ONLY : SECOND_MNH2
 USE MODE_SCATTER_ll
 !
@@ -355,6 +358,9 @@ INTEGER                      :: IRESP
 INTEGER                      :: IHEXTOT
 REAL(KIND=8),DIMENSION(2)    :: T0,T1,T2
 REAL(KIND=8),DIMENSION(2)    :: T11,T22
+#ifdef MNH_GA
+REAL,DIMENSION(:,:),POINTER    :: ZFIELD_GA
+#endif
 !
 CALL PRINT_MSG(NVERB_DEBUG,'IO','IO_READ_FIELD_BYFIELD_X2',TRIM(TPFILE%CNAME)//': reading '//TRIM(TPFIELD%CMNHNAME))
 !
@@ -426,7 +432,7 @@ IF (IRESP==0) THEN
         !
         ! init/create the ga , dim3 = 1
         !
-        CALL MNH_INIT_GA(SIZE(PFIELD,1),SIZE(PFIELD,2),1,HRECFM,"READ")
+        CALL MNH_INIT_GA(SIZE(PFIELD,1),SIZE(PFIELD,2),1,TPFIELD%CMNHNAME,"READ")
         IF (ISP == TPFILE%NMASTER_RANK)  THEN
           !
           ! put the data in the g_a , this proc get this 1 slide
@@ -496,6 +502,9 @@ USE MODD_TIMEZ,        ONLY : TIMEZ
 USE MODD_VAR_ll,       ONLY : MNH_STATUSES_IGNORE
 !
 USE MODE_ALLOCBUFFER_ll
+#ifdef MNH_GA
+USE MODE_GA
+#endif
 USE MODE_IO_ll,            ONLY : IO_FILE
 USE MODE_IO_MANAGE_STRUCT, ONLY : IO_FILE_FIND_BYNAME
 USE MODE_MNH_TIMING,       ONLY : SECOND_MNH2
@@ -531,6 +540,9 @@ CHARACTER(LEN=4)                      :: YSUFFIX
 TYPE(TFILEDATA),POINTER               :: TZFILE
 TYPE(TFIELDDATA)                      :: TZFIELD
 TYPE(TX_2DP),ALLOCATABLE,DIMENSION(:) :: T_TX2DP
+#ifdef MNH_GA
+REAL,DIMENSION(:,:,:),POINTER              :: ZFIELD_GA
+#endif
 !
 CALL PRINT_MSG(NVERB_DEBUG,'IO','IO_READ_FIELD_BYFIELD_X3',TRIM(TPFILE%CNAME)//': reading '//TRIM(TPFIELD%CMNHNAME))
 !