Changeset 5274 for LMDZ6/trunk/libf/phylmd/tilft43.f90
- Timestamp:
- Oct 25, 2024, 3:41:23 PM (31 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/tilft43.f90
r5268 r5274 3 3 4 4 SUBROUTINE tlift43(p, t, q, qs, gz, icb, nk, tvp, tpk, clw, nd, nl, kk) 5 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 6 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 7 , R_ecc, R_peri, R_incl & 8 , RA, RG, R1SA & 9 , RSIGMA & 10 , R, RMD, RMV, RD, RV, RCPD & 11 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 12 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 13 , RCW, RCS & 14 , RLVTT, RLSTT, RLMLT, RTT, RATM & 15 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 16 , RALPD, RBETD, RGAMD 5 17 IMPLICIT NONE 6 18 REAL gz(nd), tpk(nd), clw(nd), p(nd) … … 9 21 REAL cpd, cpv, cl, g, rowl, gravity, cpvmcl, eps, epsi 10 22 REAL ah0, cpp, cpinv, tg, qg, alv, s, ahg, tc, denom, es 11 INTEGER i, nst, nsb, j 23 INTEGER i, nst, nsb, j 12 24 ! *** ASSIGN VALUES OF THERMODYNAMIC CONSTANTS *** 13 25 … … 22 34 ! ! ROWL=1000.0 23 35 ! ajouts: 24 include "YOMCST.h"25 36 cpd = rcpd 26 37 cpv = rcpv
Note: See TracChangeset
for help on using the changeset viewer.