Changeset 3080 for LMDZ6/trunk/libf/phylmd/phys_local_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_local_var_mod.F90 (modified) (6 diffs)

LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -261 +261 @@
 !!
 !!         Wake variables
-      REAL,ALLOCATABLE,SAVE,DIMENSION(:)            :: ale_wake, alp_wake
-!$OMP THREADPRIVATE(ale_wake, alp_wake)           
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:)            :: alp_wake
+!$OMP THREADPRIVATE(alp_wake)           
 !!jyg!      REAL,ALLOCATABLE,SAVE,DIMENSION(:)            :: wake_h,wake_k
       REAL,ALLOCATABLE,SAVE,DIMENSION(:)            :: wake_h
@@ -372 +372 @@
       REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: weak_inversion
 !$OMP THREADPRIVATE(weak_inversion)
-      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: ale_bl_stat,alp_bl_conv,alp_bl_det
-!$OMP THREADPRIVATE(ale_bl_stat,alp_bl_conv,alp_bl_det)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: alp_bl_conv,alp_bl_det
+!$OMP THREADPRIVATE(alp_bl_conv,alp_bl_det)
       REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: alp_bl_fluct_m,alp_bl_fluct_tke
 !$OMP THREADPRIVATE(alp_bl_fluct_m,alp_bl_fluct_tke)
@@ -644 +644 @@
 !!
 !!          Wake variables
-      ALLOCATE(ale_wake(klon), alp_wake(klon))
-      ale_wake(:)=0.
+      ALLOCATE(alp_wake(klon))
       ALLOCATE(wake_h(klon),wake_k(klon))
       ALLOCATE(wake_omg(klon, klev))
@@ -702 +701 @@
       ALLOCATE(t2m_min_mon(klon), t2m_max_mon(klon))
       ALLOCATE(sens(klon), flwp(klon), fiwp(klon))
-      ALLOCATE(ale_bl_stat(klon), alp_bl_conv(klon), alp_bl_det(klon))
+      ALLOCATE(alp_bl_conv(klon), alp_bl_det(klon))
       ALLOCATE(alp_bl_fluct_m(klon), alp_bl_fluct_tke(klon))
       ALLOCATE(alp_bl_stat(klon), n2(klon), s2(klon))
@@ -918 +917 @@
       DEALLOCATE(ptstar, pt0, slp)
 !
-      DEALLOCATE(ale_wake, alp_wake)
+      DEALLOCATE(alp_wake)
       DEALLOCATE(wake_h,wake_k)
       DEALLOCATE(wake_omg)
@@ -972 +971 @@
       DEALLOCATE(t2m_min_mon, t2m_max_mon)
       DEALLOCATE(sens, flwp, fiwp)
-      DEALLOCATE(ale_bl_stat,alp_bl_conv,alp_bl_det)
+      DEALLOCATE(alp_bl_conv,alp_bl_det)
       DEALLOCATE(alp_bl_fluct_m,alp_bl_fluct_tke)
       DEALLOCATE(alp_bl_stat, n2, s2)