Changeset 8049 for branches/UKMO/CO6_KD490_amm7_oper_fabm/NEMOGCM/NEMO/TOP_SRC/trcsms.F90

Timestamp:

2017-05-19T15:32:50+02:00 (7 years ago)

Author:

dford

Message:

Add FABM-related code changes.

File:

• branches/UKMO/CO6_KD490_amm7_oper_fabm/NEMOGCM/NEMO/TOP_SRC/trcsms.F90 (modified) (2 diffs)

branches/UKMO/CO6_KD490_amm7_oper_fabm/NEMOGCM/NEMO/TOP_SRC/trcsms.F90

@@ -19 +19 @@
    USE trcsms_c14b        ! C14b tracer 
    USE trcsms_my_trc      ! MY_TRC  tracers
+   ! +++>>>> FABM
+   USE trcsms_fabm        ! FABM tracers
+   ! FABM <<<+++
    USE prtctl_trc         ! Print control for debbuging
 
@@ -52 +55 @@
       IF( lk_c14b    )   CALL trc_sms_c14b   ( kt )    ! surface fluxes of C14
       IF( lk_my_trc  )   CALL trc_sms_my_trc ( kt )    ! MY_TRC  tracers
+      ! +++>>> FABM
+      IF( lk_fabm    )   CALL trc_sms_fabm ( kt )      ! FABM tracers
+      ! FABM <<<+++
 
       IF(ln_ctl) THEN      ! print mean trends (used for debugging)