- Timestamp:
- 2014-05-23T08:54:53+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90
r4624 r4647 284 284 IF( jarea > ijm1 ) ipolj(ii,ij) = 3 285 285 IF( MOD(jpni,2) == 1 .AND. jarea == imil ) ipolj(ii,ij) = 4 286 IF( ipolj(ii,ij) == 3 ) iono(ii,ij) = jpni*jpnj-jarea+ijm1 - 1! MPI rank of northern neighbour286 IF( ipolj(ii,ij) == 3 ) iono(ii,ij) = jpni*jpnj-jarea+ijm1 ! MPI rank of northern neighbour 287 287 ENDIF 288 288 IF( jperio == 5 .OR. jperio == 6 ) THEN … … 291 291 IF( jarea > ijm1) ipolj(ii,ij) = 5 292 292 IF( MOD(jpni,2) == 1 .AND. jarea == imil ) ipolj(ii,ij) = 6 293 IF( ipolj(ii,ij) == 5) iono(ii,ij) = jpni*jpnj-jarea+ijm1 - 1! MPI rank of northern neighbour293 IF( ipolj(ii,ij) == 5) iono(ii,ij) = jpni*jpnj-jarea+ijm1 ! MPI rank of northern neighbour 294 294 ENDIF 295 295
Note: See TracChangeset
for help on using the changeset viewer.