Changeset 4088
- Timestamp:
- 2013-10-21T15:35:14+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPA_SRC/DOM/closea.F90
r3442 r4088 362 362 REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: p_rnfmsk ! river runoff mask (rnfmsk array) 363 363 ! 364 INTEGER :: jc, jn ! dummy loop indices 365 INTEGER :: ii, ij ! temporary integer 364 INTEGER :: jc, jn, ji, jj ! dummy loop indices 366 365 !!---------------------------------------------------------------------- 367 366 ! … … 369 368 IF( ncstt(jc) >= 1 ) THEN ! runoff mask set to 1 at closed sea outflows 370 369 DO jn = 1, 4 371 ii = mi0( ncsir(jc,jn) ) 372 ij = mj0( ncsjr(jc,jn) ) 373 p_rnfmsk(ii,ij) = MAX( p_rnfmsk(ii,ij), 1.0_wp ) 370 DO jj = mj0( ncsjr(jc,jn) ), mj1( ncsjr(jc,jn) ) 371 DO ji = mi0( ncsir(jc,jn) ), mi1( ncsir(jc,jn) ) 372 p_rnfmsk(ji,jj) = MAX( p_rnfmsk(ji,jj), 1.0_wp ) 373 END DO 374 END DO 374 375 END DO 375 376 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.