Changeset 1959 for trunk/LMDZ.COMMON/libf/dyn3dpar/integrd_p.F

Timestamp:

Jul 3, 2018, 2:43:42 PM (6 years ago)

Author:

emillour

Message:

Common (parallel) dynamics:
Add some initializations of global arrays. This is not a bug fix, strictly
speaking, as results are unchanged. But in some cases computations extend
into halos and these cases are identified as errors with recent versions
of ifort (2018) with the -init=arrays,snan debugging option.
EM

File:

• trunk/LMDZ.COMMON/libf/dyn3dpar/integrd_p.F (modified) (1 diff)

trunk/LMDZ.COMMON/libf/dyn3dpar/integrd_p.F

@@ -76 +76 @@
       EXTERNAL SSUM
       INTEGER ijb,ije,jjb,jje
-      REAL,SAVE :: ps(ip1jmp1)
+      REAL,SAVE :: ps(ip1jmp1)=0
       LOGICAL :: checksum
       INTEGER :: stop_it