Changeset 3702


Ignore:
Timestamp:
2012-11-28T11:01:44+01:00 (8 years ago)
Author:
cbricaud
Message:

correction of indexes out of arrays bounds in domzgr for SUBROUTINE s_sf12

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

    r3684 r3702  
    16791679      ENDDO    ! for all ji's 
    16801680 
    1681       DO ji=1,jpi 
    1682         DO jj=1,jpj 
     1681      DO ji=1,jpi-1 
     1682        DO jj=1,jpj-1 
    16831683 
    16841684          DO jk = 1, jpk 
     
    17071707        ENDDO 
    17081708      ENDDO 
     1709      ! 
     1710      CALL lbc_lnk(e3t ,'T',1.) ; CALL lbc_lnk(e3u ,'T',1.) 
     1711      CALL lbc_lnk(e3v ,'T',1.) ; CALL lbc_lnk(e3f ,'T',1.) 
     1712      CALL lbc_lnk(e3w ,'T',1.) 
     1713      CALL lbc_lnk(e3uw,'T',1.) ; CALL lbc_lnk(e3vw,'T',1.) 
     1714      ! 
    17091715      !                                               ! ============= 
    17101716 
Note: See TracChangeset for help on using the changeset viewer.