Changeset 5299 for LMDZ6/trunk/libf/phylmd
- Timestamp:
- Oct 30, 2024, 2:31:56 PM (8 months ago)
- Location:
- LMDZ6/trunk/libf/phylmd
- Files:
-
- 10 edited
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/cv3_buoy.f90
r5285 r5299 10 10 ! ************************************************************** 11 11 12 USE cvthermo_mod_h 12 USE cv3param_mod_h 13 USE cvthermo_mod_h 13 14 IMPLICIT NONE 14 15 15 include "cv3param.h"16 16 include "YOMCST2.h" 17 17 -
LMDZ6/trunk/libf/phylmd/cv3_cine.f90
r5285 r5299 15 15 ! ************************************************************** 16 16 17 USE cvthermo_mod_h 17 USE cv3param_mod_h 18 USE cvthermo_mod_h 18 19 USE yomcst_mod_h 19 20 IMPLICIT NONE 20 21 21 22 22 include "cv3param.h"23 23 ! input: 24 24 INTEGER ncum, nd, nloc -
LMDZ6/trunk/libf/phylmd/cv3_crit.f90
r5268 r5299 10 10 ! ************************************************************** 11 11 12 IMPLICIT NONE 12 USE cv3param_mod_h 13 IMPLICIT NONE 13 14 14 include "cv3param.h"15 15 16 16 ! input: -
LMDZ6/trunk/libf/phylmd/cv3_mixscale.f90
r5268 r5299 9 9 ! ************************************************************** 10 10 11 IMPLICIT NONE 11 USE cv3param_mod_h 12 IMPLICIT NONE 12 13 13 include "cv3param.h"14 14 15 15 !inputs: -
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: -
LMDZ6/trunk/libf/phylmd/cv3a_compress.f90
r5268 r5299 29 29 ! ************************************************************** 30 30 31 IMPLICIT NONE 32 33 include "cv3param.h" 31 USE cv3param_mod_h 32 IMPLICIT NONE 33 34 34 35 35 ! inputs: -
LMDZ6/trunk/libf/phylmd/cv3a_uncompress.f90
r5268 r5299 38 38 ! ************************************************************** 39 39 40 IMPLICIT NONE 41 42 include "cv3param.h" 40 USE cv3param_mod_h 41 IMPLICIT NONE 42 43 43 44 44 ! inputs: -
LMDZ6/trunk/libf/phylmd/cv3p1_closure.f90
r5285 r5299 19 19 ! ************************************************************** 20 20 21 USE conema3_mod_h 21 USE cv3param_mod_h 22 USE conema3_mod_h 22 23 USE cvthermo_mod_h 23 24 USE print_control_mod, ONLY: prt_level, lunout … … 25 26 IMPLICIT NONE 26 27 27 include "cv3param.h"28 28 include "YOMCST2.h" 29 29 -
LMDZ6/trunk/libf/phylmd/cv3p2_closure.f90
r5285 r5299 18 18 ! ************************************************************** 19 19 20 USE conema3_mod_h 20 USE cv3param_mod_h 21 USE conema3_mod_h 21 22 USE cvthermo_mod_h 22 23 USE cvflag_mod_h … … 25 26 IMPLICIT NONE 26 27 27 include "cv3param.h"28 28 include "YOMCST2.h" 29 29 -
LMDZ6/trunk/libf/phylmd/cv3p_mixing.f90
r5285 r5299 13 13 ! ************************************************************** 14 14 15 USE cvthermo_mod_h 15 USE cv3param_mod_h 16 USE cvthermo_mod_h 16 17 USE cvflag_mod_h 17 18 USE print_control_mod, ONLY: mydebug=>debug , lunout, prt_level … … 21 22 IMPLICIT NONE 22 23 23 include "cv3param.h"24 24 include "YOMCST2.h" 25 25 -
LMDZ6/trunk/libf/phylmd/cv3param_mod_h.f90
r5298 r5299 1 !------------------------------------------------------------ 2 ! Parameters for convectL, iflag_con=3: 3 ! (includes - microphysical parameters, 4 ! - parameters that control the rate of approach 5 ! to quasi-equilibrium) 6 ! - noff & minorig (previously in input of convect1) 7 !------------------------------------------------------------ 1 ! Replaces cv3param.h 8 2 9 integer flag_epKEorig 10 real flag_wb 11 integer cv_flag_feed 12 integer noff, minorig, nl, nlp, nlm 13 real sigdz, spfac 14 real pbcrit, ptcrit 15 real elcrit, tlcrit 16 real coef_peel 17 real omtrain 18 real dtovsh, dpbase, dttrig 19 real dtcrit, tau, beta, alpha, alpha1 20 real T_top_max 21 real tau_stop, noconv_stop 22 real wbmax 23 real delta 24 real betad 25 real ejectliq 26 real ejectice 3 MODULE cv3param_mod_h 4 !------------------------------------------------------------ 5 ! Parameters for convectL, iflag_con=3: 6 ! (includes - microphysical parameters, 7 ! - parameters that control the rate of approach 8 ! to quasi-equilibrium) 9 ! - noff & minorig (previously in input of convect1) 10 !------------------------------------------------------------ 11 IMPLICIT NONE; PRIVATE 12 PUBLIC sigdz, spfac, pbcrit, ptcrit, elcrit, tlcrit, coef_peel, omtrain, dtovsh, dpbase, & 13 dttrig, dtcrit, tau, beta, alpha, alpha1, T_top_max, tau_stop, noconv_stop, wbmax, & 14 delta, betad, ejectliq, ejectice, flag_wb, flag_epKEorig, cv_flag_feed, noff, minorig, & 15 nl, nlp, nlm 27 16 28 COMMON /cv3param/ sigdz, spfac & 29 ,pbcrit, ptcrit & 30 ,elcrit, tlcrit & 31 ,coef_peel & 32 ,omtrain & 33 ,dtovsh, dpbase, dttrig & 34 ,dtcrit, tau, beta, alpha, alpha1 & 35 ,T_top_max & 36 ,tau_stop, noconv_stop & 37 ,wbmax & 38 ,delta, betad & 39 ,ejectliq, ejectice & 40 ,flag_epKEorig & 41 ,flag_wb, cv_flag_feed & 42 ,noff, minorig, nl, nlp, nlm 43 !$OMP THREADPRIVATE(/cv3param/) 17 INTEGER flag_epKEorig 18 REAL flag_wb 19 INTEGER cv_flag_feed 20 INTEGER noff, minorig, nl, nlp, nlm 21 REAL sigdz, spfac 22 REAL pbcrit, ptcrit 23 REAL elcrit, tlcrit 24 REAL coef_peel 25 REAL omtrain 26 REAL dtovsh, dpbase, dttrig 27 REAL dtcrit, tau, beta, alpha, alpha1 28 REAL T_top_max 29 REAL tau_stop, noconv_stop 30 REAL wbmax 31 REAL delta 32 REAL betad 33 REAL ejectliq 34 REAL ejectice 44 35 36 !$OMP THREADPRIVATE(sigdz, spfac, pbcrit, ptcrit, elcrit, tlcrit, coef_peel, omtrain, dtovsh, dpbase, & 37 !$OMP dttrig, dtcrit, tau, beta, alpha, alpha1, T_top_max, tau_stop, noconv_stop, wbmax, & 38 !$OMP delta, betad, ejectliq, ejectice, flag_wb, flag_epKEorig, cv_flag_feed, noff, minorig, & 39 !$OMP nl, nlp, nlm) 40 END MODULE cv3param_mod_h 41 42 43 44
Note: See TracChangeset
for help on using the changeset viewer.