diff --git a/src/MNH/ini_modeln.f90 b/src/MNH/ini_modeln.f90
index b58702a5417dbb08559eb8afb026e01796c94e1e..ee46c558e7564aeda8d6ef189b9ae7a6ba9c702d 100644
--- a/src/MNH/ini_modeln.f90
+++ b/src/MNH/ini_modeln.f90
@@ -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)
diff --git a/src/MNH/init_mnh.f90 b/src/MNH/init_mnh.f90
index 9fe0836d00fcc2caa41a735c227bcfba2aa610e1..d2d7b194949ee3f1a8c7829c3022d5e439134462 100644
--- a/src/MNH/init_mnh.f90
+++ b/src/MNH/init_mnh.f90
@@ -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
 !-------------------------------------------------------------------------------
 !
 !