Changeset 11222 for NEMO/branches/2019/dev_r11219_TOP-01_cethe_PISCES_LBC/src/TOP/TRP/trctrp.F90

Timestamp:

2019-07-05T16:52:07+02:00 (5 years ago)

Author:

cetlod

Message:

PISCES_LBC : 1st step of dev

File:

• NEMO/branches/2019/dev_r11219_TOP-01_cethe_PISCES_LBC/src/TOP/TRP/trctrp.F90 (modified) (2 diffs)

NEMO/branches/2019/dev_r11219_TOP-01_cethe_PISCES_LBC/src/TOP/TRP/trctrp.F90

@@ -23 +23 @@
    USE trcrad          ! positivity                          (trc_rad routine)
    USE trcsbc          ! surface boundary condition          (trc_sbc routine)
+   USE trcbc           ! Tracers boundary condtions          ( trc_bc routine)
    USE zpshde          ! partial step: hor. derivative       (zps_hde routine)
    USE bdy_oce   , ONLY: ln_bdy
@@ -61 +62 @@
          !
                                 CALL trc_sbc    ( kt )      ! surface boundary condition
+         IF( lltrcbc .AND. kt /= nit000 )  &
+                                CALL trc_bc     ( kt )      ! tracers: surface and lateral Boundary Conditions 
          IF( ln_trabbl )        CALL trc_bbl    ( kt )      ! advective (and/or diffusive) bottom boundary layer scheme
          IF( ln_trcdmp )        CALL trc_dmp    ( kt )      ! internal damping trends