Changeset 5274 for LMDZ6/trunk/libf/phylmd/tilft43.f90

Timestamp:

Oct 25, 2024, 3:41:23 PM (31 hours ago)

Author:

abarral

Message:

Replace yomcst.h by existing module

File:

• LMDZ6/trunk/libf/phylmd/tilft43.f90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/tilft43.f90

@@ -3 +3 @@
 
 SUBROUTINE tlift43(p, t, q, qs, gz, icb, nk, tvp, tpk, clw, nd, nl, kk)
+  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
+          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
+          , R_ecc, R_peri, R_incl                                      &
+          , RA, RG, R1SA                                         &
+          , RSIGMA                                                     &
+          , R, RMD, RMV, RD, RV, RCPD                    &
+          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
+          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
+          , RCW, RCS                                                 &
+          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
+          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
+          , RALPD, RBETD, RGAMD
   IMPLICIT NONE
   REAL gz(nd), tpk(nd), clw(nd), p(nd)
@@ -9 +21 @@
   REAL cpd, cpv,  cl, g, rowl, gravity, cpvmcl, eps, epsi
   REAL ah0, cpp, cpinv, tg, qg, alv, s, ahg, tc, denom, es
-  INTEGER i, nst, nsb, j 
+  INTEGER i, nst, nsb, j
   ! ***   ASSIGN VALUES OF THERMODYNAMIC CONSTANTS     ***
 
@@ -22 +34 @@
   ! !      ROWL=1000.0
   ! ajouts:
-  include "YOMCST.h"
   cpd = rcpd
   cpv = rcpv