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

Timestamp:

Apr 9, 2020, 6:34:53 PM (5 years ago)

Author:

jvatant

Message:

Set the temperature boundaries and step for Planck function integration as input in callphys.def, for more flexibility.

+ User can now set them by tplanckmin, tplanckmax and dtplanck
+ Default values are a wide range 30-1500K
+ Add a sanity check in callcorrk instead of leaving out-of-bounds planckir indexes.

--JVO

File:

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

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

@@ -69 +69 @@
 !$OMP THREADPRIVATE(versH2H2cia,iddist,iaervar,iradia,startype)
 
+      real,save :: tplanckmin
+      real,save :: tplanckmax
+      real,save :: dtplanck
+!$OMP THREADPRIVATE(tplanckmin,tplanckmax,dtplanck)
       real,save :: topdustref
       real,save :: Nmix_co2