Skip to content
Snippets Groups Projects
Commit 8d99dfcf authored by RODIER Quentin's avatar RODIER Quentin
Browse files

Quentin 30/06/2021: bugfix OCEAN move constants change in ini_modeln to ensure...

Quentin 30/06/2021: bugfix OCEAN move constants change in ini_modeln to ensure change in every sub-model n
parent 27ae6bc9
No related branches found
No related tags found
No related merge requests found
......@@ -566,6 +566,12 @@ IF (CCLOUD == 'LIMA') THEN
LHORELAX_SVC1R3=LHORELAX_SVLIMA
END IF
!
! UPDATE CONSTANTS FOR OCEAN MODEL
IF (LOCEAN) THEN
XP00=XP00OCEAN
XTH00=XTH00OCEAN
END IF
!
!
NULLIFY(TZINITHALO2D_ll)
NULLIFY(TZINITHALO3D_ll)
......
......@@ -76,8 +76,7 @@
!* 0. DECLARATIONS
! ------------
USE MODD_CONF
USE MODD_CST, ONLY: XP00, XTH00, XP00OCEAN, XTH00OCEAN
USE MODD_DYN_n, ONLY: CPRESOPT, NITR, LOCEAN ! only for spawning purpose
USE MODD_DYN_n, ONLY: CPRESOPT, NITR ! only for spawning purpose
USE MODD_IO, ONLY: TFILE_OUTPUTLISTING, TPTR2FILE
USE MODD_LBC_n, ONLY: CLBCX,CLBCY ! only for spawning purpose
USE MODD_LUNIT
......@@ -181,13 +180,6 @@ END IF
!
IF (CPROGRAM=='DIAG') CALL RESET_EXSEG()
!
! UPDATE CONSTANTS FOR OCEAN MODEL
DO JMI=1,JPMODELMAX
IF (LOCEAN) THEN
XP00=XP00OCEAN
XTH00=XTH00OCEAN
END IF
END DO
!-------------------------------------------------------------------------------
!
!
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment