Changeset 2131


Ignore:
Timestamp:
07/30/13 15:17:06 (8 years ago)
Author:
omamce
Message:

O.M.:

Correct an out of bounds problem in clo_rnf.
Ticket submitted to NEMO trac

File:
1 edited

Legend:

Unmodified
Added
Removed
  • CONFIG/UNIFORM/v6/IPSLCM6/SOURCES/NEMO/closea.F90

    r2113 r2131  
    376376      REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) ::   p_rnfmsk   ! river runoff mask (rnfmsk array) 
    377377      ! 
    378       INTEGER  ::   jc, jn      ! dummy loop indices 
    379       INTEGER  ::   ii, ij      ! temporary integer 
     378      INTEGER  ::   jc, jn, ji, jj      ! dummy loop indices 
    380379      !!---------------------------------------------------------------------- 
    381380      ! 
     
    383382         IF( ncstt(jc) >= 1 ) THEN            ! runoff mask set to 1 at closed sea outflows 
    384383             DO jn = 1, 4 
    385                ii = mi0( ncsir(jc,jn) ) 
    386                ij = mj0( ncsjr(jc,jn) ) 
    387                p_rnfmsk(ii,ij) = MAX( p_rnfmsk(ii,ij), 1.0_wp ) 
     384                DO jj =    mj0( ncsjr(jc,jn) ), mj1( ncsjr(jc,jn) ) 
     385                   DO ji = mi0( ncsir(jc,jn) ), mi1( ncsir(jc,jn) ) 
     386                      p_rnfmsk(ji,jj) = MAX( p_rnfmsk(ji,jj), 1.0_wp ) 
     387                   END DO 
     388                END DO 
    388389            END DO  
    389390         ENDIF  
Note: See TracChangeset for help on using the changeset viewer.