Changeset 13327 for NEMO/trunk/src/OCE/lib_fortran.F90
 Timestamp:
 20200720T17:33:01+02:00 (4 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

NEMO/trunk/src/OCE/lib_fortran.F90
r13324 r13327 220 220 ! 221 221 DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) 222 IF( MOD(mig(ji), 3) == 1 .AND. MOD(mjg(jj), 3) == 1 ) THEN ! bottom left corner of a 3x3 box 222 IF( MOD(mig(ji), 3) == MOD(nn_hls, 3) .AND. & 223 & MOD(mjg(jj), 3) == MOD(nn_hls, 3) ) THEN ! bottom left corner of a 3x3 box 223 224 ji2 = MIN(mig(ji)+2, jpiglo)  nimpp + 1 ! right position of the box 224 225 jj2 = MIN(mjg(jj)+2, jpjglo)  njmpp + 1 ! upper position of the box … … 273 274 ! 274 275 DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) 275 IF( MOD(mig(ji), 3) == 1 .AND. MOD(mjg(jj), 3) == 1 ) THEN ! bottom left corner of a 3x3 box 276 IF( MOD(mig(ji), 3) == MOD(nn_hls, 3) .AND. & 277 & MOD(mjg(jj), 3) == MOD(nn_hls, 3) ) THEN ! bottom left corner of a 3x3 box 276 278 ji2 = MIN(mig(ji)+2, jpiglo)  nimpp + 1 ! right position of the box 277 279 jj2 = MIN(mjg(jj)+2, jpjglo)  njmpp + 1 ! upper position of the box
Note: See TracChangeset
for help on using the changeset viewer.