Changeset 1207 for trunk/NEMO/OPA_SRC/SBC

Timestamp:

2008-09-24T20:15:45+02:00 (16 years ago)

Author:

rblod

Message:

Suppress a vectorization optimisation leading to inexact results with vopt

File:

• trunk/NEMO/OPA_SRC/SBC/sbcblk_clio.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

@@ -383 +383 @@
       !     III    Total FLUXES                                                       !
       ! ----------------------------------------------------------------------------- !
-!CDIR COLLAPSE
-      qns (:,:) = zqlw(:,:) - zqsb(:,:) - zqla(:,:)      ! Downward Non Solar flux
-!CDIR COLLAPSE
-      emp (:,:) = zqla(:,:) / cevap - sf(jp_prec)%fnow(:,:) / rday * tmask(:,:,1)
-!CDIR COLLAPSE
+
+!CDIR COLLAPSE
+!CDIR NOVERRCHK
+      DO jj = 1, jpj
+!CDIR NOVERRCHK
+         DO ji = 1, jpi
+            qns (ji,jj) = zqlw(ji,jj) - zqsb(ji,jj) - zqla(ji,jj)      ! Downward Non Solar flux
+            emp (ji,jj) = zqla(ji,jj) / cevap - sf(jp_prec)%fnow(ji,jj) / rday * tmask(ji,jj,1)
+         END DO
+      END DO
       emps(:,:) = emp(:,:)
       !