Changeset 4744 for LMDZ6/trunk/libf/phylmd/phyredem.F90

Timestamp:

Nov 2, 2023, 10:09:59 AM (8 months ago)

Author:

jyg

Message:

Implementation of a two radii model for wake population dynamics.
It is activated with : iflag_wk_pop_dyn=3

File:

• LMDZ6/trunk/libf/phylmd/phyredem.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/phyredem.F90

@@ -22 +22 @@
                                 v_ancien, clwcon, rnebcon, ratqs, pbl_tke,   &
                                 wake_delta_pbl_tke, zmax0, f0, sig1, w01,    &
-                                wake_deltat, wake_deltaq, wake_s, wake_dens, &
-                                awake_dens, cv_gen,                          &
+                                wake_deltat, wake_deltaq, wake_s, awake_s,   &
+                                wake_dens, awake_dens, cv_gen,               &
                                 wake_cstar,                                  &
                                 wake_pe, wake_fip, fm_therm, entr_therm,     &
@@ -301 +301 @@
 
     CALL put_field(pass,"WAKE_S", "Wake frac. area", wake_s)
+
+    CALL put_field(pass,"AWAKE_S", "Active Wake frac. area", awake_s)
 
     CALL put_field(pass,"WAKE_DENS", "Wake num. /unit area", wake_dens)