Changeset 4389 for LMDZ6/trunk/libf/phylmd/radlwsw_m.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/radlwsw_m.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/radlwsw_m.F90

@@ -48 +48 @@
   USE DIMPHY
   USE assert_m, ONLY : assert
-  USE infotrac_phy, ONLY : types_trac
+  USE infotrac_phy, ONLY : type_trac
   USE write_field_phy
 
@@ -550 +550 @@
   PSCT = solaire/zdist/zdist
 
-  IF (ANY(types_trac == 'repr')) THEN
+  IF (type_trac == 'repr') THEN
 #ifdef REPROBUS
     IF (iflag_rrtm==0) THEN
@@ -634 +634 @@
     ENDDO
 
-    IF (ANY(types_trac == 'repr')) THEN
+    IF (type_trac == 'repr') THEN
 #ifdef REPROBUS
        ndimozon = size(wo, 3)