Changeset 4742 for LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90
- Timestamp:
- Oct 28, 2023, 4:47:32 PM (7 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90
r4737 r4742 38 38 REAL, SAVE, ALLOCATABLE :: d_tr_dyn(:,:,:) 39 39 !$OMP THREADPRIVATE(d_tr_dyn) 40 REAL, SAVE, ALLOCATABLE :: d_t_con(:,:),d_q_con(:,:) 41 !$OMP THREADPRIVATE(d_t_con,d_q_con )40 REAL, SAVE, ALLOCATABLE :: d_t_con(:,:),d_q_con(:,:),d_q_con_zmasse(:,:) 41 !$OMP THREADPRIVATE(d_t_con,d_q_con,d_q_con_zmasse) 42 42 REAL, SAVE, ALLOCATABLE :: d_u_con(:,:),d_v_con(:,:) 43 43 !$OMP THREADPRIVATE(d_u_con,d_v_con) … … 640 640 ALLOCATE(d_u_dyn(klon,klev),d_v_dyn(klon,klev)) 641 641 ALLOCATE(d_tr_dyn(klon,klev,nbtr)) !RomP 642 ALLOCATE(d_t_con(klon,klev),d_q_con(klon,klev) )642 ALLOCATE(d_t_con(klon,klev),d_q_con(klon,klev),d_q_con_zmasse(klon,klev)) 643 643 ALLOCATE(d_u_con(klon,klev),d_v_con(klon,klev)) 644 644 ALLOCATE(d_t_wake(klon,klev),d_q_wake(klon,klev)) … … 767 767 ALLOCATE(toplwad0_aero_s2(klon), sollwad0_aero_s2(klon)) 768 768 769 770 769 ! FH Ajout de celles necessaires au phys_output_write_mod 771 770 … … 987 986 DEALLOCATE(d_u_dyn,d_v_dyn) 988 987 DEALLOCATE(d_tr_dyn) !RomP 989 DEALLOCATE(d_t_con,d_q_con )988 DEALLOCATE(d_t_con,d_q_con,d_q_con_zmasse) 990 989 DEALLOCATE(d_u_con,d_v_con) 991 990 DEALLOCATE(d_t_wake,d_q_wake)
Note: See TracChangeset
for help on using the changeset viewer.