Changeset 2732

Timestamp:

Dec 15, 2016, 8:02:31 AM (8 years ago)

Author:

fhourdin

Message:

Ajout de la variable wake_k dans phys_local_var_mod en complement de la
commission precedente.

File:

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

LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -255 +255 @@
       REAL,ALLOCATABLE,SAVE,DIMENSION(:)            :: ale_wake, alp_wake
 !$OMP THREADPRIVATE(ale_wake, alp_wake)           
-      REAL,ALLOCATABLE,SAVE,DIMENSION(:)            :: wake_h
-!$OMP THREADPRIVATE(wake_h)                       
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:)            :: wake_h,wake_k
+!$OMP THREADPRIVATE(wake_h,wake_k)                       
     REAL,ALLOCATABLE,SAVE,DIMENSION(:,:)            :: wake_omg
 !$OMP THREADPRIVATE(wake_omg)                     
@@ -614 +614 @@
 !!          Wake variables
       ALLOCATE(ale_wake(klon), alp_wake(klon))
-      ALLOCATE(wake_h(klon))
+      ALLOCATE(wake_h(klon),wake_k(klon))
       ALLOCATE(wake_omg(klon, klev))
       ALLOCATE(d_deltat_wk(klon, klev), d_deltaq_wk(klon, klev))
@@ -867 +867 @@
 !
       DEALLOCATE(ale_wake, alp_wake)
-      DEALLOCATE(wake_h)
+      DEALLOCATE(wake_h,wake_k)
       DEALLOCATE(wake_omg)
       DEALLOCATE(d_deltat_wk, d_deltaq_wk)