Philippe 17/01/2024: bugfix: for grid nesting, update the model pointer to coupling files

src/MNH/modn_lunitn.f90

@@ -48,9 +48,9 @@ IMPLICIT NONE
 !
 SAVE
 !
-CHARACTER(LEN=NFILENAMELGTMAX)                            :: CINIFILE
-CHARACTER(LEN=NFILENAMELGTMAX)                            :: CINIFILEPGD
-CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(:), ALLOCATABLE :: CCPLFILE
+CHARACTER(LEN=NFILENAMELGTMAX)                                    :: CINIFILE
+CHARACTER(LEN=NFILENAMELGTMAX)                                    :: CINIFILEPGD
+CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(:), ALLOCATABLE, TARGET :: CCPLFILE
 !
 NAMELIST/NAM_LUNITn/CINIFILE,CINIFILEPGD,CCPLFILE
 !
@@ -92,7 +92,8 @@ SUBROUTINE INIT_NAM_LUNITn( OWRITE )
 END SUBROUTINE INIT_NAM_LUNITn
 
 SUBROUTINE UPDATE_NAM_LUNITn(KMI)
-  USE MODD_DYN, ONLY: NCPL_NBR
+  USE MODD_DYN,     ONLY: NCPL_NBR
+  USE MODD_LUNIT_n, ONLY: LUNIT_MODEL
 
   INTEGER, INTENT(IN) :: KMI ! Model number
 
@@ -126,6 +127,9 @@ SUBROUTINE UPDATE_NAM_LUNITn(KMI)
   DEALLOCATE( CCPLFILE_n )
   ALLOCATE( CCPLFILE_n, SOURCE = CCPLFILE ) ! sourced allocation, CCPLFILE_n is allocated to a clone of CCPLFILE
 
+  ! Correct the model pointer
+  LUNIT_MODEL(KMI)%CCPLFILE => CCPLFILE
+
 END SUBROUTINE UPDATE_NAM_LUNITn
 
 END MODULE MODN_LUNIT_n