Changeset 1897 for trunk/LMDZ.TITAN/libf/phytitan/inifis_mod.F90

Timestamp:

Jan 24, 2018, 10:24:24 PM (7 years ago)

Author:

jvatant

Message:

Making Titan's hazy again - part II
+ Major updates of J.Burgalat YAMMS library and optical coupling, including :
++ Added the routines for haze optics inside YAMMS
++ Calling rad. transf. with interactive haze is plugged
in but should stay unactive as long as the microphysics is
in test phase : cf "uncoupl_optic_haze" flag : true for now !
++ Also some sanity checks for negative tendencies and
some others upkeep of YAMMS model
+ Also added a temporary CPP key USE_QTEST in physiq_mod
that enables to have microphysical tendencies separated
from dynamics for debugging and test phases
-- JVO and JB

File:

• trunk/LMDZ.TITAN/libf/phytitan/inifis_mod.F90 (modified) (1 diff)

trunk/LMDZ.TITAN/libf/phytitan/inifis_mod.F90

@@ -377 +377 @@
      endif
 
-     write(*,*) "Fractal dimension ?"
-     df_mufi=2.0 ! default value
-     call getin_p("df_mufi",df_mufi)
-     write(*,*)" df_mufi = ",df_mufi
-
-     write(*,*) "Monomer radius (m) ?"
-     rm_mufi=6.66e-08 ! default value
-     call getin_p("rm_mufi",rm_mufi)
-     write(*,*)" rm_mufi = ",rm_mufi
-
-     write(*,*) "Aerosol density (kg.m-3)?"
-     rho_aer_mufi=1.e3 ! default value
-     call getin_p("rho_aer_mufi",rho_aer_mufi)
-     write(*,*)" rho_aer_mufi = ",rho_aer_mufi
+     write(*,*) "Disable the coupling of microphysics within rad. transf. ?"
+     write(*,*) "If disabled we will assume a planetwide vert. profile of extinction ..."
+     uncoupl_optic_haze=.true. ! default value - true as long as the microphysics is bugged
+     call getin_p("uncoupl_optic_haze",uncoupl_optic_haze)
+     write(*,*)" uncoupl_optic_haze = ",uncoupl_optic_haze
 
      write(*,*) "Pressure level of aer. production (Pa) ?"