Skip to content
Snippets Groups Projects
Commit a9c65f1d authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

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

parent 60bbd453
No related branches found
No related tags found
No related merge requests found
......@@ -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
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment