Changeset 2245 for trunk/LMDZ.TITAN/libf/phytitan/callkeys_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/callkeys_mod.F90 (modified) (1 diff)

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

@@ -48 +48 @@
       integer,save :: ichim
 !$OMP THREADPRIVATE(ichim)
+      integer,save :: versH2H2cia
       integer,save :: iddist
       integer,save :: iradia
       integer,save :: startype
-!$OMP THREADPRIVATE(iddist,iradia,startype)
+!$OMP THREADPRIVATE(versH2H2cia,iddist,iradia,startype)
       
       real,save :: p_prod, tx_prod, rc_prod