Changeset 2423 for trunk/NEMO/TOP_SRC/LOBSTER/trcctl_lobster.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/LOBSTER/trcctl_lobster.F90 (modified) (6 diffs)

trunk/NEMO/TOP_SRC/LOBSTER/trcctl_lobster.F90

@@ -40 +40 @@
       ! Check number of tracers
       ! -----------------------
-      IF (jp_lobster /= 6) THEN 
-          IF (lwp) THEN 
-              WRITE (numout,*) ' ===>>>> : w a r n i n g '
-              WRITE (numout,*) ' =======   ============= '
-              WRITE (numout,*)                             &
-              &   ' STOP, change jp_lobster to 6 in '           &
-              &   ,'par_lobster.F90 '  
-          END IF 
-          STOP 'TRC_CTL'
-      END IF 
+      IF( jp_lobster /= 6 ) CALL ctl_stop( ' LOBSTER has 6 passive tracers. Change jp_lobster in par_lobster.F90' )
 
       ! Check tracer names
@@ -55 +46 @@
       IF(   ctrcnm(jpdet) /= 'DET' .OR. ctrcnm(jpzoo) /= 'ZOO' .OR.   &
          &  ctrcnm(jpphy) /= 'PHY' .OR. ctrcnm(jpno3) /= 'NO3' .OR.   &
-         &  ctrcnm(jpnh4) /= 'NH4' .OR. ctrcnm(jpdom) /= 'DOM' .OR.   & 
+         &  ctrcnm(jpnh4) /= 'NH4' .OR. ctrcnm(jpdom) /= 'DOM' .OR.   &
          &  ctrcnl(jpdet) /= 'Detritus'                        .OR.   &
          &  ctrcnl(jpzoo) /= 'Zooplankton concentration'       .OR.   &
@@ -61 +52 @@
          &  ctrcnl(jpno3) /= 'Nitrate concentration'           .OR.   &
          &  ctrcnl(jpnh4) /= 'Ammonium concentration'          .OR.   &
-         &  ctrcnl(jpdom) /= 'Dissolved organic matter' ) THEN 
+         &  ctrcnl(jpdom) /= 'Dissolved organic matter' ) THEN
          ctrcnm(jpdet)='DET'
          ctrcnl(jpdet)='Detritus'
@@ -73 +64 @@
          ctrcnl(jpnh4)='Ammonium concentration'
          ctrcnm(jpdom)='DOM'
-         ctrcnl(jpdom)='Dissolved organic matter'          
+         ctrcnl(jpdom)='Dissolved organic matter'
          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_lobster
                jn = jp_lob0 + jl - 1
@@ -83 +72 @@
             END DO
             WRITE(numout,*) ' '
-         ENDIF 
-      ENDIF 
+         ENDIF
+      ENDIF
 
       ! Check tracer units
@@ -92 +81 @@
             ctrcun(jn) = 'mmole-N/m3'
             IF(lwp) THEN
-               WRITE (numout,*) ' ===>>>> : w a r n i n g '
-               WRITE (numout,*) ' =======   ============= '
-               WRITE (numout,*) ' we force tracer unit'
+               CALL ctl_warn( ' We force tracer units ' )
                WRITE(numout,*) ' tracer  ',ctrcnm(jn), 'UNIT= ',ctrcun(jn)
-            ENDIF 
-         ENDIF 
-      END DO              
+            ENDIF
+         ENDIF
+      END DO
+
    END SUBROUTINE trc_ctl_lobster