Changeset 1254 for trunk/NEMO/TOP_SRC/trcctl.F90

Timestamp:

2009-01-13T10:58:39+01:00 (16 years ago)

Author:

cetlod

Message:

update parameter files to take into account the new C14 bomb tracer model, see ticket:298

File:

• trunk/NEMO/TOP_SRC/trcctl.F90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/trcctl.F90

@@ -18 +18 @@
    USE trcctl_pisces
    USE trcctl_cfc
+   USE trcctl_c14b
    USE trcctl_my_trc
 
@@ -85 +86 @@
       ENDIF
 
+      IF( lk_c14b    ) THEN   ;   CALL trc_ctl_c14b        ! C14 bomb   tracers
+      ELSE                    ;   IF(lwp) WRITE(numout,*) '          C14b not used'
+      ENDIF
+
+
       IF( lk_my_trc  ) THEN   ;   CALL trc_ctl_my_trc      ! MY_TRC  tracers
       ELSE                    ;   IF(lwp) WRITE(numout,*) '          MY_TRC not used'