Changeset 1054 for LMDZ4/trunk/libf/phylmd/phys_local_var_mod.F90

Timestamp:

Nov 14, 2008, 5:38:42 PM (16 years ago)

Author:

lmdzadmin

Message:

Ajout sorties tendances dynamiques histLES
ACA/FH/IM

File:

• LMDZ4/trunk/libf/phylmd/phys_local_var_mod.F90 (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -18 +18 @@
       REAL, SAVE, ALLOCATABLE :: d_t_dyn(:,:), d_q_dyn(:,:)
       !$OMP THREADPRIVATE(d_t_dyn, d_q_dyn)
+      REAL, SAVE, ALLOCATABLE :: d_u_dyn(:,:), d_v_dyn(:,:)
+      !$OMP THREADPRIVATE(d_u_dyn, d_v_dyn)
       REAL, SAVE, ALLOCATABLE :: d_t_con(:,:),d_q_con(:,:)
       !$OMP THREADPRIVATE(d_t_con,d_q_con)
@@ -76 +78 @@
       allocate(tr_seri(klon,klev,nbtr))
       allocate(d_t_dyn(klon,klev),d_q_dyn(klon,klev))
+      allocate(d_u_dyn(klon,klev),d_v_dyn(klon,klev))
       allocate(d_t_con(klon,klev),d_q_con(klon,klev))
       allocate(d_u_con(klon,klev),d_v_con(klon,klev))
@@ -105 +108 @@
       deallocate(tr_seri)
       deallocate(d_t_dyn,d_q_dyn)
+      deallocate(d_u_dyn,d_v_dyn)
       deallocate(d_t_con,d_q_con)
       deallocate(d_u_con,d_v_con)