Changeset 487 for codes/icosagcm/trunk/src/explicit_scheme.f90

Timestamp:

10/12/16 16:11:13 (8 years ago)

Author:

ymipsl

Message:

Bad name for intel simd directives

YM

File:

• codes/icosagcm/trunk/src/explicit_scheme.f90 (modified) (6 diffs)

codes/icosagcm/trunk/src/explicit_scheme.f90

@@ -78 +78 @@
 
                IF (stage==1) THEN ! first stage : save model state in XXm1
-                  !$SIMD
+                  !DIR$ SIMD
                   DO ij=ij_begin,ij_end
                      psm1(ij)=ps(ij)
@@ -85 +85 @@
 
                ! updates are of the form x1 := x0 + tau*f(x1)
-               !$SIMD
+               !DIR$ SIMD
                DO ij=ij_begin,ij_end
                   ps(ij)=psm1(ij)+tau*dps(ij)
@@ -104 +104 @@
             IF (stage==1) THEN ! first stage : save model state in XXm1
                DO l=ll_begin,ll_end
-                  !$SIMD
+                  !DIR$ SIMD
                   DO ij=ij_begin,ij_end
                      massm1(ij,l)=mass(ij,l)
@@ -113 +113 @@
             ! updates are of the form x1 := x0 + tau*f(x1)
             DO l=ll_begin,ll_end
-               !$SIMD
+               !DIR$ SIMD
                DO ij=ij_begin,ij_end
                   mass(ij,l)=massm1(ij,l)+tau*dmass(ij,l)
@@ -137 +137 @@
          IF (stage==1) THEN ! first stage : save model state in XXm1
             DO l=ll_begin,ll_end
-               !$SIMD
+               !DIR$ SIMD
                DO ij=ij_begin,ij_end
                   um1(ij+u_right,l)=u(ij+u_right,l)
@@ -148 +148 @@
 
          DO l=ll_begin,ll_end
-            !$SIMD
+            !DIR$ SIMD
             DO ij=ij_begin,ij_end
                u(ij+u_right,l)=um1(ij+u_right,l)+tau*du(ij+u_right,l)