Changeset 4065 for LMDZ6/trunk/libf/phylmdiso/phys_local_var_mod.F90
- Timestamp:
- Jan 26, 2022, 4:00:14 PM (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/phys_local_var_mod.F90
r4040 r4065 16 16 REAL, SAVE, ALLOCATABLE :: u_seri(:,:), v_seri(:,:) 17 17 !$OMP THREADPRIVATE(u_seri, v_seri) 18 REAL, SAVE, ALLOCATABLE :: l_mixmin(:,:,:),l_mix(:,:,:),tke_dissip(:,:,:), wprime(:,:,:) 18 REAL, SAVE, ALLOCATABLE :: rneb_seri(:,:) 19 !$OMP THREADPRIVATE(rneb_seri) 20 REAL, SAVE, ALLOCATABLE :: d_rneb_dyn(:,:) 21 !$OMP THREADPRIVATE(d_rneb_dyn) 22 REAL, SAVE, ALLOCATABLE :: l_mixmin(:,:,:),l_mix(:,:,:),tke_dissip(:,:,:),wprime(:,:,:) 19 23 !$OMP THREADPRIVATE(l_mixmin, l_mix, tke_dissip,wprime) 20 24 REAL, SAVE, ALLOCATABLE :: tr_seri(:,:,:) … … 602 606 !$OMP THREADPRIVATE(zn2mout) 603 607 608 REAL, SAVE, ALLOCATABLE :: qclr(:,:) 609 !$OMP THREADPRIVATE(qclr) 610 REAL, SAVE, ALLOCATABLE :: qcld(:,:) 611 !$OMP THREADPRIVATE(qcld) 612 REAL, SAVE, ALLOCATABLE :: qss(:,:) 613 !$OMP THREADPRIVATE(qss) 614 REAL, SAVE, ALLOCATABLE :: qvc(:,:) 615 !$OMP THREADPRIVATE(qvc) 616 REAL, SAVE, ALLOCATABLE :: rnebclr(:,:) 617 !$OMP THREADPRIVATE(rnebclr) 618 REAL, SAVE, ALLOCATABLE :: rnebss(:,:) 619 !$OMP THREADPRIVATE(rnebss) 620 REAL, SAVE, ALLOCATABLE :: gamma_ss(:,:) 621 !$OMP THREADPRIVATE(gamma_ss) 622 REAL, SAVE, ALLOCATABLE :: N1_ss(:,:) 623 !$OMP THREADPRIVATE(N1_ss) 624 REAL, SAVE, ALLOCATABLE :: N2_ss(:,:) 625 !$OMP THREADPRIVATE(N2_ss) 626 REAL, SAVE, ALLOCATABLE :: drneb_sub(:,:) 627 !$OMP THREADPRIVATE(drneb_sub) 628 REAL, SAVE, ALLOCATABLE :: drneb_con(:,:) 629 !$OMP THREADPRIVATE(drneb_con) 630 REAL, SAVE, ALLOCATABLE :: drneb_tur(:,:) 631 !$OMP THREADPRIVATE(drneb_tur) 632 REAL, SAVE, ALLOCATABLE :: drneb_avi(:,:) 633 !$OMP THREADPRIVATE(drneb_avi) 634 REAL, SAVE, ALLOCATABLE :: zqsatl(:,:) 635 !$OMP THREADPRIVATE(zqsatl) 636 REAL, SAVE, ALLOCATABLE :: zqsats(:,:) 637 !$OMP THREADPRIVATE(zqsats) 638 REAL, SAVE, ALLOCATABLE :: Tcontr(:,:) 639 !$OMP THREADPRIVATE(Tcontr) 640 REAL, SAVE, ALLOCATABLE :: qcontr(:,:) 641 !$OMP THREADPRIVATE(qcontr) 642 REAL, SAVE, ALLOCATABLE :: qcontr2(:,:) 643 !$OMP THREADPRIVATE(qcontr2) 644 REAL, SAVE, ALLOCATABLE :: fcontrN(:,:) 645 !$OMP THREADPRIVATE(fcontrN) 646 REAL, SAVE, ALLOCATABLE :: fcontrP(:,:) 647 !$OMP THREADPRIVATE(fcontrP) 648 604 649 #ifdef CPP_StratAer 605 650 ! … … 1037 1082 1038 1083 ALLOCATE(zn2mout(klon,6)) 1084 1085 ! Supersaturation 1086 ALLOCATE(rneb_seri(klon,klev)) 1087 ALLOCATE(d_rneb_dyn(klon,klev)) 1088 ALLOCATE(qclr(klon,klev), qcld(klon,klev), qss(klon,klev), qvc(klon,klev)) 1089 ALLOCATE(rnebclr(klon,klev), rnebss(klon,klev), gamma_ss(klon,klev)) 1090 ALLOCATE(N1_ss(klon,klev), N2_ss(klon,klev)) 1091 ALLOCATE(drneb_sub(klon,klev), drneb_con(klon,klev), drneb_tur(klon,klev), drneb_avi(klon,klev)) 1092 ALLOCATE(zqsatl(klon,klev), zqsats(klon,klev)) 1093 ALLOCATE(Tcontr(klon,klev), qcontr(klon,klev), qcontr2(klon,klev), fcontrN(klon,klev), fcontrP(klon,klev)) 1039 1094 1040 1095 #ifdef CPP_StratAer … … 1390 1445 DEALLOCATE(zn2mout) 1391 1446 1447 ! Supersaturation 1448 DEALLOCATE(rneb_seri) 1449 DEALLOCATE(d_rneb_dyn) 1450 DEALLOCATE(qclr, qcld, qss, qvc) 1451 DEALLOCATE(rnebclr, rnebss, gamma_ss) 1452 DEALLOCATE(N1_ss, N2_ss) 1453 DEALLOCATE(drneb_sub, drneb_con, drneb_tur, drneb_avi) 1454 DEALLOCATE(zqsatl, zqsats) 1455 DEALLOCATE(Tcontr, qcontr, qcontr2, fcontrN, fcontrP) 1456 1392 1457 #ifdef CPP_StratAer 1393 1458 ! variables for strat. aerosol CK
Note: See TracChangeset
for help on using the changeset viewer.