Changeset 4064 for trunk

Timestamp:

Feb 11, 2026, 3:49:30 PM (2 days ago)

Author:

jmauxion

Message:

Mars PCM:
Fix some typos in callkeys_mod.F90 and dust_coagulation_mod.F90.
JM

Location:

trunk/LMDZ.MARS

Files:

• changelog.txt (modified) (1 diff)
• libf/phymars/callkeys_mod.F90 (modified) (1 diff)
• libf/phymars/dust_coagulation_mod.F90 (modified) (1 diff)

trunk/LMDZ.MARS/changelog.txt

@@ -5076 +5076 @@
 
 == 10/02/2026 == JM
-Following r4041, the 'albedo_h2o_ice' keyword is ignored by getin. I update to 'albedo_h2o_cap' in all callphys.def of the deftank. WARNING: if your repository is at r4041 or more, you should check your own callphys files.
+Following r4041, the 'albedo_h2o_ice' keyword is ignored by getin. I update to
+'albedo_h2o_cap' in all callphys.def of the deftank. WARNING: if your
+repository is at r4041 or more, you should check your own callphys files.
+
+== 11/02/2026 == JM
+Fix some typos in callkeys_mod.F90 and dust_coagulation_mod.F90.

trunk/LMDZ.MARS/libf/phymars/callkeys_mod.F90

@@ -65 +65 @@
 !$OMP THREADPRIVATE(topflows)
 logical,save :: dust_coagulation ! coagulation of dust particles
-!$OMP THREADPRIVATE(coagulation)
+!$OMP THREADPRIVATE(dust_coagulation)
 integer,save :: coal_kg ! mode for coalescence 0,1, or 2 
 !$OMP THREADPRIVATE(coal_kg)

trunk/LMDZ.MARS/libf/phymars/dust_coagulation_mod.F90

@@ -21 +21 @@
 logical,save :: dust_coag_kernel_de !                 diffusion enhancement
 logical,save :: dust_coag_kernel_ti ! Not implemented yet. 
-!$OMP THREADPRIVATE(full_coag_equations,dust_coag_kernel_b,dust_coag_kernel_g,dust_coag_kernel_de,dust_coag_kernel_ti,coal_coeff_mode) 
+!$OMP THREADPRIVATE(full_coag_equations,dust_coag_kernel_b,dust_coag_kernel_g,dust_coag_kernel_de,dust_coag_kernel_ti) 
 integer,save :: coal_coeff_mode ! Flag to choose how to calculate coalescence coefficient
 !$OMP THREADPRIVATE(coal_coeff_mode)