Changeset 6154 for LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

Timestamp:

Apr 3, 2026, 4:44:15 PM (7 days ago)

Author:

asima

Message:

Adding variables cdnc and cdnc_pi in output

File:

• LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -143 +143 @@
          o_swsrfcs_nat, o_swsrfcf_ant, &
          o_swtoacf_zero, o_swsrfcf_zero, &
-         o_topswai, o_solswai, o_toplwai, o_sollwai, o_scdnc, &
+         o_topswai, o_solswai, o_toplwai, o_sollwai, o_scdnc, o_cdnc, o_cdnc_pi, &
          o_cldncl, o_reffclws, o_reffclwc, o_solbnd, o_stratomask,&
          o_cldnvi, o_lcc, o_lcc3d, o_lcc3dcon, &
@@ -466 +466 @@
          dtice_melt, dtice_snow2sic
 !GG
-    USE phys_output_var_mod, ONLY: scdnc, cldncl, reffclwtop, lcc, reffclws, &
+    USE phys_output_var_mod, ONLY: scdnc, cdnc, cdnc_pi, cldncl, reffclwtop, lcc, reffclws, &
          reffclwc, cldnvi, lcc3d, lcc3dcon, lcc3dstra, icc3dcon, icc3dstra
     
@@ -2299 +2299 @@
        IF (flag_aerosol.GT.0.AND.ok_cdnc) THEN
           CALL histwrite_phy(o_scdnc, scdnc)
+          CALL histwrite_phy(o_cdnc, cdnc)
+          CALL histwrite_phy(o_cdnc_pi, cdnc_pi)
           CALL histwrite_phy(o_cldncl, cldncl)
           CALL histwrite_phy(o_reffclws, reffclws)