Changeset 2584

Timestamp:

Jul 1, 2016, 2:43:35 PM (8 years ago)

Author:

Ehouarn Millour

Message:

OpenMP bug: lread_inca should be initialized for all threads.
EM

File:

• LMDZ5/trunk/libf/dyn3dmem/dynredem_loc.F90 (modified) (1 diff)

LMDZ5/trunk/libf/dyn3dmem/dynredem_loc.F90

@@ -235 +235 @@
 
 !--- Tracers in file "start_trac.nc" (added by Anne)
+  lread_inca=.FALSE.
 !$OMP MASTER
-  lread_inca=.FALSE.; fil="start_trac.nc"
+  fil="start_trac.nc"
   IF(type_trac=='inca') INQUIRE(FILE=fil,EXIST=lread_inca)
   IF(lread_inca) CALL err(NF90_OPEN(fil,NF90_NOWRITE,nid_trac),"open")