Changeset 3752 for LMDZ6/branches/Optimisation_LMDZ/libf/phylmd

Timestamp:

Jul 8, 2020, 7:49:07 PM (4 years ago)

Author:

adurocher

Message:

Check if field is active before gather (static check)

Check is still performed at each timestep, but the static check is perfromed (at_current_timestep_arg=.false.). This should have less overhead because the static check is faster.

File:

• LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/iophy.F90 (modified) (2 diffs)

LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/iophy.F90

@@ -1039 +1039 @@
       !$omp barrier
       !$omp master
-      is_active = xios_field_is_active(var%name, at_current_timestep_arg=.true.)
+      is_active = xios_field_is_active(var%name, at_current_timestep_arg=.false.)
       !$omp end master
       !$omp barrier
@@ -1235 +1235 @@
       !$omp barrier
       !$omp master
-      is_active = xios_field_is_active(var%name, at_current_timestep_arg=.true.)
+      is_active = xios_field_is_active(var%name, at_current_timestep_arg=.false.)
       !$omp end master
       !$omp barrier