Changeset 2423 for trunk/NEMO/TOP_SRC/PISCES/trcctl_pisces.F90

Timestamp:

2010-11-24T16:37:34+01:00 (13 years ago)

Author:

cetlod

Message:

v3.2:use of standard print control in TOP

File:

• trunk/NEMO/TOP_SRC/PISCES/trcctl_pisces.F90 (modified) (1 diff)

trunk/NEMO/TOP_SRC/PISCES/trcctl_pisces.F90

@@ -41 +41 @@
    ! -----------------------
 #if  defined key_kriest
-      IF( jp_pisces /= 23) THEN 
+      IF( jp_pisces /= 23) CALL ctl_stop( ' PISCES must have 23 passive tracers. Change jp_pisces in par_pisces.F90' )
 #else
-      IF( jp_pisces /= 24) THEN
+      IF( jp_pisces /= 24) CALL ctl_stop( ' PISCES must have 24 passive tracers. Change jp_pisces in par_pisces.F90' )
 #endif
-          IF (lwp) THEN 
-              WRITE (numout,*) ' ===>>>> : w a r n i n g '
-              WRITE (numout,*) ' =======   ============= '
-              WRITE (numout,*)                               &
-              &   ' STOP, change jp_pisces',               & 
-              &   ' in par_pisces.F90'  
-          END IF 
-          STOP 'TRC_CTL'
-      END IF 
 
    END SUBROUTINE trc_ctl_pisces