Changeset 5287 for LMDZ6/trunk/libf/dyn3d_common/fxy.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/fxy.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3d_common/fxy.f90

@@ -10 +10 @@
 
   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
-USE paramet_mod_h
+  USE paramet_mod_h
+  USE fxy_new_mod_h, ONLY: fx, fxprim, fy, fyprim
 IMPLICIT NONE
 
@@ -28 +29 @@
    REAL :: rlonu(iip1),xprimu(iip1),rlonv(iip1),xprimv(iip1), &
          rlonm025(iip1),xprimm025(iip1), rlonp025(iip1),xprimp025(iip1)
-
-  INCLUDE "fxy_new.h"