Changeset 7646 for trunk/NEMOGCM/NEMO/OPA_SRC/FLO/floblk.F90
- Timestamp:
- 2017-02-06T10:25:03+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/FLO/floblk.F90
r6140 r7646 106 106 222 DO jfl = 1, jpnfl 107 107 # if defined key_mpp_mpi 108 IF( (iil(jfl) >= (mig(nldi)-jpizoom+1)) .AND. (iil(jfl) <= (mig(nlei)-jpizoom+1)) .AND. &109 (ijl(jfl) >= (mjg(nldj)-jpjzoom+1)) .AND. (ijl(jfl) <= (mjg(nlej)-jpjzoom+1))) THEN110 iiloc(jfl) = iil(jfl) - (mig(1)-jpizoom+1) + 1111 ijloc(jfl) = ijl(jfl) - (mjg(1)-jpjzoom+1) + 1108 IF( iil(jfl) >= mig(nldi) .AND. iil(jfl) <= mig(nlei) .AND. & 109 ijl(jfl) >= mjg(nldj) .AND. ijl(jfl) <= mjg(nlej) ) THEN 110 iiloc(jfl) = iil(jfl) - mig(1) + 1 111 ijloc(jfl) = ijl(jfl) - mjg(1) + 1 112 112 # else 113 113 iiloc(jfl) = iil(jfl)
Note: See TracChangeset
for help on using the changeset viewer.