Changeset 12537 for NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/trcsms.F90

Timestamp:

2020-03-11T16:02:54+01:00 (4 years ago)

Author:

aumont

Message:

Comments in routines have been revised and significantly augmented

File:

• NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/trcsms.F90 (modified) (2 diffs)

NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/trcsms.F90

@@ -21 +21 @@
    USE trcsms_my_trc      ! MY_TRC  tracers
    USE prtctl_trc         ! Print control for debbuging
+   USE trcbc  , only : trc_bc
+   USE bdy_oce, only : ln_bdy 
 
    IMPLICIT NONE
@@ -55 +57 @@
       IF( ln_my_trc  )   CALL trc_sms_my_trc ( kt )    ! MY_TRC  tracers
 
+      IF( ln_bdy     )   CALL trc_bc ( kt )
+
       IF(ln_ctl) THEN      ! print mean trends (used for debugging)
          WRITE(charout, FMT="('sms ')")