Changeset 11048 for NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/BDY/bdylib.F90
- Timestamp:
- 2019-05-23T18:36: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
r11044 r11048 56 56 ii = idx%nbi(ib,igrd) 57 57 ij = idx%nbj(ib,igrd) 58 IF( ii == 1 .OR. ii == jpi .OR. ij == 1 .OR. ij == jpj ) CYCLE ! to remove 58 59 zwgt = idx%nbw(ib,igrd) 59 60 pta(ii,ij,ik) = ( pta(ii,ij,ik) + zwgt * (dta(ib,ik) - pta(ii,ij,ik) ) ) * tmask(ii,ij,ik) … … 83 84 ii = idx%nbi(ib,igrd) 84 85 ij = idx%nbj(ib,igrd) 86 IF( ii == 1 .OR. ii == jpi .OR. ij == 1 .OR. ij == jpj ) CYCLE ! to remove 85 87 DO ik = 1, jpkm1 86 88 pta(ii,ij,ik) = dta(ib,ik) * tmask(ii,ij,ik) … … 466 468 ii = idx%nbi(ib,igrd) 467 469 ij = idx%nbj(ib,igrd) 468 !470 IF( ii == 1 .OR. ii == jpi .OR. ij == 1 .OR. ij == jpj ) CYCLE ! to remove 469 471 SELECT CASE( idx%ntreat(ib,igrd) ) ! select free ocean neighbours 470 472 ! o
Note: See TracChangeset
for help on using the changeset viewer.