Changeset 1694 for trunk/NEMO/LIM_SRC_2/limwri_dimg_2.h90

Timestamp:

2009-10-30T17:06:23+01:00 (15 years ago)

Author:

smasson

Message:

avoid out of bounds access, see ticket:576

File:

• trunk/NEMO/LIM_SRC_2/limwri_dimg_2.h90 (modified) (2 diffs)

trunk/NEMO/LIM_SRC_2/limwri_dimg_2.h90

@@ -95 +95 @@
     zcmo(:,:, 1:jpnoumax ) = 0.e0 
     DO jj = 2 , jpjm1
-       DO ji = 2 , jpim1
+       DO ji = 2 , jpim1   ! NO vector opt.
           zindh  = MAX( zzero , SIGN( zone , hicif(ji,jj) * (1.0 - frld(ji,jj) ) - 0.10 ) )
           zinda  = MAX( zzero , SIGN( zone , ( 1.0 - frld(ji,jj) ) - 0.10 ) )
@@ -138 +138 @@
           !  case of instantaneaous output rcmoy(:,:, 1:jpnoumax ) = 0.e0
           DO jj = 2 , jpjm1
-             DO ji = 2 , jpim1
+             DO ji = 2 , jpim1   ! NO vector opt.
                 zindh  = MAX( zzero , SIGN( zone , hicif(ji,jj) * (1.0 - frld(ji,jj) ) - 0.10 ) )
                 zinda  = MAX( zzero , SIGN( zone , ( 1.0 - frld(ji,jj) ) - 0.10 ) )