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

Timestamp:

2019-09-27T13:38:25+02:00 (5 years ago)

Author:

cetlod

Message:

dev_PISCES_LBC : minor improvments

File:

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

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

@@ -62 +62 @@
          !
                                 CALL trc_sbc    ( kt )      ! surface boundary condition
-         IF( lltrcbc .AND. kt /= nit000 )  &
+         IF( ln_trcbc .AND. 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