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

Timestamp:

Apr 13, 2017, 7:32:24 PM (7 years ago)

Author:

jyg

Message:

Bug fix concerning iflag_wake_tend=1.

File:

• LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -251 +251 @@
       REAL,ALLOCATABLE,SAVE,DIMENSION(:)            :: ale_wake, alp_wake
 !$OMP THREADPRIVATE(ale_wake, alp_wake)           
-      REAL,ALLOCATABLE,SAVE,DIMENSION(:)            :: wake_h,wake_k
+!!jyg!      REAL,ALLOCATABLE,SAVE,DIMENSION(:)            :: wake_h,wake_k
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:)            :: wake_h
+      INTEGER,ALLOCATABLE,SAVE,DIMENSION(:)         :: wake_k
 !$OMP THREADPRIVATE(wake_h,wake_k)                       
     REAL,ALLOCATABLE,SAVE,DIMENSION(:,:)            :: wake_omg