From c7b827c610e04ae53aaeed052503c10466a99e53 Mon Sep 17 00:00:00 2001
From: ESCOBAR Juan <escj@nuwa>
Date: Wed, 26 Aug 2020 16:20:44 +0200
Subject: [PATCH] Juan 26/08/2020:ini_dynamics.f90 -> bitrep , use
br_asin,br_cos
---
ini_dynamics.f90 | 12 ++++++++++++
1 file changed, 12 insertions(+)
diff --git a/ini_dynamics.f90 b/ini_dynamics.f90
index c46d5ca10..40aa0eb77 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)
--
GitLab