Changeset 5274 for LMDZ6/trunk/libf/phylmdiso
- Timestamp:
- Oct 25, 2024, 3:41:23 PM (3 months ago)
- Location:
- LMDZ6/trunk/libf/phylmdiso
- Files:
-
- 1 deleted
- 17 edited
-
YOMCST.h (deleted)
-
add_phys_tend_mod.F90 (modified) (4 diffs)
-
ajsec.F90 (modified) (6 diffs)
-
calwake.F90 (modified) (1 diff)
-
change_srf_frac_mod.F90 (modified) (1 diff)
-
clift.f90 (modified) (2 diffs)
-
climb_hq_mod.F90 (modified) (5 diffs)
-
concvl.F90 (modified) (2 diffs)
-
cv3_enthalpmix.F90 (modified) (2 diffs)
-
cv3_estatmix.F90 (modified) (2 diffs)
-
cv_driver.F90 (modified) (4 diffs)
-
isotopes_routines_mod.F90 (modified) (8 diffs)
-
lmdz_lscp_old.F90 (modified) (3 diffs)
-
lmdz_wake.F90 (modified) (2 diffs)
-
phyaqua_mod.F90 (modified) (3 diffs)
-
phyetat0_mod.F90 (modified) (2 diffs)
-
physiq_mod.F90 (modified) (2 diffs)
-
reevap.F90 (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/add_phys_tend_mod.F90
r5051 r5274 160 160 #endif 161 161 #endif 162 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 163 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 164 , R_ecc, R_peri, R_incl & 165 , RA, RG, R1SA & 166 , RSIGMA & 167 , R, RMD, RMV, RD, RV, RCPD & 168 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 169 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 170 , RCW, RCS & 171 , RLVTT, RLSTT, RLMLT, RTT, RATM & 172 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 173 , RALPD, RBETD, RGAMD 162 174 IMPLICIT none 163 include "YOMCST.h" 175 164 176 include "clesphys.h" 165 177 … … 687 699 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 & 688 700 & , d_h_qw_col, d_h_ql_col, d_h_qs_col, d_h_qbs_col, d_h_col 701 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 702 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 703 , R_ecc, R_peri, R_incl & 704 , RA, RG, R1SA & 705 , RSIGMA & 706 , R, RMD, RMV, RD, RV, RCPD & 707 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 708 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 709 , RCW, RCS & 710 , RLVTT, RLSTT, RLMLT, RTT, RATM & 711 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 712 , RALPD, RBETD, RGAMD 689 713 IMPLICIT none 690 include "YOMCST.h" 714 691 715 include "clesphys.h" 692 716 … … 842 866 zh_qw_col, zh_ql_col, zh_qs_col, zh_qbs_col, zh_col) 843 867 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 844 880 IMPLICIT none 845 include "YOMCST.h" 881 846 882 847 883 INTEGER, INTENT(IN) :: nlon,nlev … … 923 959 & , rain_lsc, snow_lsc 924 960 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 925 973 IMPLICIT none 926 include "YOMCST.h" 974 927 975 928 976 ! Arguments : -
LMDZ6/trunk/libf/phylmdiso/ajsec.F90
r4143 r5274 19 19 #endif 20 20 #endif 21 IMPLICIT NONE 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 33 IMPLICIT NONE 22 34 ! ====================================================================== 23 35 ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818 … … 29 41 ! d_t-----output-R-Incrementation de la temperature 30 42 ! ====================================================================== 31 include "YOMCST.h" 43 32 44 REAL paprs(klon, klev+1), pplay(klon, klev) 33 45 REAL t(klon, klev), q(klon, klev) … … 313 325 #endif 314 326 #endif 315 IMPLICIT NONE 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 339 IMPLICIT NONE 316 340 ! ====================================================================== 317 341 ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818 … … 323 347 ! d_t-----output-R-Incrementation de la temperature 324 348 ! ====================================================================== 325 include "YOMCST.h" 349 326 350 REAL paprs(klon, klev+1), pplay(klon, klev) 327 351 REAL t(klon, klev), q(klon, klev) … … 579 603 SUBROUTINE ajsec_old(paprs, pplay, t, d_t) 580 604 USE dimphy 581 IMPLICIT NONE 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 617 IMPLICIT NONE 582 618 ! ====================================================================== 583 619 ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818 … … 589 625 ! d_t-----output-R-Incrementation de la temperature 590 626 ! ====================================================================== 591 include "YOMCST.h" 627 592 628 REAL paprs(klon, klev+1), pplay(klon, klev) 593 629 REAL t(klon, klev) -
LMDZ6/trunk/libf/phylmdiso/calwake.F90
r5256 r5274 42 42 #endif 43 43 #endif 44 IMPLICIT NONE 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 56 IMPLICIT NONE 45 57 ! ====================================================================== 46 include "YOMCST.h" 58 47 59 48 60 ! Arguments -
LMDZ6/trunk/libf/phylmdiso/change_srf_frac_mod.F90
r4143 r5274 41 41 USE infotrac_phy, ONLY: ntiso 42 42 #endif 43 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 44 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 45 , R_ecc, R_peri, R_incl & 46 , RA, RG, R1SA & 47 , RSIGMA & 48 , R, RMD, RMV, RD, RV, RCPD & 49 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 50 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 51 , RCW, RCS & 52 , RLVTT, RLSTT, RLMLT, RTT, RATM & 53 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 54 , RALPD, RBETD, RGAMD 43 55 44 INCLUDE "YOMCST.h"45 56 !albedo SB >>> 46 57 include "clesphys.h" -
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 -
LMDZ6/trunk/libf/phylmdiso/climb_hq_mod.F90
r4143 r5274 63 63 USE isotopes_verif_mod 64 64 #endif 65 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 66 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 67 , R_ecc, R_peri, R_incl & 68 , RA, RG, R1SA & 69 , RSIGMA & 70 , R, RMD, RMV, RD, RV, RCPD & 71 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 72 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 73 , RCW, RCS & 74 , RLVTT, RLSTT, RLMLT, RTT, RATM & 75 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 76 , RALPD, RBETD, RGAMD 65 77 66 78 ! This routine calculates recursivly the coefficients C and D … … 127 139 ! Include 128 140 !**************************************************************************************** 129 INCLUDE "YOMCST.h" 130 INCLUDE "compbl.h" 141 INCLUDE "compbl.h" 131 142 132 143 #ifdef ISO … … 423 434 ! where X is H or Q, and k the vertical level k=1,klev 424 435 ! 425 INCLUDE "YOMCST.h" 436 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 437 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 438 , R_ecc, R_peri, R_incl & 439 , RA, RG, R1SA & 440 , RSIGMA & 441 , R, RMD, RMV, RD, RV, RCPD & 442 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 443 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 444 , RCW, RCS & 445 , RLVTT, RLSTT, RLMLT, RTT, RATM & 446 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 447 , RALPD, RBETD, RGAMD 426 448 ! Input arguments 427 449 !**************************************************************************************** … … 505 527 USE isotopes_verif_mod 506 528 #endif 529 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 530 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 531 , R_ecc, R_peri, R_incl & 532 , RA, RG, R1SA & 533 , RSIGMA & 534 , R, RMD, RMV, RD, RV, RCPD & 535 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 536 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 537 , RCW, RCS & 538 , RLVTT, RLSTT, RLMLT, RTT, RATM & 539 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 540 , RALPD, RBETD, RGAMD 507 541 ! 508 542 ! This routine calculates the flux and tendency of the specific humidity q and … … 557 591 ! Include 558 592 !**************************************************************************************** 559 INCLUDE "YOMCST.h" 560 INCLUDE "compbl.h" 593 INCLUDE "compbl.h" 561 594 562 595 !**************************************************************************************** -
LMDZ6/trunk/libf/phylmdiso/concvl.F90
r4613 r5274 63 63 USE phys_local_var_mod, ONLY: omega 64 64 USE print_control_mod, ONLY: prt_level, lunout 65 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 66 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 67 , R_ecc, R_peri, R_incl & 68 , RA, RG, R1SA & 69 , RSIGMA & 70 , R, RMD, RMV, RD, RV, RCPD & 71 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 72 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 73 , RCW, RCS & 74 , RLVTT, RLSTT, RLMLT, RTT, RATM & 75 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 76 , RALPD, RBETD, RGAMD 65 77 IMPLICIT NONE 66 78 ! ====================================================================== … … 295 307 INTEGER, SAVE :: itap, igout 296 308 !$OMP THREADPRIVATE(itap, igout) 297 298 299 include "YOMCST.h"300 309 include "YOMCST2.h" 301 310 include "YOETHF.h" -
LMDZ6/trunk/libf/phylmdiso/cv3_enthalpmix.F90
r4143 r5274 18 18 ! ************************************************************** 19 19 20 IMPLICIT NONE 20 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 21 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 22 , R_ecc, R_peri, R_incl & 23 , RA, RG, R1SA & 24 , RSIGMA & 25 , R, RMD, RMV, RD, RV, RCPD & 26 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 27 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 28 , RCW, RCS & 29 , RLVTT, RLSTT, RLMLT, RTT, RATM & 30 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 31 , RALPD, RBETD, RGAMD 32 IMPLICIT NONE 21 33 ! ============================================================== 22 34 … … 31 43 include "cvthermo.h" 32 44 include "YOETHF.h" 33 include "YOMCST.h" 45 34 46 include "FCTTRE.h" 35 47 !inputs: -
LMDZ6/trunk/libf/phylmdiso/cv3_estatmix.F90
r4143 r5274 19 19 ! **************************************************************** 20 20 21 IMPLICIT NONE 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 33 IMPLICIT NONE 22 34 ! ============================================================== 23 35 … … 32 44 include "cvthermo.h" 33 45 include "YOETHF.h" 34 include "YOMCST.h" 46 35 47 include "FCTTRE.h" 36 48 !inputs: -
LMDZ6/trunk/libf/phylmdiso/cv_driver.F90
r4491 r5274 1231 1231 USE ioipsl_getin_p_mod, ONLY : getin_p 1232 1232 1233 IMPLICIT NONE 1233 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 1234 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 1235 , R_ecc, R_peri, R_incl & 1236 , RA, RG, R1SA & 1237 , RSIGMA & 1238 , R, RMD, RMV, RD, RV, RCPD & 1239 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 1240 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 1241 , RCW, RCS & 1242 , RLVTT, RLSTT, RLMLT, RTT, RATM & 1243 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 1244 , RALPD, RBETD, RGAMD 1245 IMPLICIT NONE 1234 1246 1235 1247 ! Argument : iflag_ice_thermo : ice thermodynamics is taken into account if … … 1245 1257 ! 1246 1258 ! si icvflag_Tpa=0, alors la fraction de glace dans l'ascendance adiabatique est 1247 ! fonction de la temperature de l'environnement et la temperature de l'ascendance est 1248 ! calculee en deux iterations, une en supposant qu'il n'y a pas de glace et l'autre 1259 ! fonction de la temperature de l'environnement et la temperature de l'ascendance est 1260 ! calculee en deux iterations, une en supposant qu'il n'y a pas de glace et l'autre 1249 1261 ! en ajoutant la glace (ancien schema d'Arnaud Jam). 1250 1262 ! si icvflag_Tpa=1, alors la fraction de glace dans l'ascendance adiabatique est 1251 ! fonction de la temperature de l'environnement et la temperature de l'ascendance est 1263 ! fonction de la temperature de l'environnement et la temperature de l'ascendance est 1252 1264 ! calculee en une seule iteration. 1253 1265 ! si icvflag_Tpa=2, alors la fraction de glace dans l'ascendance adiabatique est 1254 ! fonction de la temperature de l'ascendance et la temperature de l'ascendance est 1266 ! fonction de la temperature de l'ascendance et la temperature de l'ascendance est 1255 1267 ! calculee en une seule iteration. 1256 icvflag_Tpa=0 1268 icvflag_Tpa=0 1257 1269 call getin_p('icvflag_Tpa', icvflag_Tpa) 1258 1270 … … 1262 1274 ! ================================================================== 1263 1275 SUBROUTINE cv_thermo(iflag_con) 1276 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 1277 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 1278 , R_ecc, R_peri, R_incl & 1279 , RA, RG, R1SA & 1280 , RSIGMA & 1281 , R, RMD, RMV, RD, RV, RCPD & 1282 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 1283 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 1284 , RCW, RCS & 1285 , RLVTT, RLSTT, RLMLT, RTT, RATM & 1286 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 1287 , RALPD, RBETD, RGAMD 1264 1288 IMPLICIT NONE 1265 1289 … … 1267 1291 ! Set thermodynamical constants for convectL 1268 1292 ! ------------------------------------------------------------- 1269 1270 include "YOMCST.h"1271 1293 include "cvthermo.h" 1272 1294 -
LMDZ6/trunk/libf/phylmdiso/isotopes_routines_mod.F90
r5273 r5274 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 40 implicit none 29 41 30 INCLUDE "YOMCST.h" 42 31 43 32 44 ! inputs … … 12969 12981 USE isotrac_mod, ONLY: izone_cont,index_zone,index_iso 12970 12982 #endif 12971 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 12983 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 12984 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 12985 , R_ecc, R_peri, R_incl & 12986 , RA, RG, R1SA & 12987 , RSIGMA & 12988 , R, RMD, RMV, RD, RV, RCPD & 12989 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 12990 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 12991 , RCW, RCS & 12992 , RLVTT, RLSTT, RLMLT, RTT, RATM & 12993 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 12994 , RALPD, RBETD, RGAMD 12995 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 12972 12996 implicit none 12973 12997 … … 12978 13002 INCLUDE "YOETHF.h" 12979 13003 INCLUDE "FCTTRE.h" 12980 INCLUDE "YOMCST.h"12981 13004 ! 12982 13005 !INCLUDE "paramet.h" … … 13542 13565 & bassin_map 13543 13566 #endif 13544 implicit none 13567 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 13568 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 13569 , R_ecc, R_peri, R_incl & 13570 , RA, RG, R1SA & 13571 , RSIGMA & 13572 , R, RMD, RMV, RD, RV, RCPD & 13573 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 13574 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 13575 , RCW, RCS & 13576 , RLVTT, RLSTT, RLMLT, RTT, RATM & 13577 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 13578 , RALPD, RBETD, RGAMD 13579 implicit none 13545 13580 13546 13581 INCLUDE "YOETHF.h" 13547 13582 INCLUDE "FCTTRE.h" 13548 INCLUDE "YOMCST.h" 13583 13549 13584 13550 13585 ! inputs … … 14460 14495 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 14461 14496 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 14497 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 14498 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 14499 , R_ecc, R_peri, R_incl & 14500 , RA, RG, R1SA & 14501 , RSIGMA & 14502 , R, RMD, RMV, RD, RV, RCPD & 14503 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 14504 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 14505 , RCW, RCS & 14506 , RLVTT, RLSTT, RLMLT, RTT, RATM & 14507 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 14508 , RALPD, RBETD, RGAMD 14462 14509 implicit none 14463 14510 14464 14511 INCLUDE "YOETHF.h" 14465 14512 INCLUDE "FCTTRE.h" 14466 INCLUDE "YOMCST.h" 14513 14467 14514 ! 14468 14515 ! … … 16634 16681 USE isotopes_verif_mod 16635 16682 #endif 16636 implicit none 16637 16638 INCLUDE "YOMCST.h" 16683 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 16684 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 16685 , R_ecc, R_peri, R_incl & 16686 , RA, RG, R1SA & 16687 , RSIGMA & 16688 , R, RMD, RMV, RD, RV, RCPD & 16689 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 16690 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 16691 , RCW, RCS & 16692 , RLVTT, RLSTT, RLMLT, RTT, RATM & 16693 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 16694 , RALPD, RBETD, RGAMD 16695 implicit none 16696 16697 16639 16698 16640 16699 ! input … … 18233 18292 #endif 18234 18293 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 18294 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 18295 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 18296 , R_ecc, R_peri, R_incl & 18297 , RA, RG, R1SA & 18298 , RSIGMA & 18299 , R, RMD, RMV, RD, RV, RCPD & 18300 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 18301 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 18302 , RCW, RCS & 18303 , RLVTT, RLSTT, RLMLT, RTT, RATM & 18304 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 18305 , RALPD, RBETD, RGAMD 18235 18306 implicit none 18236 18307 18237 INCLUDE "YOMCST.h" 18308 18238 18309 18239 18310 ! pour avoir iim et jjm … … 18376 18447 USE isotopes_verif_mod 18377 18448 #endif 18378 implicit none 18379 18380 INCLUDE "YOMCST.h" 18449 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 18450 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 18451 , R_ecc, R_peri, R_incl & 18452 , RA, RG, R1SA & 18453 , RSIGMA & 18454 , R, RMD, RMV, RD, RV, RCPD & 18455 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 18456 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 18457 , RCW, RCS & 18458 , RLVTT, RLSTT, RLMLT, RTT, RATM & 18459 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 18460 , RALPD, RBETD, RGAMD 18461 implicit none 18462 18463 18381 18464 18382 18465 ! Arguments -
LMDZ6/trunk/libf/phylmdiso/lmdz_lscp_old.F90
r5209 r5274 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 82 IMPLICIT none 71 83 !====================================================================== … … 79 91 ! P0> Thermalisation des precipitations venant de la couche du dessus 80 92 ! P1> Evaporation de la precipitation (qui vient du niveau k+1) 81 ! P2> Formation du nuage (en k) 93 ! P2> Formation du nuage (en k) 82 94 ! P2.A.0> Calcul des grandeurs nuageuses une pdf en creneau 83 ! P2.A.1> Avec les nouvelles PDFs, calcul des grandeurs nuageuses pour 95 ! P2.A.1> Avec les nouvelles PDFs, calcul des grandeurs nuageuses pour 84 96 ! les valeurs de T et Q initiales 85 97 ! P2.A.2> Prise en compte du couplage entre eau condensee et T. … … 89 101 ! P3> Formation de la precipitation (en k) 90 102 !====================================================================== 91 ! JLD: 103 ! JLD: 92 104 ! * Routine probablement fausse (au moins incoherente) si thermcep = .false. 93 ! * fl_cor_ebil doit etre > 0 ; 105 ! * fl_cor_ebil doit etre > 0 ; 94 106 ! fl_cor_ebil= 0 pour reproduire anciens bugs 95 107 !====================================================================== 96 include "YOMCST.h"97 108 ! 98 109 ! Principaux inputs: -
LMDZ6/trunk/libf/phylmdiso/lmdz_wake.F90
r5256 r5274 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 45 57 IMPLICIT NONE 46 58 ! ============================================================================ … … 136 148 ! Déclaration de variables 137 149 ! ------------------------------------------------------------------------- 138 139 include "YOMCST.h" 140 include "cvthermo.h" 150 include "cvthermo.h" 141 151 142 152 ! Arguments en entree -
LMDZ6/trunk/libf/phylmdiso/phyaqua_mod.F90
r5273 r5274 47 47 USE dimsoil_mod_h, ONLY: nsoilmx 48 48 49 IMPLICIT NONE 50 51 include "YOMCST.h" 49 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 50 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 51 , R_ecc, R_peri, R_incl & 52 , RA, RG, R1SA & 53 , RSIGMA & 54 , R, RMD, RMV, RD, RV, RCPD & 55 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 56 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 57 , RCW, RCS & 58 , RLVTT, RLSTT, RLMLT, RTT, RATM & 59 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 60 , RALPD, RBETD, RGAMD 61 IMPLICIT NONE 62 63 52 64 include "clesphys.h" 53 65 … … 417 429 ! ==================================================================== 418 430 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 419 443 USE dimphy 420 444 IMPLICIT NONE … … 450 474 ! frac-----OUTPUT: ensoleillement moyen entre gmtime et gmtime+pdtrad 451 475 ! ================================================================ 452 include "YOMCST.h"453 476 ! ================================================================ 454 477 LOGICAL cycle_diurne -
LMDZ6/trunk/libf/phylmdiso/phyetat0_mod.F90
r5273 r5274 61 61 USE dimsoil_mod_h, ONLY: nsoilmx 62 62 63 IMPLICIT none 63 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 64 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 65 , R_ecc, R_peri, R_incl & 66 , RA, RG, R1SA & 67 , RSIGMA & 68 , R, RMD, RMV, RD, RV, RCPD & 69 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 70 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 71 , RCW, RCS & 72 , RLVTT, RLSTT, RLMLT, RTT, RATM & 73 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 74 , RALPD, RBETD, RGAMD 75 IMPLICIT none 64 76 !====================================================================== 65 77 ! Auteur(s) Z.X. Li (LMD/CNRS) date: 19930818 … … 69 81 include "alpale.h" 70 82 include "compbl.h" 71 include "YOMCST.h" 83 72 84 !====================================================================== 73 85 CHARACTER*(*) fichnom -
LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90
r5273 r5274 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 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 434 445 435 446 IMPLICIT NONE … … 1281 1292 ! the ozone fields, old method. 1282 1293 1283 include "YOMCST.h"1284 1294 include "YOETHF.h" 1285 1295 include "FCTTRE.h" -
LMDZ6/trunk/libf/phylmdiso/reevap.F90
r5149 r5274 15 15 #endif 16 16 #endif 17 IMPLICIT none 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 29 IMPLICIT none 18 30 !>====================================================================== 19 31 … … 25 37 26 38 REAL za,zb,zdelta,zlvdcp,zlsdcp 27 INTEGER i,k,ixt,ivapcur,iliqcur,isolcur 39 INTEGER i,k,ixt,ivapcur,iliqcur,isolcur 28 40 29 41 30 42 !--------Stochastic Boundary Layer Triggering: ALE_BL-------- 31 !---Propri\'et\'es du thermiques au LCL 32 include "YOMCST.h" 43 !---Propri\'et\'es du thermiques au LCL 44 33 45 include "YOETHF.h" 34 46 include "FCTTRE.h"
Note: See TracChangeset
for help on using the changeset viewer.
