- Timestamp:
- 2017-12-15T10:35:02+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/LBC/mppini.F90
r9019 r9069 251 251 ! warning ii*ij (zone) /= nproc (processors)! 252 252 253 IF( jperio == 1 .OR. jperio == 4 .OR. jperio == 6 ) THEN253 IF( jperio == 1 .OR. jperio == 4 .OR. jperio == 6 .OR. jperio == 7 ) THEN 254 254 IF( jpni == 1 )THEN 255 255 ibondi(ii,ij) = 2 … … 494 494 WRITE(numout,*) ' nn_hls = ', nn_hls 495 495 ENDIF 496 496 497 497 IF( nperio == 1 .AND. jpni /= 1 ) CALL ctl_stop( 'mpp_init: error on cyclicity' ) 498 499 IF( jperio == 7 .AND. ( jpni /= 1 .OR. jpnj /= 1 ) ) & 500 & CALL ctl_stop( ' mpp_init: error jperio = 7 works only with jpni = jpnj = 1' ) 498 501 499 502 ! ! Prepare mpp north fold
Note: See TracChangeset
for help on using the changeset viewer.