Changeset 10251 for branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/NEMO/TOP_SRC/trcsms.F90

Timestamp:

2018-10-29T15:20:26+01:00 (5 years ago)

Author:

kingr

Message:

Rolled back to r10247 - i.e., undid merge of pkg br and 3.6_stable br

File:

• branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/NEMO/TOP_SRC/trcsms.F90 (modified) (3 diffs)

branches/UKMO/dev_r5518_AMM15_package/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
 
@@ -55 +52 @@
       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)
@@ -81 +75 @@
 
    !!======================================================================
-END MODULE trcsms
+END MODULE  trcsms