Changeset 3080 for LMDZ6/trunk/libf/phylmd/phys_state_var_mod.F90

Timestamp:

Nov 19, 2017, 11:38:51 AM (7 years ago)

Author:

Laurent Fairhead

Message:

Adding some missing variables to the start files to get 1+1=2 when
we use the gusts parametrization
LF

File:

• LMDZ6/trunk/libf/phylmd/phys_state_var_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/phys_state_var_mod.F90

@@ -236 +236 @@
       REAL,ALLOCATABLE,SAVE :: wght_th(:,:)
 !$OMP THREADPRIVATE(wght_th)
+      REAL,ALLOCATABLE,SAVE    :: ale_wake(:)
+!$OMP THREADPRIVATE(ale_wake)
+      REAL,ALLOCATABLE,SAVE    :: ale_bl_stat(:)
+!$OMP THREADPRIVATE(ale_bl_stat)
 !
 ! variables de la wake
@@ -527 +531 @@
       ALLOCATE(ftd(klon,klev), fqd(klon,klev))
       ALLOCATE(Ale_bl(klon))
+      ALLOCATE(ale_wake(klon))
+      ALLOCATE(ale_bl_stat(klon))
       ALLOCATE(Alp_bl(klon))
       ALLOCATE(lalim_conv(klon))
@@ -670 +676 @@
       deallocate(ftd, fqd)
       deallocate(Ale_bl, Alp_bl)
+      deallocate(ale_wake)
+      deallocate(ale_bl_stat)
       deallocate(lalim_conv, wght_th)
       deallocate(wake_deltat, wake_deltaq)