Changeset 5807 for LMDZ6/trunk/libf

Timestamp:

Sep 12, 2025, 4:50:27 PM (2 months ago)

Author:

fhourdin

Message:

Adding wake_cstar in outputs

Location:

LMDZ6/trunk/libf/phylmd

Files:

• phys_output_ctrlout_mod.F90 (modified) (1 diff)
• phys_output_write_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/phys_output_ctrlout_mod.F90

@@ -2234 +2234 @@
   TYPE(ctrl_out), SAVE :: o_wake_s = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11, 11/), &
     'wake_s', 'wake_s', '-', (/ ('', i=1, 10) /))
+  TYPE(ctrl_out), SAVE :: o_wake_cstar = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11, 11/), &
+    'wake_cstar', 'wake_cstar', '-', (/ ('', i=1, 10) /))
   TYPE(ctrl_out), SAVE :: o_wake_deltat = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11, 11/), &
     'wake_deltat', 'wake_deltat', ' ', (/ ('', i=1, 10) /))

LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -101 +101 @@
          o_kh         , o_kh_x       , o_kh_w       , &
          o_ale, o_alp, o_cin, o_WAPE, o_wake_h, o_cv_gen, o_wake_dens, &
-         o_wake_s, o_wake_deltat, o_wake_deltaq, &
+         o_wake_s, o_wake_deltat, o_wake_deltaq, o_wake_cstar, &
          o_wake_omg, o_dtwak, o_dqwak, o_dqwak2d, o_Vprecip, &
          o_qtaa, o_Clwaa, &
@@ -319 +319 @@
          wstar, cape, ema_pcb, ema_pct, &
          ema_cbmf, Mipsh, Ma, fm_therm, ale_bl, alp_bl, ale, &
-         alp, cin, wake_pe, wake_dens, cv_gen, wake_s, wake_deltat, &
+         alp, cin, wake_pe, wake_dens, cv_gen, wake_s, wake_deltat, wake_cstar, &
          wake_deltaq, ftd, fqd, ale_bl_trig, albsol1, &
          ale_wake, ale_bl_stat, &
@@ -1882 +1882 @@
              CALL histwrite_phy(o_wake_dens, wake_dens)
              CALL histwrite_phy(o_wake_s, wake_s)
+             CALL histwrite_phy(o_wake_cstar, wake_cstar)
              CALL histwrite_phy(o_wake_deltat, wake_deltat)
              CALL histwrite_phy(o_wake_deltaq, wake_deltaq)