Changeset 4251


Ignore:
Timestamp:
2013-11-19T15:30:22+01:00 (7 years ago)
Author:
cbricaud
Message:

correct indice which make array out-of-bounds when key_iomput not activated

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_LOCEAN_CMCC_INGV_MERC_UKMO_2013/NEMOGCM/NEMO/LIM_SRC_2/limwri_2.F90

    r4147 r4251  
    150150      zcmo(:,:, 1:jpnoumax ) = 0.e0  
    151151      DO jj = 2 , jpjm1 
    152          DO ji = 1 , jpim1   ! NO vector opt. 
     152         DO ji = 2 , jpim1   ! NO vector opt. 
    153153            zindh  = MAX( zzero , SIGN( zone , hicif(ji,jj) * (1.0 - frld(ji,jj) ) - 0.10 ) ) 
    154154            zinda  = MAX( zzero , SIGN( zone , ( 1.0 - frld(ji,jj) ) - 0.10 ) ) 
Note: See TracChangeset for help on using the changeset viewer.