- Timestamp:
- Sep 24, 2024, 10:47:17 AM (4 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/phylmd/phys_local_var_mod.F90
r5219 r5224 1 2 ! $Id$3 4 1 MODULE phys_local_var_mod 5 2 USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_STRATAER … … 23 20 REAL, SAVE, ALLOCATABLE :: u_seri(:, :), v_seri(:, :) 24 21 !$OMP THREADPRIVATE(u_seri, v_seri) 25 REAL, SAVE, ALLOCATABLE :: rneb_seri(:, :) 26 !$OMP THREADPRIVATE(rneb_seri) 27 REAL, SAVE, ALLOCATABLE :: d_rneb_dyn(:, :) 28 !$OMP THREADPRIVATE(d_rneb_dyn) 22 REAL, SAVE, ALLOCATABLE :: cf_seri(:,:), rvc_seri(:,:) 23 !$OMP THREADPRIVATE(cf_seri, rvc_seri) 29 24 REAL, SAVE, ALLOCATABLE :: l_mixmin(:, :, :), l_mix(:, :, :), wprime(:, :, :) 30 25 !$OMP THREADPRIVATE(l_mixmin, l_mix, wprime) … … 45 40 REAL, SAVE, ALLOCATABLE :: d_u_dyn(:, :), d_v_dyn(:, :) 46 41 !$OMP THREADPRIVATE(d_u_dyn, d_v_dyn) 42 REAL, SAVE, ALLOCATABLE :: d_cf_dyn(:, :), d_rvc_dyn(:, :) 43 !$OMP THREADPRIVATE(d_cf_dyn, d_rvc_dyn) 47 44 REAL, SAVE, ALLOCATABLE :: d_tr_dyn(:, :, :) 48 45 !$OMP THREADPRIVATE(d_tr_dyn) … … 640 637 !$OMP THREADPRIVATE(zn2mout) 641 638 642 REAL, SAVE, ALLOCATABLE :: qclr(:, :) 643 !$OMP THREADPRIVATE(qclr) 644 REAL, SAVE, ALLOCATABLE :: qcld(:, :) 645 !$OMP THREADPRIVATE(qcld) 646 REAL, SAVE, ALLOCATABLE :: qss(:, :) 647 !$OMP THREADPRIVATE(qss) 648 REAL, SAVE, ALLOCATABLE :: qvc(:, :) 649 !$OMP THREADPRIVATE(qvc) 650 REAL, SAVE, ALLOCATABLE :: rnebclr(:, :) 651 !$OMP THREADPRIVATE(rnebclr) 652 REAL, SAVE, ALLOCATABLE :: rnebss(:, :) 653 !$OMP THREADPRIVATE(rnebss) 654 REAL, SAVE, ALLOCATABLE :: gamma_ss(:, :) 655 !$OMP THREADPRIVATE(gamma_ss) 656 REAL, SAVE, ALLOCATABLE :: N1_ss(:, :) 657 !$OMP THREADPRIVATE(N1_ss) 658 REAL, SAVE, ALLOCATABLE :: N2_ss(:, :) 659 !$OMP THREADPRIVATE(N2_ss) 660 REAL, SAVE, ALLOCATABLE :: drneb_sub(:, :) 661 !$OMP THREADPRIVATE(drneb_sub) 662 REAL, SAVE, ALLOCATABLE :: drneb_con(:, :) 663 !$OMP THREADPRIVATE(drneb_con) 664 REAL, SAVE, ALLOCATABLE :: drneb_tur(:, :) 665 !$OMP THREADPRIVATE(drneb_tur) 666 REAL, SAVE, ALLOCATABLE :: drneb_avi(:, :) 667 !$OMP THREADPRIVATE(drneb_avi) 668 REAL, SAVE, ALLOCATABLE :: zqsatl(:, :) 669 !$OMP THREADPRIVATE(zqsatl) 670 REAL, SAVE, ALLOCATABLE :: zqsats(:, :) 671 !$OMP THREADPRIVATE(zqsats) 672 REAL, SAVE, ALLOCATABLE :: Tcontr(:, :) 673 !$OMP THREADPRIVATE(Tcontr) 674 REAL, SAVE, ALLOCATABLE :: qcontr(:, :) 675 !$OMP THREADPRIVATE(qcontr) 676 REAL, SAVE, ALLOCATABLE :: qcontr2(:, :) 677 !$OMP THREADPRIVATE(qcontr2) 678 REAL, SAVE, ALLOCATABLE :: fcontrN(:, :) 679 !$OMP THREADPRIVATE(fcontrN) 680 REAL, SAVE, ALLOCATABLE :: fcontrP(:, :) 681 !$OMP THREADPRIVATE(fcontrP) 639 !-- LSCP - condensation and ice supersaturation variables 640 REAL, SAVE, ALLOCATABLE :: qsub(:,:), qissr(:,:), qcld(:,:) 641 !$OMP THREADPRIVATE(qsub, qissr, qcld) 642 REAL, SAVE, ALLOCATABLE :: subfra(:,:), issrfra(:,:) 643 !$OMP THREADPRIVATE(subfra, issrfra) 644 REAL, SAVE, ALLOCATABLE :: gamma_cond(:,:) 645 !$OMP THREADPRIVATE(gamma_cond) 646 REAL, SAVE, ALLOCATABLE :: ratio_qi_qtot(:,:) 647 !$OMP THREADPRIVATE(ratio_qi_qtot) 648 REAL, SAVE, ALLOCATABLE :: dcf_sub(:,:), dcf_con(:,:), dcf_mix(:,:) 649 !$OMP THREADPRIVATE(dcf_sub, dcf_con, dcf_mix) 650 REAL, SAVE, ALLOCATABLE :: dqi_adj(:,:), dqi_sub(:,:), dqi_con(:,:), dqi_mix(:,:) 651 !$OMP THREADPRIVATE(dqi_adj, dqi_sub, dqi_con, dqi_mix) 652 REAL, SAVE, ALLOCATABLE :: dqvc_adj(:,:), dqvc_sub(:,:), dqvc_con(:,:), dqvc_mix(:,:) 653 !$OMP THREADPRIVATE(dqvc_adj, dqvc_sub, dqvc_con, dqvc_mix) 654 REAL, SAVE, ALLOCATABLE :: qsatliq(:,:), qsatice(:,:) 655 !$OMP THREADPRIVATE(qsatliq, qsatice) 656 657 !-- LSCP - aviation and contrails variables 658 REAL, SAVE, ALLOCATABLE :: Tcontr(:,:), qcontr(:,:), qcontr2(:,:) 659 !$OMP THREADPRIVATE(Tcontr, qcontr, qcontr2) 660 REAL, SAVE, ALLOCATABLE :: fcontrN(:,:), fcontrP(:,:) 661 !$OMP THREADPRIVATE(fcontrN, fcontrP) 662 REAL, SAVE, ALLOCATABLE :: dcf_avi(:,:), dqi_avi(:,:), dqvc_avi(:,:) 663 !$OMP THREADPRIVATE(dcf_avi, dqi_avi, dqvc_avi) 664 REAL, SAVE, ALLOCATABLE :: flight_dist(:,:), flight_h2o(:,:) 665 !$OMP THREADPRIVATE(flight_dist, flight_h2o) 666 667 !-- LSCP - mixed phase clouds variables 682 668 REAL, SAVE, ALLOCATABLE :: distcltop(:, :) 683 669 !$OMP THREADPRIVATE(distcltop) … … 686 672 687 673 688 !-- POPRECIP variables674 !-- LSCP - POPRECIP variables 689 675 REAL, SAVE, ALLOCATABLE :: qraindiag(:, :) 690 676 !$OMP THREADPRIVATE(qraindiag) … … 831 817 ! SN 832 818 ALLOCATE(u_seri(klon, klev), v_seri(klon, klev)) 819 ALLOCATE(cf_seri(klon, klev), rvc_seri(klon, klev)) 833 820 ALLOCATE(l_mixmin(klon, klev + 1, nbsrf), l_mix(klon, klev + 1, nbsrf), wprime(klon, klev + 1, nbsrf)) 834 821 ALLOCATE(pbl_eps(klon, klev + 1, nbsrf + 1)) … … 843 830 ALLOCATE(d_q_dyn2d(klon), d_ql_dyn2d(klon), d_qs_dyn2d(klon), d_qbs_dyn2d(klon)) 844 831 ALLOCATE(d_u_dyn(klon, klev), d_v_dyn(klon, klev)) 832 ALLOCATE(d_cf_dyn(klon,klev),d_rvc_dyn(klon,klev)) 845 833 ALLOCATE(d_tr_dyn(klon, klev, nbtr)) !RomP 846 834 ALLOCATE(d_t_con(klon, klev), d_q_con(klon, klev), d_q_con_zmasse(klon, klev)) … … 1206 1194 ALLOCATE(zn2mout(klon, 6)) 1207 1195 1208 ! Supersaturation 1209 ALLOCATE(rneb_seri(klon, klev)) 1210 ALLOCATE(d_rneb_dyn(klon, klev)) 1211 ALLOCATE(qclr(klon, klev), qcld(klon, klev), qss(klon, klev), qvc(klon, klev)) 1212 ALLOCATE(rnebclr(klon, klev), rnebss(klon, klev), gamma_ss(klon, klev)) 1213 ALLOCATE(N1_ss(klon, klev), N2_ss(klon, klev)) 1214 ALLOCATE(drneb_sub(klon, klev), drneb_con(klon, klev), drneb_tur(klon, klev), drneb_avi(klon, klev)) 1215 ALLOCATE(zqsatl(klon, klev), zqsats(klon, klev)) 1216 ALLOCATE(Tcontr(klon, klev), qcontr(klon, klev), qcontr2(klon, klev), fcontrN(klon, klev), fcontrP(klon, klev)) 1217 1218 !--POPRECIP variables 1196 !-- LSCP - condensation and ice supersaturation variables 1197 ALLOCATE(qsub(klon,klev), qissr(klon,klev), qcld(klon,klev)) 1198 ALLOCATE(subfra(klon,klev), issrfra(klon,klev)) 1199 ALLOCATE(gamma_cond(klon,klev), ratio_qi_qtot(klon,klev)) 1200 ALLOCATE(dcf_sub(klon,klev), dcf_con(klon,klev), dcf_mix(klon,klev)) 1201 ALLOCATE(dqi_adj(klon,klev), dqi_sub(klon,klev), dqi_con(klon,klev), dqi_mix(klon,klev)) 1202 ALLOCATE(dqvc_adj(klon,klev), dqvc_sub(klon,klev), dqvc_con(klon,klev), dqvc_mix(klon,klev)) 1203 ALLOCATE(qsatliq(klon,klev), qsatice(klon,klev)) 1204 1205 !-- LSCP - aviation and contrails variables 1206 ALLOCATE(Tcontr(klon,klev), qcontr(klon,klev), qcontr2(klon,klev)) 1207 ALLOCATE(fcontrN(klon,klev), fcontrP(klon,klev)) 1208 ALLOCATE(dcf_avi(klon,klev), dqi_avi(klon,klev), dqvc_avi(klon,klev)) 1209 ALLOCATE(flight_dist(klon,klev), flight_h2o(klon,klev)) 1210 1211 !-- LSCP - POPRECIP variables 1219 1212 ALLOCATE(qraindiag(klon, klev), qsnowdiag(klon, klev)) 1220 1213 ALLOCATE(dqreva(klon, klev), dqssub(klon, klev)) … … 1285 1278 ! SN 1286 1279 DEALLOCATE(u_seri, v_seri) 1280 DEALLOCATE(cf_seri,rvc_seri) 1287 1281 DEALLOCATE(l_mixmin, l_mix, wprime) 1288 1282 DEALLOCATE(tke_shear, tke_buoy, tke_trans) … … 1294 1288 DEALLOCATE(d_q_dyn2d, d_ql_dyn2d, d_qs_dyn2d, d_qbs_dyn2d) 1295 1289 DEALLOCATE(d_u_dyn, d_v_dyn) 1290 DEALLOCATE(d_cf_dyn,d_rvc_dyn) 1296 1291 DEALLOCATE(d_tr_dyn) !RomP 1297 1292 DEALLOCATE(d_t_con, d_q_con, d_q_con_zmasse) … … 1604 1599 DEALLOCATE(zn2mout) 1605 1600 1606 ! Supersaturation 1607 DEALLOCATE(rneb_seri) 1608 DEALLOCATE(d_rneb_dyn) 1609 DEALLOCATE(qclr, qcld, qss, qvc) 1610 DEALLOCATE(rnebclr, rnebss, gamma_ss) 1611 DEALLOCATE(N1_ss, N2_ss) 1612 DEALLOCATE(drneb_sub, drneb_con, drneb_tur, drneb_avi) 1613 DEALLOCATE(zqsatl, zqsats) 1614 DEALLOCATE(Tcontr, qcontr, qcontr2, fcontrN, fcontrP) 1615 1616 !--POPRECIP variables 1601 !-- LSCP - condensation and ice supersaturation variables 1602 DEALLOCATE(qsub, qissr, qcld) 1603 DEALLOCATE(subfra, issrfra) 1604 DEALLOCATE(gamma_cond, ratio_qi_qtot) 1605 DEALLOCATE(dcf_sub, dcf_con, dcf_mix) 1606 DEALLOCATE(dqi_adj, dqi_sub, dqi_con, dqi_mix) 1607 DEALLOCATE(dqvc_adj, dqvc_sub, dqvc_con, dqvc_mix) 1608 DEALLOCATE(qsatliq, qsatice) 1609 1610 !-- LSCP - aviation and contrails variables 1611 DEALLOCATE(Tcontr, qcontr, qcontr2) 1612 DEALLOCATE(fcontrN, fcontrP) 1613 DEALLOCATE(dcf_avi, dqi_avi, dqvc_avi) 1614 DEALLOCATE(flight_dist, flight_h2o) 1615 1616 !-- LSCP - POPRECIP variables 1617 1617 DEALLOCATE(qraindiag, qsnowdiag) 1618 1618 DEALLOCATE(dqreva, dqssub)
Note: See TracChangeset
for help on using the changeset viewer.