Changeset 474 for trunk/NEMO/OPA_SRC/mppini.F90
- Timestamp:
- 2006-05-11T17:24:19+02:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/mppini.F90
r434 r474 77 77 ENDIF 78 78 79 IF( jpni /= 1 .OR. jpnj /= 1 .OR. jpnij /= 1 ) THEN 80 IF(lwp)WRITE(numout,cform_err) 81 IF(lwp)WRITE(numout,*) 'equality jpni = jpnj = jpnij = 1 is not satisfied' 82 IF(lwp)WRITE(numout,*) 'the domain is lay out for distributed memory computing! ' 83 nstop = nstop + 1 84 ENDIF 85 79 IF( jpni /= 1 .OR. jpnj /= 1 .OR. jpnij /= 1 ) & 80 CALL ctl_stop( 'equality jpni = jpnj = jpnij = 1 is not satisfied', & 81 & 'the domain is lay out for distributed memory computing! ' ) 86 82 87 83 END SUBROUTINE mpp_init … … 467 463 ENDIF 468 464 469 IF( nperio == 1 .AND. jpni /= 1 )THEN 470 IF(lwp) WRITE(numout,cform_err) 471 IF(lwp) WRITE(numout,*) ' mpp_init: error on cyclicity' 472 nstop = nstop + 1 473 ENDIF 465 IF( nperio == 1 .AND. jpni /= 1 ) CALL ctl_stop( ' mpp_init: error on cyclicity' ) 474 466 475 467 ! Prepare mpp north fold
Note: See TracChangeset
for help on using the changeset viewer.