Changeset 2131
- Timestamp:
- 07/30/13 15:17:06 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
CONFIG/UNIFORM/v6/IPSLCM6/SOURCES/NEMO/closea.F90
r2113 r2131 376 376 REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: p_rnfmsk ! river runoff mask (rnfmsk array) 377 377 ! 378 INTEGER :: jc, jn ! dummy loop indices 379 INTEGER :: ii, ij ! temporary integer 378 INTEGER :: jc, jn, ji, jj ! dummy loop indices 380 379 !!---------------------------------------------------------------------- 381 380 ! … … 383 382 IF( ncstt(jc) >= 1 ) THEN ! runoff mask set to 1 at closed sea outflows 384 383 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 388 389 END DO 389 390 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.