Changeset 4063 for trunk/LMDZ.MARS/libf/phymars/conf_phys.F

Timestamp:

Feb 10, 2026, 9:47:13 PM (6 days ago)

Author:

tbertrand

Message:

MARS PCM:
dust coagulation : just renaming some flags so that it is more human readable, following suggestion by Grand Manitou Ehouarn
TB

File:

• trunk/LMDZ.MARS/libf/phymars/conf_phys.F (modified) (3 diffs)

trunk/LMDZ.MARS/libf/phymars/conf_phys.F

@@ -46 +46 @@
      &                     ads_massive_ice
       use nonoro_gwd_mix_mod, only: calljliu_gwimix
+      use dust_coagulation_mod, only: dust_coag_kernel_b,
+     &      dust_coag_kernel_g,dust_coag_kernel_de,dust_coag_kernel_ti,
+     &      coal_coeff_mode,full_coag_equations
       use lwxn_mod, only: lwxn_linear, lwxn_alphan, lwxn_ncouche
       use callkeys_mod, only: startphy_file, activice, activeco2ice,
@@ -72 +75 @@
      &                        tf_injection, ti_injection, thermochem,
      &                        thermoswater, tituscap, tke_heat_flux,
-     &                        topflows, water, coagulation, kernel_b,
-     &                        kernel_g,kernel_de,kernel_ti,coal_kg,
-     &                        fullcoag
+     &                        topflows, water, dust_coagulation
       use write_output_mod, only: output_diagfi
 
@@ -389 +390 @@
 ! dust particle coagulation
          write(*,*)"call coagulation of dust"
-         coagulation=.false. ! default value
-         call getin_p("coagulation",coagulation)
-         write(*,*)" coagulation = ",coagulation
-         fullcoag=.false. ! default value 
-         kernel_b=.true. ! default value (if coagulation=true)
-         kernel_g=.false. ! default value
-         kernel_de=.false. ! default value
-         kernel_ti=.false. ! default value
-         coal_kg=0 ! default value
-         if (coagulation) then
-           write(*,*)" coagulation fullcoag and mode= ",fullcoag,coal_kg
-           write(*,*)" coagulation kernels= ",kernel_b,kernel_g,
-     &                                        kernel_de,kernel_ti
+         dust_coagulation=.false. ! default value
+         call getin_p("dust_coagulation",dust_coagulation)
+         write(*,*)" dust_coagulation = ",dust_coagulation
+         full_coag_equations=.false. ! default value 
+         dust_coag_kernel_b=.true. ! default value (if coagulation=true)
+         dust_coag_kernel_g=.false. ! default value
+         dust_coag_kernel_de=.false. ! default value
+         dust_coag_kernel_ti=.false. ! default value
+         coal_coeff_mode=0 ! default value
+         if (dust_coagulation) then
+           write(*,*)" coagulation full_coag_equations: ",
+     &                                            full_coag_equations
+           write(*,*)" coagulation coal_coeff_mode: ",coal_coeff_mode
+           write(*,*)" coagulation kernels= ",dust_coag_kernel_b,
+     &     dust_coag_kernel_g,dust_coag_kernel_de,dust_coag_kernel_ti
          endif