diff --git a/ini_dynamics.f90 b/ini_dynamics.f90
index c46d5ca106fad76e14aa0e86de896f84c6677c75..40aa0eb77eb2b9006ff0fba76d8f24366581a555 100644
--- a/ini_dynamics.f90
+++ b/ini_dynamics.f90
@@ -308,6 +308,13 @@ USE MODI_ZDIFFUSETUP
 !
 USE MODE_ll
 USE MODE_TYPE_ZDIFFU
+#ifdef MNH_BITREP
+USE MODI_BITREP
+#define SIN BR_SIN
+#define COS BR_COS
+#endif
+!
+USE MODE_MPPDB
 !
 IMPLICIT NONE
 !
@@ -491,6 +498,11 @@ IF (.NOT.LCARTESIAN) THEN
                  / COS(PLAT(:,:)*ZCDR)
   PCURVY (:,:)   = SIN(ZGAMMA(:,:)) * (SIN(PLAT(:,:)*ZCDR) -XRPK)         &
                  / COS(PLAT(:,:)*ZCDR)
+  !
+  CALL MPPDB_CHECK2D(PCORIOX,"ini_dynamics:PCORIOX",PRECISION)
+  CALL MPPDB_CHECK2D(PCORIOY,"ini_dynamics:PCORIOY",PRECISION)
+  CALL MPPDB_CHECK2D(PCORIOZ,"ini_dynamics:PCORIOZ",PRECISION)
+  !
 ELSE
   ZMBETA = - (XBETA*ZCDR)
   PCORIOX(:,:) = - 2. * XOMEGA * COS(XLAT0*ZCDR) * SIN(ZMBETA)