Changeset 5285 for LMDZ6/trunk/libf/phylmdiso
- Timestamp:
- Oct 28, 2024, 2:33:29 PM (2 months ago)
- Location:
- LMDZ6/trunk/libf/phylmdiso
- Files:
-
- 20 edited
-
add_phys_tend_mod.F90 (modified) (4 diffs)
-
ajsec.F90 (modified) (3 diffs)
-
calwake.F90 (modified) (1 diff)
-
change_srf_frac_mod.F90 (modified) (1 diff)
-
clift.f90 (modified) (1 diff)
-
climb_hq_mod.F90 (modified) (3 diffs)
-
concvl.F90 (modified) (1 diff)
-
cv3_enthalpmix.F90 (modified) (1 diff)
-
cv3_estatmix.F90 (modified) (1 diff)
-
cv3_routines.F90 (modified) (11 diffs)
-
cv3p_mixing.F90 (modified) (1 diff)
-
cv_driver.F90 (modified) (2 diffs)
-
cv_routines.f90 (modified) (8 diffs)
-
isotopes_routines_mod.F90 (modified) (7 diffs)
-
lmdz_lscp_old.F90 (modified) (1 diff)
-
lmdz_wake.F90 (modified) (1 diff)
-
phyaqua_mod.F90 (modified) (2 diffs)
-
phyetat0_mod.F90 (modified) (1 diff)
-
physiq_mod.F90 (modified) (1 diff)
-
reevap.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/add_phys_tend_mod.F90
r5282 r5285 161 161 #endif 162 162 USE clesphys_mod_h 163 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 164 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 165 , R_ecc, R_peri, R_incl & 166 , RA, RG, R1SA & 167 , RSIGMA & 168 , R, RMD, RMV, RD, RV, RCPD & 169 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 170 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 171 , RCW, RCS & 172 , RLVTT, RLSTT, RLMLT, RTT, RATM & 173 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 174 , RALPD, RBETD, RGAMD 163 USE yomcst_mod_h 175 164 IMPLICIT none 176 165 … … 700 689 USE phys_output_var_mod, ONLY : d_qw_col, d_ql_col, d_qs_col, d_qbs_col, d_qt_col, d_ek_col, d_h_dair_col & 701 690 & , d_h_qw_col, d_h_ql_col, d_h_qs_col, d_h_qbs_col, d_h_col 702 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 703 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 704 , R_ecc, R_peri, R_incl & 705 , RA, RG, R1SA & 706 , RSIGMA & 707 , R, RMD, RMV, RD, RV, RCPD & 708 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 709 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 710 , RCW, RCS & 711 , RLVTT, RLSTT, RLMLT, RTT, RATM & 712 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 713 , RALPD, RBETD, RGAMD 691 USE yomcst_mod_h 714 692 IMPLICIT none 715 693 … … 866 844 zh_qw_col, zh_ql_col, zh_qs_col, zh_qbs_col, zh_col) 867 845 868 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 869 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 870 , R_ecc, R_peri, R_incl & 871 , RA, RG, R1SA & 872 , RSIGMA & 873 , R, RMD, RMV, RD, RV, RCPD & 874 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 875 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 876 , RCW, RCS & 877 , RLVTT, RLSTT, RLMLT, RTT, RATM & 878 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 879 , RALPD, RBETD, RGAMD 846 USE yomcst_mod_h 880 847 IMPLICIT none 881 848 … … 959 926 & , rain_lsc, snow_lsc 960 927 USE climb_hq_mod, ONLY : d_h_col_vdf, f_h_bnd 961 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 962 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 963 , R_ecc, R_peri, R_incl & 964 , RA, RG, R1SA & 965 , RSIGMA & 966 , R, RMD, RMV, RD, RV, RCPD & 967 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 968 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 969 , RCW, RCS & 970 , RLVTT, RLSTT, RLMLT, RTT, RATM & 971 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 972 , RALPD, RBETD, RGAMD 928 USE yomcst_mod_h 973 929 IMPLICIT none 974 930 -
LMDZ6/trunk/libf/phylmdiso/ajsec.F90
r5274 r5285 19 19 #endif 20 20 #endif 21 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 22 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 23 , R_ecc, R_peri, R_incl & 24 , RA, RG, R1SA & 25 , RSIGMA & 26 , R, RMD, RMV, RD, RV, RCPD & 27 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 28 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 29 , RCW, RCS & 30 , RLVTT, RLSTT, RLMLT, RTT, RATM & 31 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 32 , RALPD, RBETD, RGAMD 21 USE yomcst_mod_h 33 22 IMPLICIT NONE 34 23 ! ====================================================================== … … 325 314 #endif 326 315 #endif 327 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 328 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 329 , R_ecc, R_peri, R_incl & 330 , RA, RG, R1SA & 331 , RSIGMA & 332 , R, RMD, RMV, RD, RV, RCPD & 333 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 334 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 335 , RCW, RCS & 336 , RLVTT, RLSTT, RLMLT, RTT, RATM & 337 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 338 , RALPD, RBETD, RGAMD 316 USE yomcst_mod_h 339 317 IMPLICIT NONE 340 318 ! ====================================================================== … … 603 581 SUBROUTINE ajsec_old(paprs, pplay, t, d_t) 604 582 USE dimphy 605 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 606 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 607 , R_ecc, R_peri, R_incl & 608 , RA, RG, R1SA & 609 , RSIGMA & 610 , R, RMD, RMV, RD, RV, RCPD & 611 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 612 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 613 , RCW, RCS & 614 , RLVTT, RLSTT, RLMLT, RTT, RATM & 615 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 616 , RALPD, RBETD, RGAMD 583 USE yomcst_mod_h 617 584 IMPLICIT NONE 618 585 ! ====================================================================== -
LMDZ6/trunk/libf/phylmdiso/calwake.F90
r5274 r5285 42 42 #endif 43 43 #endif 44 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 45 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 46 , R_ecc, R_peri, R_incl & 47 , RA, RG, R1SA & 48 , RSIGMA & 49 , R, RMD, RMV, RD, RV, RCPD & 50 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 51 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 52 , RCW, RCS & 53 , RLVTT, RLSTT, RLMLT, RTT, RATM & 54 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 55 , RALPD, RBETD, RGAMD 44 USE yomcst_mod_h 56 45 IMPLICIT NONE 57 46 ! ====================================================================== -
LMDZ6/trunk/libf/phylmdiso/change_srf_frac_mod.F90
r5282 r5285 42 42 #endif 43 43 USE clesphys_mod_h 44 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 45 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 46 , R_ecc, R_peri, R_incl & 47 , RA, RG, R1SA & 48 , RSIGMA & 49 , R, RMD, RMV, RD, RV, RCPD & 50 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 51 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 52 , RCW, RCS & 53 , RLVTT, RLSTT, RLMLT, RTT, RATM & 54 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 55 , RALPD, RBETD, RGAMD 44 USE yomcst_mod_h 56 45 57 46 !albedo SB >>> -
LMDZ6/trunk/libf/phylmdiso/clift.f90
r5274 r5285 3 3 4 4 SUBROUTINE clift(p, t, rr, rs, plcl, dplcldt, dplcldq) 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 USE yomcst_mod_h 17 6 IMPLICIT NONE 18 7 ! *************************************************************** -
LMDZ6/trunk/libf/phylmdiso/climb_hq_mod.F90
r5278 r5285 62 62 USE isotopes_verif_mod 63 63 #endif 64 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 65 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 66 , R_ecc, R_peri, R_incl & 67 , RA, RG, R1SA & 68 , RSIGMA & 69 , R, RMD, RMV, RD, RV, RCPD & 70 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 71 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 72 , RCW, RCS & 73 , RLVTT, RLSTT, RLMLT, RTT, RATM & 74 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 75 , RALPD, RBETD, RGAMD 64 USE yomcst_mod_h 76 65 77 66 ! This routine calculates recursivly the coefficients C and D … … 433 422 ! where X is H or Q, and k the vertical level k=1,klev 434 423 ! 435 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 436 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 437 , R_ecc, R_peri, R_incl & 438 , RA, RG, R1SA & 439 , RSIGMA & 440 , R, RMD, RMV, RD, RV, RCPD & 441 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 442 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 443 , RCW, RCS & 444 , RLVTT, RLSTT, RLMLT, RTT, RATM & 445 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 446 , RALPD, RBETD, RGAMD 424 USE yomcst_mod_h 447 425 ! Input arguments 448 426 !**************************************************************************************** … … 526 504 USE isotopes_verif_mod 527 505 #endif 528 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 529 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 530 , R_ecc, R_peri, R_incl & 531 , RA, RG, R1SA & 532 , RSIGMA & 533 , R, RMD, RMV, RD, RV, RCPD & 534 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 535 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 536 , RCW, RCS & 537 , RLVTT, RLSTT, RLMLT, RTT, RATM & 538 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 539 , RALPD, RBETD, RGAMD 506 USE yomcst_mod_h 540 507 ! 541 508 ! This routine calculates the flux and tendency of the specific humidity q and -
LMDZ6/trunk/libf/phylmdiso/concvl.F90
r5284 r5285 64 64 USE phys_local_var_mod, ONLY: omega 65 65 USE print_control_mod, ONLY: prt_level, lunout 66 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 67 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 68 , R_ecc, R_peri, R_incl & 69 , RA, RG, R1SA & 70 , RSIGMA & 71 , R, RMD, RMV, RD, RV, RCPD & 72 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 73 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 74 , RCW, RCS & 75 , RLVTT, RLSTT, RLMLT, RTT, RATM & 76 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 77 , RALPD, RBETD, RGAMD 66 USE yomcst_mod_h 78 67 USE conema3_mod_h 79 68 USE yoethf_mod_h -
LMDZ6/trunk/libf/phylmdiso/cv3_enthalpmix.F90
r5284 r5285 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 22 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 23 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 24 , R_ecc, R_peri, R_incl & 25 , RA, RG, R1SA & 26 , RSIGMA & 27 , R, RMD, RMV, RD, RV, RCPD & 28 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 29 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 30 , RCW, RCS & 31 , RLVTT, RLSTT, RLMLT, RTT, RATM & 32 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 33 , RALPD, RBETD, RGAMD 20 USE cvthermo_mod_h 21 USE yomcst_mod_h 34 22 USE yoethf_mod_h 35 23 IMPLICIT NONE -
LMDZ6/trunk/libf/phylmdiso/cv3_estatmix.F90
r5284 r5285 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 23 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 24 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 25 , R_ecc, R_peri, R_incl & 26 , RA, RG, R1SA & 27 , RSIGMA & 28 , R, RMD, RMV, RD, RV, RCPD & 29 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 30 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 31 , RCW, RCS & 32 , RLVTT, RLSTT, RLMLT, RTT, RATM & 33 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 34 , RALPD, RBETD, RGAMD 21 USE cvthermo_mod_h 22 USE yomcst_mod_h 35 23 USE yoethf_mod_h 36 24 IMPLICIT NONE -
LMDZ6/trunk/libf/phylmdiso/cv3_routines.F90
r5283 r5285 7 7 SUBROUTINE cv3_param(nd, k_upper, delt) 8 8 9 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 10 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 9 USE cvflag_mod_h 11 10 USE ioipsl_getin_p_mod, ONLY : getin_p 12 11 use mod_phys_lmdz_para … … 184 183 SUBROUTINE cv3_incrcount(len, nd, delt, sig) 185 184 186 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 187 , clmci, eps, epsi, epsim1, ginv, hrd, grav 188 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 189 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 185 USE cvthermo_mod_h 186 USE cvflag_mod_h 190 187 IMPLICIT NONE 191 188 … … 227 224 SUBROUTINE cv3_prelim(len, nd, ndp1, t, q, p, ph, & 228 225 lv, lf, cpn, tv, gz, h, hm, th) 229 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 230 , clmci, eps, epsi, epsim1, ginv, hrd, grav 226 USE cvthermo_mod_h 231 227 IMPLICIT NONE 232 228 … … 325 321 #endif 326 322 327 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 328 , clmci, eps, epsi, epsim1, ginv, hrd, grav 323 USE cvthermo_mod_h 329 324 USE mod_phys_lmdz_transfert_para, ONLY : bcast 330 325 USE add_phys_tend_mod, ONLY: fl_cor_ebil … … 704 699 #endif 705 700 #endif 706 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 707 , clmci, eps, epsi, epsim1, ginv, hrd, grav 701 USE cvthermo_mod_h 708 702 IMPLICIT NONE 709 703 … … 1488 1482 #endif 1489 1483 #endif 1490 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 1491 , clmci, eps, epsi, epsim1, ginv, hrd, grav 1492 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 1493 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 1484 USE cvthermo_mod_h 1485 USE cvflag_mod_h 1494 1486 USE conema3_mod_h 1495 1487 IMPLICIT NONE … … 2518 2510 pbase, p, ph, tv, buoy, & 2519 2511 sig, w0, cape, m, iflag) 2520 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 2521 , clmci, eps, epsi, epsim1, ginv, hrd, grav 2512 USE cvthermo_mod_h 2522 2513 IMPLICIT NONE 2523 2514 … … 2790 2781 #endif 2791 2782 #endif 2792 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 2793 , clmci, eps, epsi, epsim1, ginv, hrd, grav 2794 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 2795 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 2783 USE cvthermo_mod_h 2784 USE cvflag_mod_h 2796 2785 IMPLICIT NONE 2797 2786 … … 3619 3608 #endif 3620 3609 #endif 3621 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 3622 , clmci, eps, epsi, epsim1, ginv, hrd, grav 3623 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 3624 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 3610 USE cvthermo_mod_h 3611 USE cvflag_mod_h 3625 3612 IMPLICIT NONE 3626 3613 … … 4734 4721 #endif 4735 4722 USE conema3_mod_h 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 4738 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 4739 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 4723 USE cvthermo_mod_h 4724 USE cvflag_mod_h 4740 4725 IMPLICIT NONE 4741 4726 … … 7625 7610 , epmax_diag) 7626 7611 USE conema3_mod_h 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, & 7630 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 7612 USE cvthermo_mod_h 7613 USE cvflag_mod_h 7631 7614 implicit none 7632 7615 -
LMDZ6/trunk/libf/phylmdiso/cv3p_mixing.F90
r5276 r5285 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 43 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 44 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 41 USE cvthermo_mod_h 42 USE cvflag_mod_h 45 43 IMPLICIT NONE 46 44 -
LMDZ6/trunk/libf/phylmdiso/cv_driver.F90
r5283 r5285 1231 1231 SUBROUTINE cv_flag(iflag_ice_thermo) 1232 1232 1233 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 1234 , clmci, eps, epsi, epsim1, ginv, hrd, grav 1235 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 1236 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 1233 USE cvthermo_mod_h 1234 USE cvflag_mod_h 1237 1235 USE ioipsl_getin_p_mod, ONLY : getin_p 1238 1236 1239 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 1240 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 1241 , R_ecc, R_peri, R_incl & 1242 , RA, RG, R1SA & 1243 , RSIGMA & 1244 , R, RMD, RMV, RD, RV, RCPD & 1245 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 1246 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 1247 , RCW, RCS & 1248 , RLVTT, RLSTT, RLMLT, RTT, RATM & 1249 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 1250 , RALPD, RBETD, RGAMD 1237 USE yomcst_mod_h 1251 1238 IMPLICIT NONE 1252 1239 … … 1279 1266 ! ================================================================== 1280 1267 SUBROUTINE cv_thermo(iflag_con) 1281 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 1282 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 1283 , R_ecc, R_peri, R_incl & 1284 , RA, RG, R1SA & 1285 , RSIGMA & 1286 , R, RMD, RMV, RD, RV, RCPD & 1287 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 1288 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 1289 , RCW, RCS & 1290 , RLVTT, RLSTT, RLMLT, RTT, RATM & 1291 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 1292 , RALPD, RBETD, RGAMD 1293 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 1294 , clmci, eps, epsi, epsim1, ginv, hrd, grav 1268 USE yomcst_mod_h 1269 USE cvthermo_mod_h 1295 1270 IMPLICIT NONE 1296 1271 -
LMDZ6/trunk/libf/phylmdiso/cv_routines.f90
r5276 r5285 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 USE cvthermo_mod_h 7 6 IMPLICIT NONE 8 7 … … 77 76 78 77 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 78 USE cvthermo_mod_h 81 79 IMPLICIT NONE 82 80 … … 257 255 SUBROUTINE cv_undilute1(len, nd, t, q, qs, gz, p, nk, icb, icbmax, tp, tvp, & 258 256 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 257 USE cvthermo_mod_h 261 258 IMPLICIT NONE 262 259 include "cvparam.h" … … 484 481 SUBROUTINE cv_undilute2(nloc, ncum, nd, icb, nk, tnk, qnk, gznk, t, q, qs, & 485 482 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 USE cvthermo_mod_h 488 484 IMPLICIT NONE 489 485 … … 767 763 SUBROUTINE cv_closure(nloc, ncum, nd, nk, icb, tv, tvp, p, ph, dph, plcl, & 768 764 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 765 USE cvthermo_mod_h 771 766 IMPLICIT NONE 772 767 … … 851 846 h, lv, qnk, hp, tv, tvp, ep, clw, cbmf, m, ment, qent, uent, vent, nent, & 852 847 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 848 USE cvthermo_mod_h 855 849 IMPLICIT NONE 856 850 … … 1103 1097 SUBROUTINE cv_unsat(nloc, ncum, nd, inb, t, q, qs, gz, u, v, p, ph, h, lv, & 1104 1098 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 1099 USE cvthermo_mod_h 1107 1100 IMPLICIT NONE 1108 1101 … … 1306 1299 ment, qent, uent, vent, nent, elij, tv, tvp, iflag, wd, qprime, tprime, & 1307 1300 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 1301 USE cvthermo_mod_h 1310 1302 IMPLICIT NONE 1311 1303 -
LMDZ6/trunk/libf/phylmdiso/isotopes_routines_mod.F90
r5284 r5285 26 26 & uncompress_ilp_zone 27 27 #endif 28 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 29 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 30 , R_ecc, R_peri, R_incl & 31 , RA, RG, R1SA & 32 , RSIGMA & 33 , R, RMD, RMV, RD, RV, RCPD & 34 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 35 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 36 , RCW, RCS & 37 , RLVTT, RLSTT, RLMLT, RTT, RATM & 38 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 39 , RALPD, RBETD, RGAMD 28 USE yomcst_mod_h 40 29 implicit none 41 30 … … 12982 12971 #endif 12983 12972 USE yoethf_mod_h 12984 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 12985 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 12986 , R_ecc, R_peri, R_incl & 12987 , RA, RG, R1SA & 12988 , RSIGMA & 12989 , R, RMD, RMV, RD, RV, RCPD & 12990 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 12991 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 12992 , RCW, RCS & 12993 , RLVTT, RLSTT, RLMLT, RTT, RATM & 12994 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 12995 , RALPD, RBETD, RGAMD 12973 USE yomcst_mod_h 12996 12974 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 12997 12975 implicit none … … 13566 13544 #endif 13567 13545 USE yoethf_mod_h 13568 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 13569 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 13570 , R_ecc, R_peri, R_incl & 13571 , RA, RG, R1SA & 13572 , RSIGMA & 13573 , R, RMD, RMV, RD, RV, RCPD & 13574 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 13575 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 13576 , RCW, RCS & 13577 , RLVTT, RLSTT, RLMLT, RTT, RATM & 13578 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 13579 , RALPD, RBETD, RGAMD 13546 USE yomcst_mod_h 13580 13547 implicit none 13581 13548 … … 14494 14461 USE yoethf_mod_h 14495 14462 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 14496 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 14497 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 14498 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 14499 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 14500 , R_ecc, R_peri, R_incl & 14501 , RA, RG, R1SA & 14502 , RSIGMA & 14503 , R, RMD, RMV, RD, RV, RCPD & 14504 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 14505 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 14506 , RCW, RCS & 14507 , RLVTT, RLSTT, RLMLT, RTT, RATM & 14508 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 14509 , RALPD, RBETD, RGAMD 14463 USE paramet_mod_h 14464 USE yomcst_mod_h 14510 14465 implicit none 14511 14466 … … 16680 16635 USE isotopes_verif_mod 16681 16636 #endif 16682 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 16683 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 16684 , R_ecc, R_peri, R_incl & 16685 , RA, RG, R1SA & 16686 , RSIGMA & 16687 , R, RMD, RMV, RD, RV, RCPD & 16688 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 16689 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 16690 , RCW, RCS & 16691 , RLVTT, RLSTT, RLMLT, RTT, RATM & 16692 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 16693 , RALPD, RBETD, RGAMD 16637 USE yomcst_mod_h 16694 16638 implicit none 16695 16639 … … 18291 18235 #endif 18292 18236 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 18293 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 18294 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 18295 , R_ecc, R_peri, R_incl & 18296 , RA, RG, R1SA & 18297 , RSIGMA & 18298 , R, RMD, RMV, RD, RV, RCPD & 18299 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 18300 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 18301 , RCW, RCS & 18302 , RLVTT, RLSTT, RLMLT, RTT, RATM & 18303 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 18304 , RALPD, RBETD, RGAMD 18237 USE yomcst_mod_h 18305 18238 implicit none 18306 18239 … … 18446 18379 USE isotopes_verif_mod 18447 18380 #endif 18448 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 18449 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 18450 , R_ecc, R_peri, R_incl & 18451 , RA, RG, R1SA & 18452 , RSIGMA & 18453 , R, RMD, RMV, RD, RV, RCPD & 18454 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 18455 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 18456 , RCW, RCS & 18457 , RLVTT, RLSTT, RLMLT, RTT, RATM & 18458 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 18459 , RALPD, RBETD, RGAMD 18381 USE yomcst_mod_h 18460 18382 implicit none 18461 18383 -
LMDZ6/trunk/libf/phylmdiso/lmdz_lscp_old.F90
r5284 r5285 68 68 #endif 69 69 70 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 71 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 72 , R_ecc, R_peri, R_incl & 73 , RA, RG, R1SA & 74 , RSIGMA & 75 , R, RMD, RMV, RD, RV, RCPD & 76 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 77 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 78 , RCW, RCS & 79 , RLVTT, RLSTT, RLMLT, RTT, RATM & 80 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 81 , RALPD, RBETD, RGAMD 70 USE yomcst_mod_h 82 71 USE yoethf_mod_h 83 72 IMPLICIT none -
LMDZ6/trunk/libf/phylmdiso/lmdz_wake.F90
r5276 r5285 43 43 #endif 44 44 #endif 45 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 46 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 47 , R_ecc, R_peri, R_incl & 48 , RA, RG, R1SA & 49 , RSIGMA & 50 , R, RMD, RMV, RD, RV, RCPD & 51 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 52 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 53 , RCW, RCS & 54 , RLVTT, RLSTT, RLMLT, RTT, RATM & 55 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 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 45 USE yomcst_mod_h 46 USE cvthermo_mod_h 59 47 IMPLICIT NONE 60 48 ! ============================================================================ -
LMDZ6/trunk/libf/phylmdiso/phyaqua_mod.F90
r5282 r5285 48 48 USE dimsoil_mod_h, ONLY: nsoilmx 49 49 50 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 51 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 52 , R_ecc, R_peri, R_incl & 53 , RA, RG, R1SA & 54 , RSIGMA & 55 , R, RMD, RMV, RD, RV, RCPD & 56 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 57 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 58 , RCW, RCS & 59 , RLVTT, RLSTT, RLMLT, RTT, RATM & 60 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 61 , RALPD, RBETD, RGAMD 50 USE yomcst_mod_h 62 51 IMPLICIT NONE 63 52 … … 429 418 ! ==================================================================== 430 419 SUBROUTINE zenang_an(cycle_diurne, gmtime, rlat, rlon, rmu0, fract) 431 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 432 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 433 , R_ecc, R_peri, R_incl & 434 , RA, RG, R1SA & 435 , RSIGMA & 436 , R, RMD, RMV, RD, RV, RCPD & 437 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 438 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 439 , RCW, RCS & 440 , RLVTT, RLSTT, RLMLT, RTT, RATM & 441 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 442 , RALPD, RBETD, RGAMD 420 USE yomcst_mod_h 443 421 USE dimphy 444 422 IMPLICIT NONE -
LMDZ6/trunk/libf/phylmdiso/phyetat0_mod.F90
r5284 r5285 62 62 USE dimsoil_mod_h, ONLY: nsoilmx 63 63 64 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 65 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 66 , R_ecc, R_peri, R_incl & 67 , RA, RG, R1SA & 68 , RSIGMA & 69 , R, RMD, RMV, RD, RV, RCPD & 70 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 71 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 72 , RCW, RCS & 73 , RLVTT, RLSTT, RLMLT, RTT, RATM & 74 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 75 , RALPD, RBETD, RGAMD 64 USE yomcst_mod_h 76 65 USE alpale_mod 77 66 IMPLICIT none -
LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90
r5284 r5285 431 431 USE output_physiqex_mod, ONLY: output_physiqex 432 432 USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA, CPPKEY_REPROBUS, CPPKEY_STRATAER, CPPKEY_DUST, CPPKEY_COSP, CPPKEY_COSP2, CPPKEY_COSPV2 433 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 434 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 435 , R_ecc, R_peri, R_incl & 436 , RA, RG, R1SA & 437 , RSIGMA & 438 , R, RMD, RMV, RD, RV, RCPD & 439 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 440 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 441 , RCW, RCS & 442 , RLVTT, RLSTT, RLMLT, RTT, RATM & 443 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 444 , RALPD, RBETD, RGAMD 433 USE yomcst_mod_h 445 434 USE clesphys_mod_h 446 435 USE conema3_mod_h -
LMDZ6/trunk/libf/phylmdiso/reevap.F90
r5284 r5285 15 15 #endif 16 16 #endif 17 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 18 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 19 , R_ecc, R_peri, R_incl & 20 , RA, RG, R1SA & 21 , RSIGMA & 22 , R, RMD, RMV, RD, RV, RCPD & 23 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 24 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 25 , RCW, RCS & 26 , RLVTT, RLSTT, RLMLT, RTT, RATM & 27 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 28 , RALPD, RBETD, RGAMD 17 USE yomcst_mod_h 29 18 USE yoethf_mod_h 30 19 IMPLICIT none
Note: See TracChangeset
for help on using the changeset viewer.
