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

Timestamp:

Jan 19, 2017, 2:46:53 PM (8 years ago)

Author:

jvatant

Message:

Modifications to custom radiative transfer to Titan
+ Enables an altitude dependant gfrac for CIA computations

-> many radical changes in su_gases and co ..
-> read vertical CH4 profile with call_profilgases
-> Now you need a 'profile.def' that I will add in the deftank

+ Added interpolate CIA routines for CH4
+ Added temporary mean aerosol profile opacity routine (disr_haze)

File:

• trunk/LMDZ.TITAN/libf/phytitan/inifis_mod.F90 (modified) (3 diffs)

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

@@ -439 +439 @@
 
 !=================================
-
-     write(*,*)"What is the saturation % of the variable species?"
-     satval=0.8
-     call getin_p("satval",satval)
-     write(*,*)" satval = ",satval
 
      write(*,*) "Gravitationnal sedimentation ?"
@@ -477 +472 @@
 !           mugaz=8.314*1000./pr
      endif ! of if (force_cpp)
-     call su_gases
+     
+     
+     call su_gases(nlayer,tracer)     
      call calc_cpp_mugaz
-
+     
+     
      PRINT*,'--------------------------------------------'
      PRINT*
@@ -519 +517 @@
   ENDDO
 
-  ! initialize variables in radinc_h
   call ini_radinc_h(nlayer)