Changeset 15043 for NEMO/branches/2021/ticket2696_icb_halo1_halo2_compatibility/src/OCE/ICB/icbutl.F90
- Timestamp:
- 2021-06-22T13:26:16+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/ticket2696_icb_halo1_halo2_compatibility/src/OCE/ICB/icbutl.F90
r14400 r15043 300 300 zwj = pj - 0.5_wp - REAL(kij,wp) 301 301 END SELECT 302 kii = kii + (nn_hls-1) 303 kij = kij + (nn_hls-1) 302 304 ! 303 305 ! compute weight … … 461 463 462 464 ! conversion to local domain (no need to do a sanity check already done in icbpos) 463 ii = mi1(ii) 464 ij = mj1(ij) 465 ii = mi1(ii) + (nn_hls-1) 466 ij = mj1(ij) + (nn_hls-1) 465 467 ! 466 468 IF( 0.0_wp <= zi .AND. zi < 0.5_wp ) THEN
Note: See TracChangeset
for help on using the changeset viewer.