- Timestamp:
- 2020-10-05T14:56:19+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13383_HPC-02_Daley_Tiling/src/OCE/DOM/domutl.F90
r13553 r13563 121 121 INTEGER :: is_tile_2d 122 122 !! 123 IF( ln_tile .AND. SIZE(pt, 1) < jpi) THEN123 IF( ln_tile .AND. (SIZE(pt, 1) < jpi .OR. SIZE(pt, 2) < jpj) ) THEN 124 124 is_tile_2d = 1 125 125 ELSE … … 134 134 INTEGER :: is_tile_3d 135 135 !! 136 IF( ln_tile .AND. SIZE(pt, 1) < jpi) THEN136 IF( ln_tile .AND. (SIZE(pt, 1) < jpi .OR. SIZE(pt, 2) < jpj) ) THEN 137 137 is_tile_3d = 1 138 138 ELSE … … 147 147 INTEGER :: is_tile_4d 148 148 !! 149 IF( ln_tile .AND. SIZE(pt, 1) < jpi) THEN149 IF( ln_tile .AND. (SIZE(pt, 1) < jpi .OR. SIZE(pt, 2) < jpj) ) THEN 150 150 is_tile_4d = 1 151 151 ELSE
Note: See TracChangeset
for help on using the changeset viewer.