Changeset 7646 for trunk/NEMOGCM/NEMO/OPA_SRC/FLO/florst.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/florst.F90
r6140 r7646 102 102 IF( lk_mpp ) THEN 103 103 DO jfl = 1, jpnfl 104 IF( (INT(tpifl(jfl)) >= (mig(nldi)-jpizoom+1)) .AND. &105 &(INT(tpifl(jfl)) <= (mig(nlei)-jpizoom+1)) .AND. &106 &(INT(tpjfl(jfl)) >= (mjg(nldj)-jpjzoom+1)) .AND. &107 &(INT(tpjfl(jfl)) <= (mjg(nlej)-jpjzoom+1)) ) THEN104 IF( (INT(tpifl(jfl)) >= mig(nldi)) .AND. & 105 &(INT(tpifl(jfl)) <= mig(nlei)) .AND. & 106 &(INT(tpjfl(jfl)) >= mjg(nldj)) .AND. & 107 &(INT(tpjfl(jfl)) <= mjg(nlej)) ) THEN 108 108 iperproc(narea) = iperproc(narea)+1 109 109 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.