Changeset 472 for trunk/NEMO/OPA_SRC/cpl.F90

Timestamp:

2006-05-11T16:40:51+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_060: SM: IOM + 301 levels + CORE + begining of ctl_stop

File:

• trunk/NEMO/OPA_SRC/cpl.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/cpl.F90

@@ -86 +86 @@
      
 #if defined key_flx_bulk_monthly || defined key_flx_bulk_daily || defined key_flx_forced_daily
-      IF(lwp)WRITE(numout,cform_err)
-      IF(lwp)WRITE(numout,*) ' key_coupled and key_flx_bulk_... are incompatible'
-      nstop = nstop + 1
+      CALL ctl_stop( 'key_coupled and key_flx_bulk_... are incompatible' )
 #endif
  
-      IF(lwp)WRITE(numout,*)'     coupled simulation'
-      IF(lwp)WRITE(numout,*)'        unit ',numlhf,' receive atm fluxes'
-      IF(lwp)WRITE(numout,*)'        unit ',numlws,' receive windstress'
-      IF(lwp)WRITE(numout,*)'        unit ',numlts,' transfer sst'
-      IF(lwp)WRITE(numout,*)'        unit ',numlic,' transfer ice cover'
-
-
       CALL cpl_read           ! read the coupled mode information in namelist