Changeset 11071 for NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/BDY/bdylib.F90
- Timestamp:
- 2019-06-04T14:58:06+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/BDY/bdylib.F90
r11049 r11071 187 187 ii = idx%nbi(jb,igrd) 188 188 ij = idx%nbj(jb,igrd) 189 IF( ii == 1 .OR. ii == jpi .OR. ij == 1 .OR. ij == jpj ) CYCLE 189 190 flagu = int( idx%flagu(jb,igrd) ) 190 191 flagv = int( idx%flagv(jb,igrd) ) … … 344 345 ii = idx%nbi(jb,igrd) 345 346 ij = idx%nbj(jb,igrd) 347 IF( ii == 1 .OR. ii == jpi .OR. ij == 1 .OR. ij == jpj ) CYCLE 346 348 flagu = int( idx%flagu(jb,igrd) ) 347 349 flagv = int( idx%flagv(jb,igrd) )
Note: See TracChangeset
for help on using the changeset viewer.