Changeset 5274 for LMDZ6/trunk/libf/phylmdiso/clift.f90
- Timestamp:
- Oct 25, 2024, 3:41:23 PM (21 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/clift.f90
r5268 r5274 3 3 4 4 SUBROUTINE clift(p, t, rr, rs, plcl, dplcldt, dplcldq) 5 IMPLICIT NONE 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 17 IMPLICIT NONE 6 18 ! *************************************************************** 7 19 ! * * … … 41 53 ! on utilise les constantes thermo du Centre Europeen: (sb) 42 54 43 include "YOMCST.h"44 55 real :: p,t,rr,rs,plcl,dplcldt,dplcldq,cpd,cpv,cl,cpvmcl,eps,alv0,a,b 45 56 real :: rh,chi,alv
Note: See TracChangeset
for help on using the changeset viewer.