New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 474 for trunk/NEMO/OPA_SRC/mppini.F90 – NEMO

Ignore:
Timestamp:
2006-05-11T17:24:19+02:00 (18 years ago)
Author:
opalod
Message:

nemo_v1_update_061: SM: end of ctl_stop + mpi optimization in _bilap

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/mppini.F90

    r434 r474  
    7777      ENDIF 
    7878 
    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! ' ) 
    8682 
    8783   END SUBROUTINE mpp_init 
     
    467463      ENDIF 
    468464 
    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' ) 
    474466 
    475467      ! Prepare mpp north fold 
Note: See TracChangeset for help on using the changeset viewer.