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

Timestamp:

Jan 30, 2017, 11:52:09 AM (8 years ago)

Author:

jaudouard

Message:

Modification of co2 clouds microtimestep and addition of a meteoritic flux of dust

File:

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

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

@@ -44 +44 @@
       use dimradmars_mod, only: naerkind, name_iaer,
      &                      ini_scatterers,tauvis
+      USE meteoriticflux_mod !meteo_flux_mass,meteo_flux_number,alt_meteo
 
       IMPLICIT NONE
@@ -711 +712 @@
          write(*,*) " euveff = ", euveff
 
+        !Meteoritic flux of dust : number, mass and altitude
+        !dust tracers are incremented by thoses values in co2cloud.F
+        ! Thus only apply if co2clouds=.true. in callphys.def
+        meteo_flux_mass=0.
+        call getin("meteo_flux_mass",meteo_flux_mass)
+        meteo_flux_number=0.
+        call getin("meteo_flux_number",meteo_flux_number)
+        meteo_alt=5.
+        call getin("meteo_alt",meteo_alt)
+        WRITE(*,*) ""
+        WRITE(*,*) "meteoritic flux of dust"
+        WRITE(*,*) "dust mass = ",meteo_flux_mass
+        WRITE(*,*) "dust number = ",meteo_flux_number
+        WRITE(*,*) "at altitude = ",meteo_alt
+         
+
          if (.not.callthermos) then
            if (thermoswater) then