Changeset 5122 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common

Timestamp:

Jul 24, 2024, 8:45:54 PM (4 months ago)

Author:

abarral

Message:

fix lmdz_fxy

Location:

LMDZ6/branches/Amaury_dev/libf/dyn3d_common

Files:

• fxy.f90 (modified) (2 diffs)
• fxysinus.f90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/fxy.f90

@@ -5 +5 @@
         rlonu, xprimu, rlonv, xprimv, rlonm025, xprimm025, rlonp025, xprimp025)
 
-  USE comconst_mod, ONLY: pi
-  USE serre_mod, ONLY: pxo, pyo, alphax, alphay, transx, transy
-  USE lmdz_fxy, ONLY: fxy_new
+  USE lmdz_fxy_new, ONLY: fx, fxprim, fy, fyprim
 
   IMPLICIT NONE
@@ -26 +24 @@
   REAL :: rlonu(iip1), xprimu(iip1), rlonv(iip1), xprimv(iip1), &
           rlonm025(iip1), xprimm025(iip1), rlonp025(iip1), xprimp025(iip1)
-  REAL :: ripx, fx, fxprim, fy, fyprim, ri, rj, bigy
-
-  CALL fxy_new(ripx, fx, fxprim, fy, fyprim, ri, rj, bigy)
 
   !    ......  calcul  des  latitudes  et de y'   .....

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/fxysinus.f90

@@ -6 +6 @@
 
   USE comconst_mod, ONLY: pi
-  USE lmdz_fxy, ONLY: fxy_sin
+  USE lmdz_fxy_sin, ONLY: fx, fxprim, fy, fyprim
   IMPLICIT NONE
   !
@@ -24 +24 @@
   REAL :: rlonu(iip1), xprimu(iip1), rlonv(iip1), xprimv(iip1), &
           rlonm025(iip1), xprimm025(iip1), rlonp025(iip1), xprimp025(iip1)
-  REAL :: fy, fx, fxprim, fyprim, ri, rj
-
-  CALL fxy_sin(fy, fx, fxprim, fyprim, ri, rj)
-
 
   !    ......  calcul  des  latitudes  et de y'   .....