Changeset 2062 for trunk/LMDZ.GENERIC/libf/phystd/inifis_mod.F90

Timestamp:

Jan 9, 2019, 4:52:32 PM (6 years ago)

Author:

aboissinot

Message:

Add keys (optprop_back2lay_vis, optprop_back2lay_ir) to set aeroback2lay aerosol optprop ir and visible files names
and solve the name conflict between Saturn and Jupiter.
Default values are the previously hard coded values, respectively 'optprop_saturn_vis_n20.dat' and 'optprop_saturn_ir_n20'.

File:

• trunk/LMDZ.GENERIC/libf/phystd/inifis_mod.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/inifis_mod.F90

@@ -553 +553 @@
      write(*,*)" obs_tau_col_strato = ",obs_tau_col_strato
 
+     write(*,*)"TWOLAY AEROSOL: optprop_back2lay_vis?"
+     optprop_back2lay_vis = 'optprop_saturn_vis_n20.dat'
+     call getin_p("optprop_back2lay_vis",optprop_back2lay_vis)
+     write(*,*)" optprop_back2lay_vis = ",optprop_back2lay_vis
+
+     write(*,*)"TWOLAY AEROSOL: optprop_back2lay_ir?"
+     optprop_back2lay_ir = 'optprop_saturn_ir_n20.dat'
+     call getin_p("optprop_back2lay_ir",optprop_back2lay_ir)
+     write(*,*)" optprop_back2lay_ir = ",optprop_back2lay_ir
+     
      write(*,*)"TWOLAY AEROSOL: pres_bottom_tropo? in pa"
      pres_bottom_tropo=66000.0