Changeset 5276 for LMDZ6/trunk/libf/phylmdiso
- Timestamp:
- Oct 25, 2024, 5:59:01 PM (19 hours ago)
- Location:
- LMDZ6/trunk/libf/phylmdiso
- Files:
-
- 8 edited
- 1 moved
-
cv30_routines.F90 (modified) (16 diffs)
-
cv3_enthalpmix.F90 (modified) (2 diffs)
-
cv3_estatmix.F90 (modified) (2 diffs)
-
cv3_routines.F90 (modified) (18 diffs)
-
cv3p_mixing.F90 (modified) (1 diff)
-
cv_driver.F90 (modified) (3 diffs)
-
cv_routines.f90 (modified) (11 diffs)
-
cvthermo_mod_h.f90 (moved) (moved from LMDZ6/trunk/libf/phylmdiso/cvthermo.h) (1 diff)
-
lmdz_wake.F90 (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/cv30_routines.F90
r5275 r5276 5 5 6 6 SUBROUTINE cv30_param(nd, delt) 7 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 8 , clmci, eps, epsi, epsim1, ginv, hrd, grav 7 9 IMPLICIT NONE 8 10 … … 85 87 SUBROUTINE cv30_prelim(len, nd, ndp1, t, q, p, ph, lv, cpn, tv, gz, h, hm, & 86 88 th) 89 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 90 , clmci, eps, epsi, epsim1, ginv, hrd, grav 87 91 IMPLICIT NONE 88 92 … … 108 112 REAL cpx(len, nd) 109 113 110 include "cvthermo.h"111 114 include "cv30param.h" 112 115 … … 389 392 #endif 390 393 394 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 395 , clmci, eps, epsi, epsim1, ginv, hrd, grav 391 396 IMPLICIT NONE 392 397 … … 404 409 ! ---------------------------------------------------------------- 405 410 406 include "cvthermo.h"407 411 include "cv30param.h" 408 412 … … 1150 1154 #endif 1151 1155 #endif 1156 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 1157 , clmci, eps, epsi, epsim1, ginv, hrd, grav 1152 1158 IMPLICIT NONE 1153 1159 … … 1170 1176 ! --------------------------------------------------------------------- 1171 1177 1172 include "cvthermo.h"1173 1178 include "cv30param.h" 1174 1179 include "conema3.h" … … 1615 1620 SUBROUTINE cv30_closure(nloc, ncum, nd, icb, inb, pbase, p, ph, tv, buoy, & 1616 1621 sig, w0, cape, m) 1622 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 1623 , clmci, eps, epsi, epsim1, ginv, hrd, grav 1617 1624 IMPLICIT NONE 1618 1625 … … 1623 1630 ! =================================================================== 1624 1631 1625 include "cvthermo.h"1626 1632 include "cv30param.h" 1627 1633 … … 1851 1857 #endif 1852 1858 #endif 1859 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 1860 , clmci, eps, epsi, epsim1, ginv, hrd, grav 1853 1861 IMPLICIT NONE 1854 1862 … … 1859 1867 ! --------------------------------------------------------------------- 1860 1868 1861 include "cvthermo.h"1862 1869 include "cv30param.h" 1863 1870 … … 2668 2675 #endif 2669 2676 2677 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 2678 , clmci, eps, epsi, epsim1, ginv, hrd, grav 2670 2679 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 2671 2680 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac … … 2673 2682 2674 2683 2675 include "cvthermo.h"2676 2684 include "cv30param.h" 2677 2685 … … 3403 3411 #endif 3404 3412 3413 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 3414 , clmci, eps, epsi, epsim1, ginv, hrd, grav 3405 3415 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 3406 3416 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 3407 3417 IMPLICIT NONE 3408 3418 3409 include "cvthermo.h"3410 3419 include "cv30param.h" 3411 3420 include "conema3.h" … … 6355 6364 ,cape,ep,hp,icb,inb,clw,nk,t,h,lv & 6356 6365 ,epmax_diag) 6357 implicit none 6366 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 6367 , clmci, eps, epsi, epsim1, ginv, hrd, grav 6368 implicit none 6358 6369 6359 6370 ! On fait varier epmax en fn de la cape … … 6362 6373 ! Toutes les autres variables fn de ep sont calculees plus bas. 6363 6374 6364 INCLUDE "cvthermo.h"6365 6375 INCLUDE "cv30param.h" 6366 6376 INCLUDE "conema3.h" -
LMDZ6/trunk/libf/phylmdiso/cv3_enthalpmix.F90
r5274 r5276 18 18 ! ************************************************************** 19 19 20 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 21 , clmci, eps, epsi, epsim1, ginv, hrd, grav 20 22 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 21 23 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & … … 41 43 ! =============================================================== 42 44 43 include "cvthermo.h"44 45 include "YOETHF.h" 45 46 -
LMDZ6/trunk/libf/phylmdiso/cv3_estatmix.F90
r5274 r5276 19 19 ! **************************************************************** 20 20 21 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 22 , clmci, eps, epsi, epsim1, ginv, hrd, grav 21 23 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 22 24 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & … … 42 44 ! =============================================================== 43 45 44 include "cvthermo.h"45 46 include "YOETHF.h" 46 47 -
LMDZ6/trunk/libf/phylmdiso/cv3_routines.F90
r5275 r5276 185 185 SUBROUTINE cv3_incrcount(len, nd, delt, sig) 186 186 187 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 187 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 188 , clmci, eps, epsi, epsim1, ginv, hrd, grav 189 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 188 190 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 189 191 IMPLICIT NONE … … 226 228 SUBROUTINE cv3_prelim(len, nd, ndp1, t, q, p, ph, & 227 229 lv, lf, cpn, tv, gz, h, hm, th) 230 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 231 , clmci, eps, epsi, epsim1, ginv, hrd, grav 228 232 IMPLICIT NONE 229 233 … … 249 253 REAL cpx(len, nd) 250 254 251 include "cvthermo.h"252 255 include "cv3param.h" 253 256 … … 323 326 #endif 324 327 328 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 329 , clmci, eps, epsi, epsim1, ginv, hrd, grav 325 330 USE mod_phys_lmdz_transfert_para, ONLY : bcast 326 331 USE add_phys_tend_mod, ONLY: fl_cor_ebil … … 344 349 345 350 include "cv3param.h" 346 include "cvthermo.h"347 351 348 352 !inputs: … … 701 705 #endif 702 706 #endif 707 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 708 , clmci, eps, epsi, epsim1, ginv, hrd, grav 703 709 IMPLICIT NONE 704 710 … … 716 722 ! ---------------------------------------------------------------- 717 723 718 include "cvthermo.h"719 724 include "cv3param.h" 720 725 … … 1484 1489 #endif 1485 1490 #endif 1491 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 1492 , clmci, eps, epsi, epsim1, ginv, hrd, grav 1486 1493 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 1487 1494 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac … … 1506 1513 ! --------------------------------------------------------------------- 1507 1514 1508 include "cvthermo.h"1509 1515 include "cv3param.h" 1510 1516 include "conema3.h" … … 2513 2519 pbase, p, ph, tv, buoy, & 2514 2520 sig, w0, cape, m, iflag) 2521 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 2522 , clmci, eps, epsi, epsim1, ginv, hrd, grav 2515 2523 IMPLICIT NONE 2516 2524 … … 2521 2529 ! =================================================================== 2522 2530 2523 include "cvthermo.h"2524 2531 include "cv3param.h" 2525 2532 … … 2784 2791 #endif 2785 2792 #endif 2793 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 2794 , clmci, eps, epsi, epsim1, ginv, hrd, grav 2786 2795 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 2787 2796 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac … … 2793 2802 ! --------------------------------------------------------------------- 2794 2803 2795 include "cvthermo.h"2796 2804 include "cv3param.h" 2797 2805 … … 3612 3620 #endif 3613 3621 #endif 3622 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 3623 , clmci, eps, epsi, epsim1, ginv, hrd, grav 3614 3624 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 3615 3625 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac … … 3617 3627 3618 3628 3619 include "cvthermo.h"3620 3629 include "cv3param.h" 3621 3630 include "nuage.h" … … 4725 4734 #endif 4726 4735 #endif 4736 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 4737 , clmci, eps, epsi, epsim1, ginv, hrd, grav 4727 4738 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 4728 4739 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 4729 4740 IMPLICIT NONE 4730 4741 4731 include "cvthermo.h"4732 4742 include "cv3param.h" 4733 4743 include "conema3.h" … … 7615 7625 , pbase, p, ph, tv, buoy, sig, w0,iflag & 7616 7626 , epmax_diag) 7617 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 7627 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 7628 , clmci, eps, epsi, epsim1, ginv, hrd, grav 7629 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 7618 7630 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 7619 7631 implicit none … … 7624 7636 ! Toutes les autres variables fn de ep sont calculees plus bas. 7625 7637 7626 include "cvthermo.h"7627 7638 include "cv3param.h" 7628 7639 include "conema3.h" -
LMDZ6/trunk/libf/phylmdiso/cv3p_mixing.F90
r5275 r5276 39 39 #endif 40 40 #endif 41 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 42 , clmci, eps, epsi, epsim1, ginv, hrd, grav 41 43 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 42 44 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 43 45 IMPLICIT NONE 44 46 45 include "cvthermo.h"46 47 include "cv3param.h" 47 48 include "YOMCST2.h" -
LMDZ6/trunk/libf/phylmdiso/cv_driver.F90
r5275 r5276 1229 1229 SUBROUTINE cv_flag(iflag_ice_thermo) 1230 1230 1231 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 1232 , clmci, eps, epsi, epsim1, ginv, hrd, grav 1231 1233 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 1232 1234 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac … … 1287 1289 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 1288 1290 , RALPD, RBETD, RGAMD 1291 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 1292 , clmci, eps, epsi, epsim1, ginv, hrd, grav 1289 1293 IMPLICIT NONE 1290 1294 … … 1292 1296 ! Set thermodynamical constants for convectL 1293 1297 ! ------------------------------------------------------------- 1294 include "cvthermo.h"1295 1298 1296 1299 INTEGER iflag_con -
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 -
LMDZ6/trunk/libf/phylmdiso/cvthermo_mod_h.f90
r5275 r5276 1 link ../phylmd/cvthermo .h1 link ../phylmd/cvthermo_mod_h.f90 -
LMDZ6/trunk/libf/phylmdiso/lmdz_wake.F90
r5274 r5276 55 55 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 56 56 , RALPD, RBETD, RGAMD 57 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 58 , clmci, eps, epsi, epsim1, ginv, hrd, grav 57 59 IMPLICIT NONE 58 60 ! ============================================================================ … … 144 146 ! Cgw : vitesse de propagation de onde de gravité 145 147 ! LL : distance entre 2 poches 146 147 ! -------------------------------------------------------------------------148 ! Déclaration de variables149 ! -------------------------------------------------------------------------150 include "cvthermo.h"151 148 152 149 ! Arguments en entree
Note: See TracChangeset
for help on using the changeset viewer.
