Changeset 4389 for LMDZ6/trunk/libf/phylmd/rrtm

Timestamp:

Jan 23, 2023, 11:28:51 AM (3 years 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/rrtm/lwu.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/rrtm/lwu.F90

@@ -76 +76 @@
 #ifdef REPROBUS
 USE chem_rep, ONLY: rch42d, rn2o2d, rcfc112d, rcfc122d, ok_rtime2d
-USE infotrac_phy, ONLY : types_trac
+USE infotrac_phy, ONLY : type_trac
 #endif
 
@@ -321 +321 @@
       PABCU(JL,18,IC)=PABCU(JL,18,ICP1)+ ZUAER(JL,5)    *ZDUC(JL,IC)*ZDIFF
 #ifdef REPROBUS
-        IF (ANY(types_trac=='repr').and. ok_rtime2d) THEN
+        IF (type_trac=='repr'.and. ok_rtime2d) THEN
 !- CH4
       PABCU(JL,19,IC)=PABCU(JL,19,ICP1)&