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

Timestamp:

Feb 10, 2026, 9:47:13 PM (4 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/physiq_mod.F (modified) (6 diffs)

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

@@ -25 +25 @@
       use calcstormfract_mod, only: calcstormfract
       use topmons_mod, only: topmons,topmons_setup
-      use coagulation_mod, only: coagul_main,coagul_init
+      use dust_coagulation_mod, only: dust_coagulation_main,
+     &                                dust_coagulation_init
       use nltecool_mod, only: nltecool
       use nlte_tcool_mod, only: nlte_tcool
@@ -150 +151 @@
       use callkeys_mod, only: photochem, callthermos
       use callkeys_mod, only: startphy_file
-      use callkeys_mod, only: coagulation
+      use callkeys_mod, only: dust_coagulation
 
       IMPLICIT NONE
@@ -794 +795 @@
         if (topflows) call topmons_setup(ngrid)
 
-c        Initialize coagulation parameters
+c        Initialize dust coagulation parameters
 c        ~~~~~~~~~~~~~~~
-        if (coagulation) call coagul_init()
+        if (dust_coagulation) call dust_coagulation_init()
 
 c        Parameterization of the ATKE routine
@@ -1455 +1456 @@
 c     3.3 Dust coagulation
 c    -------------------------------------------
-      IF (coagulation) THEN
+      IF (dust_coagulation) THEN
          pdqcoag(:,:,:)=0.
-         CALL coagul_main(ngrid,nlayer,nq,ptime,ptimestep,
+         CALL dust_coagulation_main(ngrid,nlayer,nq,ptime,ptimestep,
      &                     pq,pdq,pt,pdt,pplay,pplev,
      &                     pdqcoag)
@@ -1496 +1497 @@
          ENDIF ! end of if (rdstorm)
 
-      ENDIF ! end of if (coagulation)
+      ENDIF ! end of if (dust coagulation)
 
 c     3.4 Dust injection from the surface
@@ -3791 +3792 @@
            endif ! (topflows)
 
-           if (coagulation) then
+           if (dust_coagulation) then
              call write_output('zdqcoag_dustm',
-     &                     'coagulation tendency',
+     &                     'dust coagulation tendency',
      &                     'kg kg-1 s-1',pdqcoag(:,:,igcm_dust_mass))
              call write_output('zdqcoag_dustn',
-     &                     'coagulation tendency',
+     &                     'dust coagulation tendency',
      &                     'nbp kg-1 s-1',pdqcoag(:,:,igcm_dust_number))
            endif