Changeset 2655 for trunk/LMDZ.GENERIC/libf/phystd/callkeys_mod.F90

Timestamp:

Mar 30, 2022, 12:19:20 PM (3 years ago)

Author:

gmilcareck

Message:

Major changes to CIA interpolation:
1) Add contribution from CH4 (H2-CH4,He-CH4,CH4-CH4) ;
2) Add some tests before interpolation for H2, He and CH4 ;
3) Add the possibility to choose between a normal or equilibrium ortho:para
fraction for CIA H2;
4) Change "strictboundH2H2cia" to the generic "strictboundcia" for H2,He,CH4.
It can be added for others CIA (N2,H,CO2...) if you want.

File:

• trunk/LMDZ.GENERIC/libf/phystd/callkeys_mod.F90 (modified) (2 diffs)

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

@@ -14 +14 @@
       logical,save :: strictboundcorrk                                     
 !$OMP THREADPRIVATE(strictboundcorrk)
-      logical,save :: strictboundH2H2cia                                     
-!$OMP THREADPRIVATE(strictboundH2H2cia)
+      logical,save :: strictboundcia                                     
+!$OMP THREADPRIVATE(strictboundcia)
 
       logical,save :: enertest
@@ -76 +76 @@
       integer,save :: startype
       integer,save :: versH2H2cia
+      character(64),save :: H2orthopara_mixture
       integer,save :: nlayaero
-!$OMP THREADPRIVATE(iddist,iaervar,iradia,startype,versH2H2cia,nlayaero)
+!$OMP THREADPRIVATE(iddist,iaervar,iradia,startype,versH2H2cia,H2orthopara_mixture,nlayaero)
       integer,dimension(:),allocatable,save :: aeronlay_choice
 !$OMP THREADPRIVATE(aeronlay_choice)