Changeset 4389 for LMDZ6/trunk/libf/phylmd/radiation_AR4.F90

Timestamp:

Jan 23, 2023, 11:28:51 AM (17 months ago)

Author:

dcugnet

Message:

• revert to original "type_trac" management:
  • 4 characters keyword (lmdz, Inca, repr, co2i, into, aeNP, coag
  • no longer a list of component with "|" separator
  • the parsed (with "|" separator) version "types_trac" is no longer used
  • the sole routine using a list of component is readTracFiles
• fix for INCA and CO2Aer modes: setGeneration is now a function, index corrections for had/vadv.

File:

• LMDZ6/trunk/libf/phylmd/radiation_AR4.F90 (modified) (6 diffs)

LMDZ6/trunk/libf/phylmd/radiation_AR4.F90

@@ -479 +479 @@
   USE dimphy
   USE radiation_ar4_param, ONLY: rsun, rray
-  USE infotrac_phy, ONLY: types_trac
+  USE infotrac_phy, ONLY: type_trac
 #ifdef REPROBUS
   USE chem_rep, ONLY: rsuntime, ok_suntime
@@ -571 +571 @@
   ! If running with Reporbus, overwrite default values of RSUN.
   ! Otherwise keep default values from radiation_AR4_param module.
-  IF (ANY(types_trac=='repr')) THEN
+  IF (type_trac=='repr') THEN
 #ifdef REPROBUS
     IF (ok_suntime) THEN
@@ -701 +701 @@
   USE dimphy
   USE radiation_ar4_param, ONLY: rsun, rray
-  USE infotrac_phy, ONLY: types_trac
+  USE infotrac_phy, ONLY: type_trac
 #ifdef REPROBUS
   USE chem_rep, ONLY: rsuntime, ok_suntime
@@ -825 +825 @@
   ! If running with Reporbus, overwrite default values of RSUN.
   ! Otherwise keep default values from radiation_AR4_param module.
-  IF (ANY(types_trac=='repr')) THEN
+  IF (type_trac=='repr') THEN
 #ifdef REPROBUS
     IF (ok_suntime) THEN
@@ -2313 +2313 @@
   USE dimphy
   USE radiation_ar4_param, ONLY: tref, rt1, raer, at, bt, oct
-  USE infotrac_phy, ONLY: types_trac
+  USE infotrac_phy, ONLY: type_trac
 #ifdef REPROBUS
   USE chem_rep, ONLY: rch42d, rn2o2d, rcfc112d, rcfc122d, ok_rtime2d
@@ -2621 +2621 @@
 
 
-        IF (ANY(types_trac=='repr')) THEN
+        IF (type_trac=='repr') THEN
 #ifdef REPROBUS
           IF (ok_rtime2d) THEN