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

Timestamp:

Oct 12, 2023, 10:30:22 AM (14 months ago)

Author:

slebonnois

Message:

BBT : Update for the titan microphysics and cloud model

File:

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

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

@@ -194 +194 @@
      call getin_p("eff_gz", eff_gz)
      write(*,*) "eff_gz = ", eff_gz
+
+     write(*,*) "Nudging of zonal wind to keep the super-rotation"
+     nudging_u = .true.
+     call getin_p("nudging_u", nudging_u)
+     write(*,*) "nudging_u = ", nudging_u
+
+     write(*,*) "Nudging relaxation time (here ~ 1 titanian year in secondes)"
+     nudging_dt = 9.3e8
+     call getin_p("nudging_dt", nudging_dt)
+     write(*,*) "nudging_dt = ", nudging_dt
+
+     write(*,*) "New optics for clouds"
+     opt4clouds = .true.
+     call getin_p("opt4clouds", opt4clouds)
+     write(*,*) "opt4clouds = ", opt4clouds
+
+     write(*,*) "Cloudy fraction in the Clear / Dark column method"
+     Fcloudy = 1.0
+     call getin_p("Fcloudy", Fcloudy)
+     write(*,*) "Fcloudy = ", Fcloudy
+
+     write(*,*) "Adjustment of single scattering albedo for cloudy dropplet"
+     Fssa = 1.0
+     call getin_p("Fssa", Fssa)
+     write(*,*) "Fssa = ", Fssa
+     
+     write(*,*) "Adjustment of aerosol properties in the VIS"
+     FHVIS = 1.0
+     call getin_p("FHVIS", FHVIS)
+     write(*,*) "FHVIS = ", FHVIS
+
+     write(*,*) "Adjustment of aerosol properties in the IR"
+     FHIR = 1.0
+     call getin_p("FHIR", FHIR)
+     write(*,*) "FHIR = ", FHIR
+
+     write(*,*) "Infinite tank of CH4 ?"
+     resCH4_inf = .false.
+     call getin_p("resCH4_inf", resCH4_inf)
+     write(*,*) "resCH4_inf = ", resCH4_inf
      
      ! sanity check warning