Changeset 5287 for LMDZ6/trunk/libf/dyn3d_common/fxysinus.f90

Timestamp:

Oct 28, 2024, 2:53:53 PM (7 hours ago)

Author:

abarral

Message:

Turn fxy*.h into modules
Fix clesphys_rrtm.h name

File:

• LMDZ6/trunk/libf/dyn3d_common/fxysinus.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3d_common/fxysinus.f90

@@ -9 +9 @@
   USE comconst_mod, ONLY: pi
   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
-USE paramet_mod_h
+  USE paramet_mod_h
+  USE fxy_sin_mod_h, ONLY: fx, fxprim, fy, fyprim
 IMPLICIT NONE
   !
@@ -27 +28 @@
    REAL :: rlonu(iip1),xprimu(iip1),rlonv(iip1),xprimv(iip1), &
          rlonm025(iip1),xprimm025(iip1), rlonp025(iip1),xprimp025(iip1)
-
-  INCLUDE "fxy_sin.h"