Changeset 5143 for LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_lscp_tools.F90

Timestamp:

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

Author:

abarral

Message:

Put YOEGWD.h, FCTTRE.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_lscp_tools.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_lscp_tools.F90

@@ -511 +511 @@
     ! Calculate qsat following ECMWF method
 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-
+  USE lmdz_YOETHF
+  USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
 
     IMPLICIT NONE
 
     include "YOMCST.h"
-    include "YOETHF.h"
-    include "FCTTRE.h"
 
     INTEGER, INTENT(IN) :: klon  ! number of horizontal grid points