Changeset 2607 for LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

Timestamp:

Jul 29, 2016, 6:56:11 PM (8 years ago)

Author:

jyg

Message:

Adding an item forgotten in the previous commit

File:

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

LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -318 +318 @@
 !$OMP THREADPRIVATE(pbl_tke_input)
 ! Entree supplementaire Thermiques :
-      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: t_therm, q_therm
-!$OMP THREADPRIVATE(t_therm, q_therm)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: t_therm, q_therm, u_therm, v_therm
+!$OMP THREADPRIVATE(t_therm, q_therm, u_therm, v_therm)
       REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: cdragh_x, cdragh_w
 !$OMP THREADPRIVATE(cdragh_x, cdragh_w)
@@ -563 +563 @@
       ALLOCATE(undi_tke(klon,klev), wake_tke(klon,klev))
       ALLOCATE(pbl_tke_input(klon,klev+1,nbsrf))
-      ALLOCATE(t_therm(klon,klev), q_therm(klon,klev))
+      ALLOCATE(t_therm(klon,klev), q_therm(klon,klev),u_therm(klon,klev), v_therm(klon,klev))
       ALLOCATE(cdragh_x(klon), cdragh_w(klon))
       ALLOCATE(cdragm_x(klon), cdragm_w(klon))
@@ -772 +772 @@
       DEALLOCATE(undi_tke, wake_tke)
       DEALLOCATE(pbl_tke_input)
-      DEALLOCATE(t_therm, q_therm)
+      DEALLOCATE(t_therm, q_therm, u_therm, v_therm)
       DEALLOCATE(cdragh_x, cdragh_w)
       DEALLOCATE(cdragm_x, cdragm_w)