Changeset 11049 for NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/DYN/dynkeg.F90
- Timestamp:
- 2019-05-24T10:22:47+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/DYN/dynkeg.F90
r11048 r11049 122 122 ji = idx_bdy(ib_bdy)%nbi(jb,igrd) ! maximum extent : from 1 to jpi 123 123 jj = idx_bdy(ib_bdy)%nbj(jb,igrd) ! maximum extent : from 1 to jpj 124 IF( ji == 1 .OR. j i == jpi .OR. jj == 1 .OR. jj == jpj ) CYCLE ! to remove?124 IF( ji == 1 .OR. jj == 1 ) CYCLE 125 125 DO jk = 1, jpkm1 126 126 zhke(ji,jj,jk) = 0._wp … … 164 164 ji = idx_bdy(ib_bdy)%nbi(jb,igrd) ! maximum extent : from 1 to jpi 165 165 jj = idx_bdy(ib_bdy)%nbj(jb,igrd) ! maximum extent : from 1 to jpj 166 IF( ji == 1 .OR. ji == jpi .OR. jj == 1 .OR. jj == jpj ) CYCLE ! to remove166 IF( ji == 1 .OR. ji == jpi .OR. jj == 1 .OR. jj == jpj ) CYCLE 167 167 DO jk = 1, jpkm1 168 168 zhke(ji,jj,jk) = 0._wp
Note: See TracChangeset
for help on using the changeset viewer.