Changeset 3435 for LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90
- Timestamp:
- Jan 22, 2019, 4:21:59 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90
r3379 r3435 343 343 !$OMP THREADPRIVATE(zxfluxlat_x, zxfluxlat_w) 344 344 !jyg< 345 !!! Entr \E9es suppl\E9mentaires couche-limite345 !!! Entrees supplementaires couche-limite 346 346 !! REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: t_x, t_w 347 347 !!!$OMP THREADPRIVATE(t_x, t_w) … … 349 349 !!!$OMP THREADPRIVATE(q_x, q_w) 350 350 !>jyg 351 ! Variables suppl\E9mentaires dans physiq.F relative au splitting de la surface 351 !!! Sorties ferret 352 REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: dtvdf_x, dtvdf_w 353 !$OMP THREADPRIVATE(dtvdf_x, dtvdf_w) 354 REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: dqvdf_x, dqvdf_w 355 !$OMP THREADPRIVATE(dqvdf_x, dqvdf_w) 356 ! Variables supplementaires dans physiq.F relative au splitting de la surface 352 357 REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:) :: pbl_tke_input 353 358 !$OMP THREADPRIVATE(pbl_tke_input) … … 578 583 ALLOCATE(plul_st(klon),plul_th(klon)) 579 584 ALLOCATE(d_t_vdf(klon,klev),d_q_vdf(klon,klev),d_t_diss(klon,klev)) 585 586 ALLOCATE(d_t_vdf_w(klon,klev),d_q_vdf_w(klon,klev)) 587 ALLOCATE(d_t_vdf_x(klon,klev),d_q_vdf_x(klon,klev)) 588 580 589 ALLOCATE(d_u_vdf(klon,klev),d_v_vdf(klon,klev)) 581 590 ALLOCATE(d_t_oli(klon,klev),d_t_oro(klon,klev)) … … 589 598 ! Special RRTM 590 599 ALLOCATE(ZLWFT0_i(klon,klev+1),ZSWFT0_i(klon,klev+1),ZFLDN0(klon,klev+1)) 600 ZFLDN0= 0. 591 601 ALLOCATE(ZFLUP0(klon,klev+1),ZFSDN0(klon,klev+1),ZFSUP0(klon,klev+1)) 592 602 ! … … 603 613 ALLOCATE(dv_gwd_rando(klon,klev),dv_gwd_front(klon,klev)) 604 614 ALLOCATE(east_gwstress(klon,klev),west_gwstress(klon,klev)) 615 east_gwstress(:,:)=0 !ym missing init 616 west_gwstress(:,:)=0 !ym missing init 605 617 ALLOCATE(d_t_hin(klon,klev)) 606 618 ALLOCATE(d_q_ch4(klon,klev)) … … 627 639 ALLOCATE(od865aer(klon)) 628 640 ALLOCATE(dryod550aer(klon)) 641 dryod550aer(:) = 0. 629 642 ALLOCATE(abs550aer(klon)) 643 abs550aer(:) = 0. 630 644 ALLOCATE(ec550aer(klon,klev)) 631 645 ALLOCATE(od550lt1aer(klon)) … … 672 686 ALLOCATE(toplwad0_aerop(klon), sollwad0_aerop(klon)) 673 687 674 ! FH Ajout de celles n ??cessaires au phys_output_write_mod688 ! FH Ajout de celles necessaires au phys_output_write_mod 675 689 676 690 ALLOCATE(tal1(klon), pal1(klon), pab1(klon), pab2(klon)) … … 721 735 !! ALLOCATE(q_x(klon,klev), q_w(klon,klev)) 722 736 !>jyg 723 ALLOCATE(d_t_vdf_x(klon,klev), d_t_vdf_w(klon,klev)) 724 ALLOCATE(d_q_vdf_x(klon,klev), d_q_vdf_w(klon,klev)) 737 ALLOCATE(dtvdf_x(klon,klev), dtvdf_w(klon,klev)) 738 dtvdf_x = 0 ; dtvdf_w=0 ; !ym missing init 739 ALLOCATE(dqvdf_x(klon,klev), dqvdf_w(klon,klev)) 740 dqvdf_x = 0 ; dqvdf_w=0 ; !ym missing init 725 741 ALLOCATE(pbl_tke_input(klon,klev+1,nbsrf)) 726 742 ALLOCATE(t_therm(klon,klev), q_therm(klon,klev),u_therm(klon,klev), v_therm(klon,klev)) … … 738 754 ALLOCATE(sens(klon), flwp(klon), fiwp(klon)) 739 755 ALLOCATE(alp_bl_conv(klon), alp_bl_det(klon)) 756 ale_bl_stat(:)=0 ; alp_bl_conv(:)=0 ; alp_bl_det(:)=0 740 757 ALLOCATE(alp_bl_fluct_m(klon), alp_bl_fluct_tke(klon)) 758 alp_bl_fluct_m(:)=0 ; alp_bl_fluct_tke(:)= 0. 741 759 ALLOCATE(alp_bl_stat(klon), n2(klon), s2(klon)) 760 alp_bl_stat(:)=0 742 761 ALLOCATE(proba_notrig(klon), random_notrig(klon)) 743 762 ALLOCATE(cv_gen(klon)) … … 968 987 DEALLOCATE(toplwad0_aerop, sollwad0_aerop) 969 988 970 ! FH Ajout de celles n ??cessaires au phys_output_write_mod989 ! FH Ajout de celles necessaires au phys_output_write_mod 971 990 DEALLOCATE(tal1, pal1, pab1, pab2) 972 991 DEALLOCATE(ptstar, pt0, slp)
Note: See TracChangeset
for help on using the changeset viewer.