Changeset 1207


Ignore:
Timestamp:
2008-09-24T20:15:45+02:00 (12 years ago)
Author:
rblod
Message:

Suppress a vectorization optimisation leading to inexact results with vopt

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

    r1200 r1207  
    383383      !     III    Total FLUXES                                                       ! 
    384384      ! ----------------------------------------------------------------------------- ! 
    385 !CDIR COLLAPSE 
    386       qns (:,:) = zqlw(:,:) - zqsb(:,:) - zqla(:,:)      ! Downward Non Solar flux 
    387 !CDIR COLLAPSE 
    388       emp (:,:) = zqla(:,:) / cevap - sf(jp_prec)%fnow(:,:) / rday * tmask(:,:,1) 
    389 !CDIR COLLAPSE 
     385 
     386!CDIR COLLAPSE 
     387!CDIR NOVERRCHK 
     388      DO jj = 1, jpj 
     389!CDIR NOVERRCHK 
     390         DO ji = 1, jpi 
     391            qns (ji,jj) = zqlw(ji,jj) - zqsb(ji,jj) - zqla(ji,jj)      ! Downward Non Solar flux 
     392            emp (ji,jj) = zqla(ji,jj) / cevap - sf(jp_prec)%fnow(ji,jj) / rday * tmask(ji,jj,1) 
     393         END DO 
     394      END DO 
    390395      emps(:,:) = emp(:,:) 
    391396      ! 
Note: See TracChangeset for help on using the changeset viewer.