Changeset 5143 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust

Timestamp:

Jul 29, 2024, 5:47:53 PM (6 months ago)

Author:

abarral

Message:

Put YOEGWD.h, FCTTRE.h into modules

Location:

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust

Files:

• bl_for_dms.f90 (modified) (2 diffs)
• phytracr_spl_mod.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/bl_for_dms.f90

@@ -2 +2 @@
         , t, q, tsol, ustar, obklen)
   USE dimphy
+  USE lmdz_YOETHF
+  USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
+
   IMPLICIT NONE
   !
@@ -19 +22 @@
   INCLUDE "dimensions.h"
   INCLUDE "YOMCST.h"
-  INCLUDE "YOETHF.h"
-  INCLUDE "FCTTRE.h"
   !
   ! Arguments :

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/phytracr_spl_mod.F90

@@ -799 +799 @@
     USE lmdz_yomcst
     USE lmdz_alpale
+    USE lmdz_YOETHF
 
     IMPLICIT NONE
@@ -816 +817 @@
     INCLUDE "chem.h"
     INCLUDE "chem_spla.h"
-    INCLUDE "YOETHF.h"
     INCLUDE "paramet.h"