Changeset 3899 for LMDZ5/branches/Cold_pool_death/libf/phylmd/phys_output_var_mod.F90

Timestamp:

May 14, 2021, 7:12:13 PM (3 years ago)

Author:

lguez

Message:

Old work on cold pool death.

File:

• LMDZ5/branches/Cold_pool_death/libf/phylmd/phys_output_var_mod.F90 (modified) (3 diffs)

LMDZ5/branches/Cold_pool_death/libf/phylmd/phys_output_var_mod.F90

@@ -114 +114 @@
  !$OMP THREADPRIVATE(sens_prec_liq_o, sens_prec_sol_o,lat_prec_liq_o,lat_prec_sol_o)
 
+  REAL, allocatable:: wake_lifetime(:) ! (klon) in s
+  !$OMP THREADPRIVATE(wake_lifetime)
+
+  REAL, allocatable:: wake_final_radius(:), wake_final_height(:) ! (klon) in m
+  !$OMP THREADPRIVATE(wake_final_radius, wake_final_height)
+
 CONTAINS
 
@@ -123 +129 @@
 
     include "clesphys.h"
+
+    include "thermcell.h"
+    ! (for iflag_wake)
 
     !------------------------------------------------
@@ -163 +172 @@
     IF (ok_gwd_rando) allocate(zustr_gwd_rando(klon), zvstr_gwd_rando(klon))
 
+    if (iflag_wake>=1) allocate(wake_lifetime(klon), wake_final_radius(klon), &
+         wake_final_height(klon))
+
   END SUBROUTINE phys_output_var_init