New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 4251 for branches/2013/dev_LOCEAN_CMCC_INGV_MERC_UKMO_2013/NEMOGCM/NEMO/LIM_SRC_2 – NEMO

Ignore:
Timestamp:
2013-11-19T15:30:22+01:00 (10 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.