Changeset 426

Timestamp:

06/13/16 22:42:37 (8 years ago)

Author:

ymipsl

Message:

Wrong place for !$SIMD directive.

YM

File:

• codes/icosagcm/trunk/src/caldyn_kernels_hevi.f90 (modified) (3 diffs)

codes/icosagcm/trunk/src/caldyn_kernels_hevi.f90

@@ -514 +514 @@
     DO l=ll_begin, ll_end
        ! compute theta flux
-       !DIR$ SIMD
        DO iq=1,nqdyn
+       !DIR$ SIMD
           DO ij=ij_begin_ext,ij_end_ext      
              Ftheta(ij+u_right) = 0.5*(theta(ij,l,iq)+theta(ij+t_right,l,iq)) &
@@ -525 +525 @@
           END DO
           ! horizontal divergence of fluxes
+       !DIR$ SIMD
           DO ij=ij_begin,ij_end         
              ! dtheta_rhodz =  -div(flux.theta)
@@ -537 +538 @@
        END DO
 
+       !DIR$ SIMD
        DO ij=ij_begin,ij_end         
           ! convm = -div(mass flux), sign convention as in Ringler et al. 2012, eq. 21