Changeset 5299 for LMDZ6/trunk/libf/phylmd/cv3_routines.f90
- Timestamp:
- Oct 30, 2024, 2:31:56 PM (27 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/cv3_routines.f90
r5285 r5299 11 11 use mod_phys_lmdz_para 12 12 USE conema3_mod_h 13 USE cv3param_mod_h 13 14 IMPLICIT NONE 14 15 … … 35 36 !*** APPROACH TO QUASI-EQUILIBRIUM *** 36 37 !*** IT MUST BE LESS THAN 0 *** 37 38 include "cv3param.h"39 38 40 39 INTEGER, INTENT(IN) :: nd … … 185 184 USE cvthermo_mod_h 186 185 USE cvflag_mod_h 186 USE cv3param_mod_h 187 187 IMPLICIT NONE 188 188 … … 190 190 ! Increment the counter sig(nd) 191 191 ! ===================================================================== 192 193 include "cv3param.h"194 192 195 193 !inputs: … … 225 223 lv, lf, cpn, tv, gz, h, hm, th) 226 224 USE cvthermo_mod_h 225 USE cv3param_mod_h 227 226 IMPLICIT NONE 228 227 … … 247 246 REAL tvx, tvy ! convect3 248 247 REAL cpx(len, nd) 249 250 include "cv3param.h"251 252 253 248 ! ori do 110 k=1,nlp 254 249 ! abderr do 110 k=1,nl ! convect3 … … 314 309 USE print_control_mod, ONLY: prt_level 315 310 USE cvthermo_mod_h 311 USE cv3param_mod_h 316 312 IMPLICIT NONE 317 313 … … 330 326 ! - A,B explicitely defined (!...) 331 327 ! ================================================================ 332 333 include "cv3param.h"334 328 335 329 !inputs: … … 606 600 USE cvthermo_mod_h 607 601 USE cvflag_mod_h 602 USE cv3param_mod_h 608 603 IMPLICIT NONE 609 604 … … 620 615 ! - if icbs=icb, compute also tp(icb+1),tvp(icb+1) & clw(icb+1) 621 616 ! ---------------------------------------------------------------- 622 623 include "cv3param.h"624 617 625 618 ! inputs: … … 881 874 SUBROUTINE cv3_trigger(len, nd, icb, plcl, p, th, tv, tvp, thnk, & 882 875 pbase, buoybase, iflag, sig, w0) 876 USE cv3param_mod_h 883 877 IMPLICIT NONE 884 878 … … 897 891 ! -> the buoyancy below cloud base not (yet) set to the cloud base buoyancy 898 892 ! ------------------------------------------------------------------- 899 900 include "cv3param.h"901 893 902 894 ! input: … … 995 987 h, lv, cpn, p, ph, tv, tp, tvp, clw, & 996 988 sig, w0) 997 USE print_control_mod, ONLY: lunout 989 USE cv3param_mod_h 990 USE print_control_mod, ONLY: lunout 998 991 IMPLICIT NONE 999 992 1000 include "cv3param.h"1001 993 1002 994 !inputs: … … 1140 1132 USE cvthermo_mod_h 1141 1133 USE conema3_mod_h 1134 USE cv3param_mod_h 1142 1135 IMPLICIT NONE 1143 1136 … … 1160 1153 ! --------------------------------------------------------------------- 1161 1154 1162 include "cv3param.h"1163 1155 include "YOMCST2.h" 1164 1156 … … 2047 2039 pbase, p, ph, tv, buoy, & 2048 2040 sig, w0, cape, m, iflag) 2049 USE cvthermo_mod_h 2041 USE cv3param_mod_h 2042 USE cvthermo_mod_h 2050 2043 USE cvflag_mod_h 2051 2044 IMPLICIT NONE … … 2057 2050 ! =================================================================== 2058 2051 2059 include "cv3param.h"2060 2052 2061 2053 !input: … … 2292 2284 USE cvflag_mod_h 2293 2285 USE cvthermo_mod_h 2286 USE cv3param_mod_h 2294 2287 IMPLICIT NONE 2295 2288 … … 2298 2291 ! - vectorisation de la partie normalisation des flux (do 789...) 2299 2292 ! --------------------------------------------------------------------- 2300 2301 include "cv3param.h"2302 2293 2303 2294 !inputs: … … 2712 2703 faci, b, sigd, & 2713 2704 wdtrainA, wdtrainS, wdtrainM) ! RomP 2714 USE cvthermo_mod_h 2705 USE cv3param_mod_h 2706 USE cvthermo_mod_h 2715 2707 USE cvflag_mod_h 2716 2708 USE print_control_mod, ONLY: prt_level, lunout 2717 2709 IMPLICIT NONE 2718 2710 2719 include "cv3param.h"2720 2711 include "nuage.h" 2721 2712 … … 3456 3447 ftd, fqd, qta, qtc, sigt, detrain, tau_cld_cv, coefw_cld_cv) 3457 3448 3458 USE conema3_mod_h 3449 USE cv3param_mod_h 3450 USE conema3_mod_h 3459 3451 USE print_control_mod, ONLY: lunout, prt_level 3460 3452 USE add_phys_tend_mod, only : fl_cor_ebil … … 3463 3455 IMPLICIT NONE 3464 3456 3465 include "cv3param.h"3466 3457 3467 3458 !inputs: … … 4953 4944 ep, Vprecip, elij, clw, epmlmMm, eplaMm, & 4954 4945 icb, inb) 4955 USE cvthermo_mod_h 4946 USE cv3param_mod_h 4947 USE cvthermo_mod_h 4956 4948 USE cvflag_mod_h 4957 4949 IMPLICIT NONE 4958 4950 4959 include "cv3param.h"4960 4951 4961 4952 !inputs: … … 5062 5053 Ma1, upwd1, dnwd1, dnwd01, qcondc1, wd1, cape1, & 5063 5054 epmax_diag1) ! epmax_cape 5064 IMPLICIT NONE 5065 5066 include "cv3param.h" 5055 USE cv3param_mod_h 5056 IMPLICIT NONE 5057 5067 5058 5068 5059 !inputs: … … 5141 5132 , pbase, p, ph, tv, buoy, sig, w0,iflag & 5142 5133 , epmax_diag) 5143 USE conema3_mod_h 5134 USE cv3param_mod_h 5135 USE conema3_mod_h 5144 5136 USE cvflag_mod_h 5145 5137 USE cvthermo_mod_h … … 5151 5143 ! Toutes les autres variables fn de ep sont calcul�es plus bas. 5152 5144 5153 include "cv3param.h"5154 5145 5155 5146 ! inputs:
Note: See TracChangeset
for help on using the changeset viewer.