Changeset 2423 for trunk/NEMO/TOP_SRC/CFC/trcctl_cfc.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/CFC/trcctl_cfc.F90 (modified) (3 diffs)

trunk/NEMO/TOP_SRC/CFC/trcctl_cfc.F90

@@ -42 +42 @@
       ! Check number of tracers
       ! -----------------------   
-      IF( jp_cfc > 2) THEN 
-          IF(lwp) THEN 
-              WRITE (numout,*) ' ===>>>> : w a r n i n g <<<<==='
-              WRITE (numout,*)                             &
-              &   ' STOP, change jp_cfc to 1 or 2 in par_CFC module '  
-          END IF 
-          STOP 'TRC_CTL'
-      END IF 
+      IF( jp_cfc > 2 ) CALL ctl_stop( ' change jp_cfc to 1 or 2 in par_cfc.F90.' )
 
       ! Check tracer names
@@ -62 +55 @@
 
       IF(lwp) THEN
-         WRITE (numout,*) ' ===>>>> : w a r n i n g '
-         WRITE (numout,*) ' =======   ============= '
-         WRITE (numout,*) ' we force tracer names'
+         CALL ctl_warn( ' We force tracer names ' )
          DO jl = 1, jp_cfc
             jn = jp_cfc0 + jl - 1
@@ -80 +71 @@
             ctrcun(jn) = 'mole/m3'
             IF(lwp) THEN
-               WRITE (numout,*) ' ===>>>> : w a r n i n g <<<<==='
-               WRITE (numout,*) ' we force tracer unit'
+               CALL ctl_warn( ' We force tracer units ' )
                WRITE(numout,*) ' tracer  ',ctrcnm(jn), 'UNIT= ',ctrcun(jn)
                WRITE(numout,*) ' '