Changeset 474 for trunk/NEMO/OPA_SRC/TRA/trabbl_adv.h90

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:

• trunk/NEMO/OPA_SRC/TRA/trabbl_adv.h90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/TRA/trabbl_adv.h90

@@ -237 +237 @@
       CASE ( 2 )               ! Linear formulation function of temperature and salinity
 
-         IF(lwp) WRITE(numout,cform_err)
-         IF(lwp) WRITE(numout,*) '          use of linear eos rho(T,S) = rau0 * ( rbeta * S - ralpha * T )'
-         IF(lwp) WRITE(numout,*) '          bbl not implented: easy to do it '
-         nstop = nstop + 1
+         CALL ctl_stop( '          use of linear eos rho(T,S) = rau0 * ( rbeta * S - ralpha * T )', &
+              &         '          bbl not implented: easy to do it ' )
 
       CASE DEFAULT
 
-         IF(lwp) WRITE(numout,cform_err)
-         IF(lwp) WRITE(numout,*) '          bad flag value for neos = ', neos
-         nstop = nstop + 1
+         WRITE(ctmp1,*) '          bad flag value for neos = ', neos
+         CALL ctl_stop( ctmp1 )
 
       END SELECT