Changeset 7068 for branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/CFC/trcnam_cfc.F90

Timestamp:

2016-10-21T17:38:13+02:00 (7 years ago)

Author:

cetlod

Message:

ROBUST5_CNRS : implementation of part I of new TOP interface - 1st step -, see ticket #1782

File:

• branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/CFC/trcnam_cfc.F90 (modified) (2 diffs)

branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/CFC/trcnam_cfc.F90

@@ -42 +42 @@
       !!----------------------------------------------------------------------
 
+      IF( ln_cfc11 ) THEN
+         ctrcnm    (jp_cfc0) = 'CFC11'
+         ctrcln    (jp_cfc0) = 'Chlorofluoro carbon 11 Concentration'
+         ctrcun    (jp_cfc0) = 'umolC/L'
+         ln_trc_ini(jp_cfc0) = .false.
+      ENDIF
+      !
+      IF( ln_cfc12 ) THEN
+         ctrcnm    (jp_cfc1) = 'CFC12'
+         ctrcln    (jp_cfc1) = 'Chlorofluoro carbon 12 Concentration'
+         ctrcun    (jp_cfc1) = 'umolC/L'
+         ln_trc_ini(jp_cfc1) = .false.
+      ENDIF
+      !
+      IF(lwp) THEN                   ! control print
+      ENDIF
+
       REWIND( numtrc_ref )              ! Namelist namcfcdate in reference namelist : CFC parameters
       READ  ( numtrc_ref, namcfc, IOSTAT = ios, ERR = 901)
@@ -52 +69 @@
 
       IF(lwp) THEN                  ! control print
-         WRITE(numout,*)
+         WRITE(numout,*) ' '
+         WRITE(numout,*) ' CFCs'
+         IF( ln_cfc11 )  WRITE(numout,*) '  tracer nb : ', jp_cfc0, '    short name : ', TRIM( ctrcnm(jp_cfc0) )
+         IF( ln_cfc12 )  WRITE(numout,*) '  tracer nb : ', jp_cfc1, '    short name : ', TRIM( ctrcnm(jp_cfc1) )
+         WRITE(numout,*) ' '
          WRITE(numout,*) ' trc_nam: Read namdates, namelist for CFC chemical model'
          WRITE(numout,*) ' ~~~~~~~'