- Timestamp:
- Oct 30, 2024, 6:34:05 PM (4 weeks ago)
- Location:
- LMDZ6/trunk/libf
- Files:
-
- 2 edited
- 2 moved
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/cv_routines.f90
r5285 r5303 4 4 SUBROUTINE cv_param(nd) 5 5 USE cvthermo_mod_h 6 USE cvparam_mod_h 6 7 IMPLICIT NONE 7 8 … … 37 38 ! *** (DAMP MUST BE LESS THAN 1) *** 38 39 39 include "cvparam.h"40 40 INTEGER nd 41 41 CHARACTER (LEN=20) :: modname = 'cv_routines' … … 77 77 SUBROUTINE cv_prelim(len, nd, ndp1, t, q, p, ph, lv, cpn, tv, gz, h, hm) 78 78 USE cvthermo_mod_h 79 USE cvparam_mod_h 79 80 IMPLICIT NONE 80 81 … … 94 95 INTEGER k, i 95 96 REAL cpx(len, nd) 96 97 include "cvparam.h"98 99 97 100 98 DO k = 1, nlp … … 134 132 SUBROUTINE cv_feed(len, nd, t, q, qs, p, hm, gz, nk, icb, icbmax, iflag, tnk, & 135 133 qnk, gznk, plcl) 136 IMPLICIT NONE 134 USE cvparam_mod_h 135 IMPLICIT NONE 137 136 138 137 ! ================================================================ … … 140 139 ! ================================================================ 141 140 142 include "cvparam.h"143 141 144 142 ! inputs: … … 255 253 SUBROUTINE cv_undilute1(len, nd, t, q, qs, gz, p, nk, icb, icbmax, tp, tvp, & 256 254 clw) 257 USE cvthermo_mod_h 255 USE cvparam_mod_h 256 USE cvthermo_mod_h 258 257 IMPLICIT NONE 259 258 260 include "cvparam.h"261 259 262 260 ! inputs: … … 364 362 365 363 SUBROUTINE cv_trigger(len, nd, icb, cbmf, tv, tvp, iflag) 366 IMPLICIT NONE 364 USE cvparam_mod_h 365 IMPLICIT NONE 367 366 368 367 ! ------------------------------------------------------------------- … … 372 371 ! ------------------------------------------------------------------- 373 372 374 include "cvparam.h"375 373 376 374 ! inputs: … … 397 395 tp1, tvp1, clw1, iflag, nk, icb, cbmf, plcl, tnk, qnk, gznk, t, q, qs, u, & 398 396 v, gz, h, lv, cpn, p, ph, tv, tp, tvp, clw, dph) 399 USE print_control_mod, ONLY: lunout 397 USE cvparam_mod_h 398 USE print_control_mod, ONLY: lunout 400 399 IMPLICIT NONE 401 400 402 include "cvparam.h"403 401 404 402 ! inputs: … … 482 480 SUBROUTINE cv_undilute2(nloc, ncum, nd, icb, nk, tnk, qnk, gznk, t, q, qs, & 483 481 gz, p, dph, h, tv, lv, inb, inb1, tp, tvp, clw, hp, ep, sigp, frac) 484 USE cvthermo_mod_h 482 USE cvparam_mod_h 483 USE cvthermo_mod_h 485 484 IMPLICIT NONE 486 485 … … 494 493 ! FIND THE LEVEL OF NEUTRAL BUOYANCY 495 494 ! --------------------------------------------------------------------- 496 include "cvparam.h"497 495 498 496 ! inputs: … … 765 763 cpn, iflag, cbmf) 766 764 USE cvthermo_mod_h 765 USE cvparam_mod_h 767 766 IMPLICIT NONE 768 767 … … 782 781 REAL dtpbl(nloc), dtmin(nloc), tvpplcl(nloc), tvaplcl(nloc) 783 782 REAL work(nloc) 784 include "cvparam.h"785 783 786 784 ! ------------------------------------------------------------------- … … 846 844 h, lv, qnk, hp, tv, tvp, ep, clw, cbmf, m, ment, qent, uent, vent, nent, & 847 845 sij, elij) 848 USE cvthermo_mod_h 846 USE cvparam_mod_h 847 USE cvthermo_mod_h 849 848 IMPLICIT NONE 850 849 851 include "cvparam.h"852 850 853 851 ! inputs: … … 1097 1095 SUBROUTINE cv_unsat(nloc, ncum, nd, inb, t, q, qs, gz, u, v, p, ph, h, lv, & 1098 1096 ep, sigp, clw, m, ment, elij, iflag, mp, qp, up, vp, wt, water, evap) 1099 USE cvthermo_mod_h 1097 USE cvparam_mod_h 1098 USE cvthermo_mod_h 1100 1099 IMPLICIT NONE 1101 include "cvparam.h"1102 1100 1103 1101 ! inputs: … … 1298 1296 ment, qent, uent, vent, nent, elij, tv, tvp, iflag, wd, qprime, tprime, & 1299 1297 precip, cbmf, ft, fq, fu, fv, ma, qcondc) 1300 USE cvthermo_mod_h 1298 USE cvparam_mod_h 1299 USE cvthermo_mod_h 1301 1300 IMPLICIT NONE 1302 1301 1303 include "cvparam.h"1304 1302 1305 1303 ! inputs … … 1666 1664 fq, fu, fv, ma, qcondc, iflag1, precip1, cbmf1, ft1, fq1, fu1, fv1, ma1, & 1667 1665 qcondc1) 1668 IMPLICIT NONE 1669 1670 include "cvparam.h" 1666 USE cvparam_mod_h 1667 IMPLICIT NONE 1668 1671 1669 1672 1670 ! inputs: -
LMDZ6/trunk/libf/phylmd/cvparam_mod_h.f90
r5302 r5303 1 ! 2 ! $Header$ 3 ! 4 !------------------------------------------------------------ 5 ! Parameters for convectL: 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 !------------------------------------------------------------ 1 MODULE cvparam_mod_h 2 IMPLICIT NONE; PRIVATE 3 PUBLIC noff, minorig, nl, nlp, nlm & 4 , elcrit, tlcrit & 5 , entp, sigs, sigd & 6 , omtrain, omtsnow, coeffr, coeffs & 7 , dtmax, cu, betad, alpha, damp, delta 11 8 12 13 14 15 16 17 18 19 20 21 9 integer noff, minorig, nl, nlp, nlm 10 real elcrit, tlcrit 11 real entp 12 real sigs, sigd 13 real omtrain, omtsnow, coeffr, coeffs 14 real dtmax 15 real cu 16 real betad 17 real alpha, damp 18 real delta 22 19 23 COMMON /cvparam/ noff, minorig, nl, nlp, nlm & 24 ,elcrit, tlcrit & 25 ,entp, sigs, sigd & 26 ,omtrain, omtsnow, coeffr, coeffs & 27 ,dtmax, cu, betad, alpha, damp, delta 28 29 !$OMP THREADPRIVATE(/cvparam/) 20 !$OMP THREADPRIVATE(noff, minorig, nl, nlp, nlm & 21 !$OMP , elcrit, tlcrit & 22 !$OMP , entp, sigs, sigd & 23 !$OMP , omtrain, omtsnow, coeffr, coeffs & 24 !$OMP , dtmax, cu, betad, alpha, damp, delta) 25 END MODULE cvparam_mod_h -
LMDZ6/trunk/libf/phylmdiso/cv_routines.f90
r5285 r5303 4 4 SUBROUTINE cv_param(nd) 5 5 USE cvthermo_mod_h 6 USE cvparam_mod_h 6 7 IMPLICIT NONE 7 8 … … 37 38 ! *** (DAMP MUST BE LESS THAN 1) *** 38 39 39 include "cvparam.h"40 40 INTEGER nd 41 41 CHARACTER (LEN=20) :: modname = 'cv_routines' … … 77 77 SUBROUTINE cv_prelim(len, nd, ndp1, t, q, p, ph, lv, cpn, tv, gz, h, hm) 78 78 USE cvthermo_mod_h 79 USE cvparam_mod_h 79 80 IMPLICIT NONE 80 81 … … 94 95 INTEGER k, i 95 96 REAL cpx(len, nd) 96 97 include "cvparam.h"98 99 97 100 98 DO k = 1, nlp … … 134 132 SUBROUTINE cv_feed(len, nd, t, q, qs, p, hm, gz, nk, icb, icbmax, iflag, tnk, & 135 133 qnk, gznk, plcl) 136 IMPLICIT NONE 134 USE cvparam_mod_h 135 IMPLICIT NONE 137 136 138 137 ! ================================================================ … … 140 139 ! ================================================================ 141 140 142 include "cvparam.h"143 141 144 142 ! inputs: … … 255 253 SUBROUTINE cv_undilute1(len, nd, t, q, qs, gz, p, nk, icb, icbmax, tp, tvp, & 256 254 clw) 257 USE cvthermo_mod_h 255 USE cvparam_mod_h 256 USE cvthermo_mod_h 258 257 IMPLICIT NONE 259 include "cvparam.h"260 258 261 259 ! inputs: … … 363 361 364 362 SUBROUTINE cv_trigger(len, nd, icb, cbmf, tv, tvp, iflag) 365 IMPLICIT NONE 363 USE cvparam_mod_h 364 IMPLICIT NONE 366 365 367 366 ! ------------------------------------------------------------------- … … 371 370 ! ------------------------------------------------------------------- 372 371 373 include "cvparam.h"374 372 375 373 ! inputs: … … 396 394 tp1, tvp1, clw1, iflag, nk, icb, cbmf, plcl, tnk, qnk, gznk, t, q, qs, u, & 397 395 v, gz, h, lv, cpn, p, ph, tv, tp, tvp, clw, dph) 398 USE print_control_mod, ONLY: lunout 396 USE cvparam_mod_h 397 USE print_control_mod, ONLY: lunout 399 398 IMPLICIT NONE 400 399 401 include "cvparam.h"402 400 403 401 ! inputs: … … 481 479 SUBROUTINE cv_undilute2(nloc, ncum, nd, icb, nk, tnk, qnk, gznk, t, q, qs, & 482 480 gz, p, dph, h, tv, lv, inb, inb1, tp, tvp, clw, hp, ep, sigp, frac) 483 USE cvthermo_mod_h 481 USE cvparam_mod_h 482 USE cvthermo_mod_h 484 483 IMPLICIT NONE 485 484 … … 493 492 ! FIND THE LEVEL OF NEUTRAL BUOYANCY 494 493 ! --------------------------------------------------------------------- 495 include "cvparam.h"496 494 497 495 ! inputs: … … 764 762 cpn, iflag, cbmf) 765 763 USE cvthermo_mod_h 764 USE cvparam_mod_h 766 765 IMPLICIT NONE 767 766 … … 782 781 REAL work(nloc) 783 782 784 include "cvparam.h"785 786 783 ! ------------------------------------------------------------------- 787 784 ! Compute icbmax. … … 846 843 h, lv, qnk, hp, tv, tvp, ep, clw, cbmf, m, ment, qent, uent, vent, nent, & 847 844 sij, elij) 848 USE cvthermo_mod_h 845 USE cvparam_mod_h 846 USE cvthermo_mod_h 849 847 IMPLICIT NONE 850 848 851 include "cvparam.h"852 849 853 850 ! inputs: … … 1097 1094 SUBROUTINE cv_unsat(nloc, ncum, nd, inb, t, q, qs, gz, u, v, p, ph, h, lv, & 1098 1095 ep, sigp, clw, m, ment, elij, iflag, mp, qp, up, vp, wt, water, evap) 1099 USE cvthermo_mod_h 1096 USE cvparam_mod_h 1097 USE cvthermo_mod_h 1100 1098 IMPLICIT NONE 1101 1099 1102 include "cvparam.h"1103 1100 1104 1101 ! inputs: … … 1299 1296 ment, qent, uent, vent, nent, elij, tv, tvp, iflag, wd, qprime, tprime, & 1300 1297 precip, cbmf, ft, fq, fu, fv, ma, qcondc) 1301 USE cvthermo_mod_h 1298 USE cvparam_mod_h 1299 USE cvthermo_mod_h 1302 1300 IMPLICIT NONE 1303 1301 1304 include "cvparam.h"1305 1302 1306 1303 ! inputs … … 1667 1664 fq, fu, fv, ma, qcondc, iflag1, precip1, cbmf1, ft1, fq1, fu1, fv1, ma1, & 1668 1665 qcondc1) 1669 IMPLICIT NONE 1670 1671 include "cvparam.h" 1666 USE cvparam_mod_h 1667 IMPLICIT NONE 1668 1672 1669 1673 1670 ! inputs: -
LMDZ6/trunk/libf/phylmdiso/cvparam_mod_h.f90
r5302 r5303 1 link ../phylmd/cvparam .h1 link ../phylmd/cvparam_mod_h.f90
Note: See TracChangeset
for help on using the changeset viewer.