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)) !