- Timestamp:
- Sep 29, 2016, 11:26:46 PM (8 years ago)
- Location:
- LMDZ5/branches/testing
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/testing
- Property svn:mergeinfo changed
/LMDZ5/trunk merged: 2596-2640
- Property svn:mergeinfo changed
-
LMDZ5/branches/testing/libf/phylmd/phys_local_var_mod.F90
r2594 r2641 253 253 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: sens, flwp, fiwp 254 254 !$OMP THREADPRIVATE(sens, flwp, fiwp) 255 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: ale_wake, alp_wake, bils 256 !$OMP THREADPRIVATE(ale_wake, alp_wake, bils) 255 !! 256 !! Wake variables 257 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: ale_wake, alp_wake 258 !$OMP THREADPRIVATE(ale_wake, alp_wake) 259 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: wake_h 260 !$OMP THREADPRIVATE(wake_h) 261 REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: wake_omg 262 !$OMP THREADPRIVATE(wake_omg) 263 REAL, SAVE, ALLOCATABLE,DIMENSION(:,:) :: d_deltat_wk, d_deltaq_wk 264 !$OMP THREADPRIVATE(d_deltat_wk, d_deltaq_wk) 265 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: d_s_wk, d_dens_wk 266 !$OMP THREADPRIVATE(d_s_wk, d_dens_wk) 267 REAL, SAVE, ALLOCATABLE,DIMENSION(:,:) :: d_deltat_wk_gw, d_deltaq_wk_gw 268 !$OMP THREADPRIVATE(d_deltat_wk_gw, d_deltaq_wk_gw) 269 REAL, SAVE, ALLOCATABLE,DIMENSION(:,:) :: d_deltat_vdf, d_deltaq_vdf 270 !$OMP THREADPRIVATE(d_deltat_vdf, d_deltaq_vdf) 271 !!! REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: d_s_vdf, d_dens_vdf 272 !!!OMP THREADPRIVATE(d_s_vdf, d_dens_vdf) 273 REAL, SAVE, ALLOCATABLE,DIMENSION(:,:) :: d_deltat_the, d_deltaq_the 274 !$OMP THREADPRIVATE(d_deltat_the, d_deltaq_the) 275 !!! REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: d_s_the, d_dens_the 276 !!!OMP THREADPRIVATE(d_s_the, d_dens_the) 277 REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: d_deltat_ajs_cv, d_deltaq_ajs_cv 278 !$OMP THREADPRIVATE(d_deltat_ajs_cv, d_deltaq_ajs_cv) 279 !! End of Wake variables 280 !! 281 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: bils 282 !$OMP THREADPRIVATE(bils) 257 283 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: cdragm, cdragh 258 284 !$OMP THREADPRIVATE(cdragm, cdragh) … … 312 338 REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: dqvdf_x, dqvdf_w 313 339 !$OMP THREADPRIVATE(dqvdf_x, dqvdf_w) 314 REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: undi_tke, wake_tke315 !$OMP THREADPRIVATE(undi_tke, wake_tke)316 340 ! Variables supplémentaires dans physiq.F relative au splitting de la surface 317 341 REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:) :: pbl_tke_input 318 342 !$OMP THREADPRIVATE(pbl_tke_input) 319 343 ! Entree supplementaire Thermiques : 320 REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: t_therm, q_therm 321 !$OMP THREADPRIVATE(t_therm, q_therm )344 REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: t_therm, q_therm, u_therm, v_therm 345 !$OMP THREADPRIVATE(t_therm, q_therm, u_therm, v_therm) 322 346 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: cdragh_x, cdragh_w 323 347 !$OMP THREADPRIVATE(cdragh_x, cdragh_w) … … 330 354 !>jyg+nrlmd 331 355 ! 332 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: w ake_h, wbeff, zmax_th, zq2m, zt2m333 !$OMP THREADPRIVATE(w ake_h, wbeff, zmax_th, zq2m, zt2m)356 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: wbeff, zmax_th, zq2m, zt2m 357 !$OMP THREADPRIVATE(wbeff, zmax_th, zq2m, zt2m) 334 358 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zt2m_min_mon, zt2m_max_mon 335 359 !$OMP THREADPRIVATE(zt2m_min_mon, zt2m_max_mon) … … 365 389 REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: ref_liq_pi, ref_ice_pi 366 390 !$OMP THREADPRIVATE(ref_liq_pi, ref_ice_pi) 367 REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: wake_omg,zx_rh368 !$OMP THREADPRIVATE( wake_omg,zx_rh)391 REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: zx_rh 392 !$OMP THREADPRIVATE(zx_rh) 369 393 REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: pmflxr, pmflxs, prfl, psfl, fraca 370 394 !$OMP THREADPRIVATE(pmflxr, pmflxs, prfl, psfl, fraca) … … 530 554 ALLOCATE(tal1(klon), pal1(klon), pab1(klon), pab2(klon)) 531 555 ALLOCATE(ptstar(klon),pt0(klon),slp(klon)) 532 ALLOCATE(ale_wake(klon), alp_wake(klon), bils(klon)) 556 !! 557 !! Wake variables 558 ALLOCATE(ale_wake(klon), alp_wake(klon)) 559 ALLOCATE(wake_h(klon)) 560 ALLOCATE(wake_omg(klon, klev)) 561 ALLOCATE(d_deltat_wk(klon, klev), d_deltaq_wk(klon, klev)) 562 ALLOCATE(d_s_wk(klon), d_dens_wk(klon)) 563 ALLOCATE(d_deltat_wk_gw(klon, klev), d_deltaq_wk_gw(klon, klev)) 564 ALLOCATE(d_deltat_vdf(klon, klev), d_deltaq_vdf(klon, klev)) 565 !! ALLOCATE( d_s_vdf(klon), d_dens_vdf(klon)) 566 ALLOCATE(d_deltat_the(klon, klev), d_deltaq_the(klon, klev)) 567 !! ALLOCATE( d_s_the(klon), d_dens_the(klon)) 568 ALLOCATE(d_deltat_ajs_cv(klon, klev), d_deltaq_ajs_cv(klon, klev)) 569 !! End of wake variables 570 !! 571 ALLOCATE(bils(klon)) 533 572 ALLOCATE(cdragm(klon), cdragh(klon), cldh(klon), cldl(klon)) 534 573 ALLOCATE(cldm(klon), cldq(klon), cldt(klon), qsat2m(klon)) … … 561 600 ALLOCATE(dtvdf_x(klon,klev), dtvdf_w(klon,klev)) 562 601 ALLOCATE(dqvdf_x(klon,klev), dqvdf_w(klon,klev)) 563 ALLOCATE(undi_tke(klon,klev), wake_tke(klon,klev))564 602 ALLOCATE(pbl_tke_input(klon,klev+1,nbsrf)) 565 ALLOCATE(t_therm(klon,klev), q_therm(klon,klev) )603 ALLOCATE(t_therm(klon,klev), q_therm(klon,klev),u_therm(klon,klev), v_therm(klon,klev)) 566 604 ALLOCATE(cdragh_x(klon), cdragh_w(klon)) 567 605 ALLOCATE(cdragm_x(klon), cdragm_w(klon)) 568 606 ALLOCATE(kh(klon), kh_x(klon), kh_w(klon)) 569 607 ! 570 ALLOCATE(w ake_h(klon), wbeff(klon), zmax_th(klon))608 ALLOCATE(wbeff(klon), zmax_th(klon)) 571 609 ALLOCATE(zq2m(klon), zt2m(klon), weak_inversion(klon)) 572 610 ALLOCATE(zt2m_min_mon(klon), zt2m_max_mon(klon)) … … 589 627 ALLOCATE(ref_liq(klon, klev), ref_ice(klon, klev), theta(klon, klev)) 590 628 ALLOCATE(ref_liq_pi(klon, klev), ref_ice_pi(klon, klev)) 591 ALLOCATE(zphi(klon, klev), wake_omg(klon, klev),zx_rh(klon, klev))629 ALLOCATE(zphi(klon, klev), zx_rh(klon, klev)) 592 630 ALLOCATE(pmfd(klon, klev), pmfu(klon, klev)) 593 631 … … 741 779 DEALLOCATE(tal1, pal1, pab1, pab2) 742 780 DEALLOCATE(ptstar, pt0, slp) 743 DEALLOCATE(ale_wake, alp_wake, bils) 781 ! 782 DEALLOCATE(ale_wake, alp_wake) 783 DEALLOCATE(wake_h) 784 DEALLOCATE(wake_omg) 785 DEALLOCATE(d_deltat_wk, d_deltaq_wk) 786 DEALLOCATE(d_s_wk, d_dens_wk) 787 DEALLOCATE(d_deltat_wk_gw, d_deltaq_wk_gw) 788 DEALLOCATE(d_deltat_vdf, d_deltaq_vdf) 789 !! DEALLOCATE( d_s_vdf, d_dens_vdf) 790 DEALLOCATE(d_deltat_the, d_deltaq_the) 791 !! DEALLOCATE( d_s_the, d_dens_the) 792 DEALLOCATE(d_deltat_ajs_cv, d_deltaq_ajs_cv) 793 ! 794 DEALLOCATE(bils) 744 795 DEALLOCATE(cdragm, cdragh, cldh, cldl) 745 796 DEALLOCATE(cldm, cldq, cldt, qsat2m) … … 770 821 DEALLOCATE(dtvdf_x, dtvdf_w) 771 822 DEALLOCATE(dqvdf_x, dqvdf_w) 772 DEALLOCATE(undi_tke, wake_tke)773 823 DEALLOCATE(pbl_tke_input) 774 DEALLOCATE(t_therm, q_therm )824 DEALLOCATE(t_therm, q_therm, u_therm, v_therm) 775 825 DEALLOCATE(cdragh_x, cdragh_w) 776 826 DEALLOCATE(cdragm_x, cdragm_w) 777 827 DEALLOCATE(kh, kh_x, kh_w) 778 828 ! 779 DEALLOCATE(w ake_h, wbeff, zmax_th)829 DEALLOCATE(wbeff, zmax_th) 780 830 DEALLOCATE(zq2m, zt2m, weak_inversion) 781 831 DEALLOCATE(zt2m_min_mon, zt2m_max_mon) … … 798 848 DEALLOCATE(ref_liq, ref_ice, theta) 799 849 DEALLOCATE(ref_liq_pi, ref_ice_pi) 800 DEALLOCATE(zphi, wake_omg,zx_rh)850 DEALLOCATE(zphi, zx_rh) 801 851 DEALLOCATE(pmfd, pmfu) 802 852
Note: See TracChangeset
for help on using the changeset viewer.