Changeset 5276 for LMDZ6/trunk/libf/phylmdiso/cv_routines.f90
- Timestamp:
- Oct 25, 2024, 5:59:01 PM (21 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/cv_routines.f90
r5268 r5276 3 3 4 4 SUBROUTINE cv_param(nd) 5 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 6 , clmci, eps, epsi, epsim1, ginv, hrd, grav 5 7 IMPLICIT NONE 6 8 … … 75 77 76 78 SUBROUTINE cv_prelim(len, nd, ndp1, t, q, p, ph, lv, cpn, tv, gz, h, hm) 79 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 80 , clmci, eps, epsi, epsim1, ginv, hrd, grav 77 81 IMPLICIT NONE 78 82 … … 93 97 REAL cpx(len, nd) 94 98 95 include "cvthermo.h"96 99 include "cvparam.h" 97 100 … … 254 257 SUBROUTINE cv_undilute1(len, nd, t, q, qs, gz, p, nk, icb, icbmax, tp, tvp, & 255 258 clw) 259 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 260 , clmci, eps, epsi, epsim1, ginv, hrd, grav 256 261 IMPLICIT NONE 257 258 include "cvthermo.h"259 262 include "cvparam.h" 260 263 … … 481 484 SUBROUTINE cv_undilute2(nloc, ncum, nd, icb, nk, tnk, qnk, gznk, t, q, qs, & 482 485 gz, p, dph, h, tv, lv, inb, inb1, tp, tvp, clw, hp, ep, sigp, frac) 486 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 487 , clmci, eps, epsi, epsim1, ginv, hrd, grav 483 488 IMPLICIT NONE 484 489 … … 492 497 ! FIND THE LEVEL OF NEUTRAL BUOYANCY 493 498 ! --------------------------------------------------------------------- 494 495 include "cvthermo.h"496 499 include "cvparam.h" 497 500 … … 764 767 SUBROUTINE cv_closure(nloc, ncum, nd, nk, icb, tv, tvp, p, ph, dph, plcl, & 765 768 cpn, iflag, cbmf) 769 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 770 , clmci, eps, epsi, epsim1, ginv, hrd, grav 766 771 IMPLICIT NONE 767 772 … … 782 787 REAL work(nloc) 783 788 784 include "cvthermo.h"785 789 include "cvparam.h" 786 790 … … 847 851 h, lv, qnk, hp, tv, tvp, ep, clw, cbmf, m, ment, qent, uent, vent, nent, & 848 852 sij, elij) 853 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 854 , clmci, eps, epsi, epsim1, ginv, hrd, grav 849 855 IMPLICIT NONE 850 856 851 include "cvthermo.h"852 857 include "cvparam.h" 853 858 … … 1098 1103 SUBROUTINE cv_unsat(nloc, ncum, nd, inb, t, q, qs, gz, u, v, p, ph, h, lv, & 1099 1104 ep, sigp, clw, m, ment, elij, iflag, mp, qp, up, vp, wt, water, evap) 1105 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 1106 , clmci, eps, epsi, epsim1, ginv, hrd, grav 1100 1107 IMPLICIT NONE 1101 1108 1102 1103 include "cvthermo.h"1104 1109 include "cvparam.h" 1105 1110 … … 1301 1306 ment, qent, uent, vent, nent, elij, tv, tvp, iflag, wd, qprime, tprime, & 1302 1307 precip, cbmf, ft, fq, fu, fv, ma, qcondc) 1308 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 1309 , clmci, eps, epsi, epsim1, ginv, hrd, grav 1303 1310 IMPLICIT NONE 1304 1311 1305 include "cvthermo.h"1306 1312 include "cvparam.h" 1307 1313
Note: See TracChangeset
for help on using the changeset viewer.