Changeset 3596 for LMDZ6/trunk/libf

Timestamp:

Nov 4, 2019, 2:25:47 PM (5 years ago)

Author:

jghattas

Message:

Variable v1 est utilisé que par le master mais il est passe en argument dans le CALL scatter2D. Intel 2019 en mode debug fait planter si le variable n'est pas alloué. Cette correction est necessaire sur Jean-Zay en mode debug, avec option read_climoz=1.

File:

• LMDZ6/trunk/libf/phylmd/regr_pr_time_av_m.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/regr_pr_time_av_m.F90

@@ -249 +249 @@
       IF(lO3Tfile) ot1=al*otm+(1.-al)*otp
     END IF
+  ELSE
+    ALLOCATE(v1(0,0,0,0))
   END IF
   !$OMP END MASTER