Changeset 3208 for LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

Timestamp:

Feb 16, 2018, 12:42:18 PM (6 years ago)

Author:

jyg

Message:

Implementation of a first crude model of the
dynamic of wake population.

File:

• LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90 (modified) (6 diffs)

LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -277 +277 @@
     REAL, SAVE, ALLOCATABLE,DIMENSION(:,:)          :: d_deltat_wk, d_deltaq_wk
 !$OMP THREADPRIVATE(d_deltat_wk, d_deltaq_wk)
-      REAL,ALLOCATABLE,SAVE,DIMENSION(:)            :: d_s_wk, d_dens_wk
-!$OMP THREADPRIVATE(d_s_wk, d_dens_wk)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:)            :: d_s_wk, d_dens_a_wk, d_dens_wk
+!$OMP THREADPRIVATE(d_s_wk, d_dens_a_wk, d_dens_wk)
     REAL, SAVE, ALLOCATABLE,DIMENSION(:,:)          :: d_deltat_wk_gw, d_deltaq_wk_gw
 !$OMP THREADPRIVATE(d_deltat_wk_gw, d_deltaq_wk_gw)
@@ -383 +383 @@
       REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: proba_notrig, random_notrig
 !$OMP THREADPRIVATE(proba_notrig, random_notrig)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: cv_gen
+!$OMP THREADPRIVATE(cv_gen)
       REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: fsolsw, wfbils, wfbilo
 !$OMP THREADPRIVATE(fsolsw, wfbils, wfbilo)
@@ -677 +679 @@
       ALLOCATE(wake_omg(klon, klev))
       ALLOCATE(d_deltat_wk(klon, klev), d_deltaq_wk(klon, klev))
-      ALLOCATE(d_s_wk(klon), d_dens_wk(klon))
+      ALLOCATE(d_s_wk(klon), d_dens_a_wk(klon), d_dens_wk(klon))
       ALLOCATE(d_deltat_wk_gw(klon, klev), d_deltaq_wk_gw(klon, klev))
       ALLOCATE(d_deltat_vdf(klon, klev), d_deltaq_vdf(klon, klev))
@@ -735 +737 @@
       ALLOCATE(alp_bl_stat(klon), n2(klon), s2(klon))
       ALLOCATE(proba_notrig(klon), random_notrig(klon))
+      ALLOCATE(cv_gen(klon))
 
       ALLOCATE(dnwd0(klon, klev))
@@ -968 +971 @@
       DEALLOCATE(wake_omg)
       DEALLOCATE(d_deltat_wk, d_deltaq_wk)
-      DEALLOCATE(d_s_wk, d_dens_wk)
+      DEALLOCATE(d_s_wk, d_dens_a_wk, d_dens_wk)
       DEALLOCATE(d_deltat_wk_gw, d_deltaq_wk_gw)
       DEALLOCATE(d_deltat_vdf, d_deltaq_vdf)
@@ -1023 +1026 @@
       DEALLOCATE(alp_bl_stat, n2, s2)
       DEALLOCATE(proba_notrig, random_notrig)
+      DEALLOCATE(cv_gen)
 
       DEALLOCATE(dnwd0)