Changeset 5144 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/cltrac_spl.f90

Timestamp:

Jul 29, 2024, 11:01:04 PM (7 weeks ago)

Author:

abarral

Message:

Put YOMCST.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/cltrac_spl.f90 (modified) (3 diffs)

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

@@ -1 @@
-SUBROUTINE cltrac_spl(dtime, coef, yu1, yv1, t, tr, &
-        flux, paprs, pplay, d_tr)
+SUBROUTINE cltrac_spl(dtime, coef, yu1, yv1, t, tr, flux, paprs, pplay, d_tr)
 
   USE dimphy
+  USE lmdz_yomcst
+
   IMPLICIT NONE
   !======================================================================
@@ -35 +36 @@
   REAL :: flux(klon), cdrag(klon), tr0(klon)
   ! REAL flux_tr(klon,klev)
-  !======================================================================
-  INCLUDE "YOMCST.h"
-  !======================================================================
+
   INTEGER :: i, k
   REAL :: zx_ctr(klon, 2:klev)
@@ -134 +133 @@
   ! print *,'d_tr = ',sum(d_tr),MINVAL(d_tr),MAXVAL(d_tr)
 
-
 END SUBROUTINE cltrac_spl