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

Timestamp:

Feb 24, 2020, 6:55:50 PM (5 years ago)

Author:

jvatant

Message:

+ Add a 'versH2H2cia' int key in callphys that allows two values (2011 or 2018) to

deal with updated HITRAN file (for interpolateH2H2.F90) from 2018 that includes the
H2H2 dimer from Fletcher et al. 2018, useful for giant planets.
Retrocompatibility is ok, default value to 2011.

--JVO

File:

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

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

@@ -288 +288 @@
      write(*,*) " continuum = ",continuum
  
+     write(*,*) "version for H2H2 CIA file ?"
+     versH2H2cia=2011 ! default value (should be 2018 but retrocompatibility first)
+     call getin_p("versH2H2cia",versH2H2cia)
+     write(*,*) " versH2H2cia = ",versH2H2cia
+     ! Sanity check
+     if (versH2H2cia.ne.2011 .and. versH2H2cia.ne.2018) then
+        print*,'Error: Choose a correct value (2011 or 2018) for versH2H2cia !'
+        call abort
+     endif 
+
      write(*,*) "call turbulent vertical diffusion ?"
      calldifv=.true. ! default value