Changeset 5143 for LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/sisvat_ts2.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/inlandsis/sisvat_ts2.f90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/sisvat_ts2.f90

@@ -67 +67 @@
   USE indice_sol_mod
   USE lmdz_comsoil, ONLY: inertie_sol, inertie_sno, inertie_sic, inertie_lic, iflag_sic, iflag_inertie
+  USE lmdz_YOETHF
+  USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
 
   IMPLICIT NONE
@@ -75 +77 @@
 
   INCLUDE "YOMCST.h"
-  INCLUDE "YOETHF.h"
-  INCLUDE "FCTTRE.h"
   ! INCLUDE "indicesol.h"
   ! include  "LMDZphy.inc"
@@ -263 +263 @@
             * TsisSV(ig, isl)                     & !
             * TsisSV(ig, isl)
-    IRs__D(ig) = dIRsdT(ig)* TsisSV(ig, isl) * 0.75                  !:
+    IRs__D(ig) = dIRsdT(ig) * TsisSV(ig, isl) * 0.75                  !:
   END DO
   !hj