Changeset 1250 for LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/leapfrog_p.F

Timestamp:

Oct 29, 2009, 2:55:23 PM (15 years ago)

Author:

yann meurdesoif

Message:

Optimisations SX9

YM

File:

• LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/leapfrog_p.F (modified) (1 diff)

LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/leapfrog_p.F

@@ -327 +327 @@
 c$OMP MASTER
       ItCount=ItCount+1
-      if (MOD(ItCount,1)==1) then
+      if (MOD(ItCount,12)==0) then
         debug=.true.
       else