Changeset 4064 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Feb 11, 2026, 3:49:30 PM (2 weeks ago)
Author:
jmauxion
Message:

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

Location:
trunk/LMDZ.MARS/libf/phymars
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r4063 r4064  
    6565!$OMP THREADPRIVATE(topflows)
    6666logical,save :: dust_coagulation ! coagulation of dust particles
    67 !$OMP THREADPRIVATE(coagulation)
     67!$OMP THREADPRIVATE(dust_coagulation)
    6868integer,save :: coal_kg ! mode for coalescence 0,1, or 2
    6969!$OMP THREADPRIVATE(coal_kg)

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

    r4063 r4064  
    2121logical,save :: dust_coag_kernel_de !                 diffusion enhancement
    2222logical,save :: dust_coag_kernel_ti ! Not implemented yet.
    23 !$OMP THREADPRIVATE(full_coag_equations,dust_coag_kernel_b,dust_coag_kernel_g,dust_coag_kernel_de,dust_coag_kernel_ti,coal_coeff_mode)
     23!$OMP THREADPRIVATE(full_coag_equations,dust_coag_kernel_b,dust_coag_kernel_g,dust_coag_kernel_de,dust_coag_kernel_ti)
    2424integer,save :: coal_coeff_mode ! Flag to choose how to calculate coalescence coefficient
    2525!$OMP THREADPRIVATE(coal_coeff_mode)
Note: See TracChangeset for help on using the changeset viewer.