Changeset 2706 for LMDZ5/trunk


Ignore:
Timestamp:
Nov 21, 2016, 12:36:31 AM (8 years ago)
Author:
fhourdin
Message:

Complement a la modification precedente

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

    r2690 r2706  
    5353      !$OMP THREADPRIVATE(d_t_ajs_x, d_q_ajs_x)
    5454!>nrlmd
    55       REAL, SAVE, ALLOCATABLE :: d_t_eva(:,:),d_q_eva(:,:)
    56       !$OMP THREADPRIVATE(d_t_eva,d_q_eva)
     55      REAL, SAVE, ALLOCATABLE :: d_t_eva(:,:),d_q_eva(:,:),d_ql_eva(:,:),d_qi_eva(:,:)
     56      !$OMP THREADPRIVATE(d_t_eva,d_q_eva,d_ql_eva,d_qi_eva)
    5757      REAL, SAVE, ALLOCATABLE :: d_t_lscst(:,:),d_q_lscst(:,:)
    5858      !$OMP THREADPRIVATE(d_t_lscst,d_q_lscst)
     
    512512      allocate(d_u_ajs(klon,klev),d_v_ajs(klon,klev))
    513513      allocate(d_t_eva(klon,klev),d_q_eva(klon,klev))
     514      allocate(d_ql_eva(klon,klev),d_qi_eva(klon,klev))
    514515      allocate(d_t_lscst(klon,klev),d_q_lscst(klon,klev))
    515516      allocate(d_t_lscth(klon,klev),d_q_lscth(klon,klev))
     
    774775      deallocate(d_u_ajs,d_v_ajs)
    775776      deallocate(d_t_eva,d_q_eva)
     777      deallocate(d_ql_eva,d_qi_eva)
    776778      deallocate(d_t_lscst,d_q_lscst)
    777779      deallocate(d_t_lscth,d_q_lscth)
Note: See TracChangeset for help on using the changeset viewer.