Changeset 6154 for LMDZ6/trunk/libf/phylmd/physiq_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/physiq_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -438 +438 @@
          dtice_melt, dtice_snow2sic
          !GG
+    USE phys_local_var_mod, ONLY: zfice, dNovrN, ptconv
     !ASima,EV
     USE phys_local_var_mod,ONLY: mass_solu_aero, mass_solu_aero_pi
-    !
-    USE phys_local_var_mod, ONLY: zfice, dNovrN, ptconv
+    USE phys_output_var_mod, ONLY: cdnc, cdnc_pi    
+    !
     USE phys_output_var_mod, ONLY: scdnc, cldncl, reffclwtop, lcc, reffclws, &
          reffclwc, cldnvi, lcc3d, lcc3dcon, lcc3dstra, icc3dcon, icc3dstra
@@ -1720 +1721 @@
        CALL gwd_ini(klon, klev, pplay, paprs, lunout, prt_level, RCPD, RD, RG, RPI, & 
                     ROMEGA, RA, RKAPPA, RLVTT, ok_strato)
-            ! Test de coherence sur oc_cdnc utilisé uniquement par cloud_optics_prop
+            ! Test de coherence sur ok_cdnc utilisé uniquement par cloud_optics_prop
        IF (iflag_rrtm.EQ.1) THEN
 #ifdef CPP_RRTM
@@ -4238 +4239 @@
             mass_solu_aero, mass_solu_aero_pi, &
             cldtaupi, distcltop, temp_cltop, re, fl, ref_liq, ref_ice, &
-            ref_liq_pi, ref_ice_pi, scdnc, cldncl, reffclwtop, lcc, reffclws, &
+            ref_liq_pi, ref_ice_pi, scdnc, cdnc, cdnc_pi, cldncl, reffclwtop, lcc, reffclws, &
             reffclwc, cldnvi, lcc3d, lcc3dcon, lcc3dstra, icc3dcon, icc3dstra,  &
             zfice, dNovrN, ptconv, rnebcon, clwcon)