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

Timestamp:

Dec 4, 2019, 7:29:38 PM (5 years ago)

Author:

abierjon

Message:

Mars GCM:
Add the instantaneous scavenging by CO2 of dust, ccn and water ice in co2condens_mod. It can be activated or deactivated with the new flag "scavco2cond" (=false by default). Expected to be replaced by the CO2 clouds microphysics in the future.
AB

File:

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

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

@@ -45 +45 @@
       use datafile_mod, only: datadir
       use calchim_mod, only: ichemistry
-
+      use co2condens_mod, only: scavco2cond
+      
       IMPLICIT NONE
       include "callkeys.h"
@@ -661 +662 @@
         endif
 
+! Instantaneous scavenging by CO2
+! -> expected to be replaced by scavenging with microphysics (flag scavenging) one day
+        write(*,*)"Dust scavenging by instantaneous CO2 snowfall ?"
+        scavco2cond=.false.      ! default value
+        call getin("scavco2cond",scavco2cond)
+        write(*,*)" scavco2cond = ",scavco2cond
+! Test of incompatibility:
+! if scavco2cond is used, then dustbin should be > 0
+        if (scavco2cond.and.(dustbin.lt.1))then
+           print*,'if scavco2cond is used, then dustbin should be > 0'
+           stop
+        endif
+! if co2clouds is used, then there is no need for scavco2cond
+        if (co2clouds.and.scavco2cond) then
+           print*,''
+           print*,'----------------WARNING-----------------'
+           print*,'     microphys scavenging is used so    '
+           print*,'        no need for scavco2cond !!!     '
+           print*,'----------------WARNING-----------------'
+           print*,''
+           stop
+        endif
+        
 ! Test of incompatibility: