Changeset 4170 for LMDZ6/trunk/libf/phylmd/radlwsw_m.F90

Timestamp:

Jun 16, 2022, 8:16:59 PM (2 years ago)

Author:

dcugnet

Message:

The variable "types_trac" is the equivalent of "type_trac" in case multiple sections must be read
and used in "tracer.def" file.
Tests on the "type_trac" were replaced with tests on the vector "types_trac".
Most of the time, there are two components: 'lmdz' and a second one. The later has priority on 'lmdz'
and must be used for the tests. For more components, care must be taken to execute specific parts
of the code on the right tracers ; the tracers(:)%component has been created in that respect.

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 : type_trac
+  USE infotrac_phy, ONLY : types_trac
   USE write_field_phy
 
@@ -550 +550 @@
   PSCT = solaire/zdist/zdist
 
-  IF (type_trac == 'repr') THEN
+  IF (ANY(types_trac == 'repr')) THEN
 #ifdef REPROBUS
     IF (iflag_rrtm==0) THEN
@@ -634 +634 @@
     ENDDO
 
-    IF (type_trac == 'repr') THEN
+    IF (ANY(types_trac == 'repr')) THEN
 #ifdef REPROBUS
        ndimozon = size(wo, 3)