Changeset 4170 for LMDZ6/trunk/libf/dyn3dmem/leapfrog_loc.F

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/dyn3dmem/leapfrog_loc.F (modified) (4 diffs)

LMDZ6/trunk/libf/dyn3dmem/leapfrog_loc.F

@@ -1519 +1519 @@
 
 #ifdef INCA
-         if (type_trac == 'inca' .OR. type_trac == 'inco') then 
+         if (ANY(types_trac == 'inca') .OR. ANY(types_trac == 'inco')) then 
             call finalize_inca
          endif
 #endif
 #ifdef REPROBUS
-         if (type_trac == 'repr') then
+         if (ANY(types_trac == 'repr')) then
          call finalize_reprobus
          endif
@@ -1572 +1572 @@
 
 #ifdef INCA
-              if (type_trac == 'inca' .OR. type_trac == 'inco') then 
+              if (ANY(types_trac == 'inca') .OR. ANY(types_trac == 'inco')) then 
                  call finalize_inca
               endif
 #endif
 #ifdef REPROBUS
-              if (type_trac == 'repr') then
+              if (ANY(types_trac == 'repr')) then
          call finalize_reprobus
               endif
@@ -1743 +1743 @@
 
 #ifdef INCA
-                 if (type_trac == 'inca' .OR. type_trac == 'inco') then 
+                 if (ANY(types_trac == 'inca') .OR. ANY(types_trac == 'inco')) then 
                     call finalize_inca
                  endif
 #endif
 #ifdef REPROBUS
-                 if (type_trac == 'repr') then
+                 if (ANY(types_trac == 'repr')) then
          call finalize_reprobus
                  endif
@@ -1854 +1854 @@
 
 #ifdef INCA
-      if (type_trac == 'inca' .OR. type_trac == 'inco') then 
+      if (ANY(types_trac == 'inca') .OR. ANY(types_trac == 'inco')) then 
          call finalize_inca
       endif
 #endif
 #ifdef REPROBUS
-      if (type_trac == 'repr') then
+      if (ANY(types_trac == 'repr')) then
          call finalize_reprobus
       endif