Changeset 1953 for branches/DEV_r1784_mid_year_merge_2010/NEMO/TOP_SRC/CFC/trcctl_cfc.F90

Timestamp:

2010-06-24T17:27:10+02:00 (14 years ago)

Author:

acc

Message:

ticket #684 step 3: Add in changes from the trunk between revisions 1784 and 1821. No conflicts so far

File:

• branches/DEV_r1784_mid_year_merge_2010/NEMO/TOP_SRC/CFC/trcctl_cfc.F90 (modified) (3 diffs)

branches/DEV_r1784_mid_year_merge_2010/NEMO/TOP_SRC/CFC/trcctl_cfc.F90

@@ -44 +44 @@
       IF( jp_cfc > 2) THEN 
           IF(lwp) THEN 
-              WRITE (numout,*) ' ===>>>> : w a r n i n g '
-              WRITE (numout,*) ' =======   ============= '
+              WRITE (numout,*) ' ===>>>> : w a r n i n g <<<<==='
               WRITE (numout,*)                             &
               &   ' STOP, change jp_cfc to 1 or 2 in par_CFC module '  
@@ -62 +61 @@
 
       IF(lwp) THEN
-         WRITE (numout,*) ' ===>>>> : w a r n i n g '
-         WRITE (numout,*) ' =======   ============= '
+         WRITE (numout,*) ' ===>>>> : w a r n i n g <<<<==='
          WRITE (numout,*) ' we force tracer names'
          DO jl = 1, jp_cfc
@@ -80 +78 @@
             ctrcun(jn) = 'mole/m3'
             IF(lwp) THEN
-               WRITE (numout,*) ' ===>>>> : w a r n i n g '
-               WRITE (numout,*) ' =======   ============= '
+               WRITE (numout,*) ' ===>>>> : w a r n i n g <<<<==='
                WRITE (numout,*) ' we force tracer unit'
                WRITE(numout,*) ' tracer  ',ctrcnm(jn), 'UNIT= ',ctrcun(jn)