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/LIM_SRC/limistate.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/LIM_SRC/limistate.F90

    r419 r474  
    327327             
    328328         ELSE 
    329             IF(lwp) WRITE(numout,cform_err)  
    330             IF(lwp) WRITE(numout,*) '            ',cl_icedata, ' not found !' 
    331             nstop = nstop + 1 
     329            WRITE(ctmp1,*) '            ',cl_icedata, ' not found !' 
     330            CALL ctl_stop( ctmp1 ) 
    332331         ENDIF 
    333332      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.