Changeset 11609 for NEMO/branches/2019/dev_r11219_TOP-01_cethe_PISCES_LBC/src/TOP/trcini.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/trcini.F90 (modified) (3 diffs)

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

@@ -175 +175 @@
          ln_trc_obc(jn) =       sn_tracer(jn)%llobc
       END DO
+      !
+      IF( .NOT.ln_trcbc ) THEN
+         DO jn = 1, jp_bgc
+            ln_trc_sbc(jn) = .FALSE.
+            ln_trc_cbc(jn) = .FALSE.
+            ln_trc_obc(jn) = .FALSE.
+         END DO
+      ENDIF
+     
       lltrcbc = ( COUNT(ln_trc_sbc) + COUNT(ln_trc_obc) + COUNT(ln_trc_cbc) ) > 0 
       !    
@@ -192 +201 @@
          END DO
       ENDIF
-      IF( lwp .AND. lltrcbc ) THEN
+      IF( lwp .AND. ln_trcbc .AND. lltrcbc ) THEN
          WRITE(numout,*)
          WRITE(numout,*) ' Applying tracer boundary conditions '
@@ -241 +250 @@
       IF( ln_trcdta )   CALL trc_dta_ini( jptra )      ! set initial tracers values
       !
-      IF( lltrcbc   )  THEN 
+      IF( ln_trcbc .AND. lltrcbc )  THEN 
         CALL trc_bc_ini ( jptra  )      ! set tracers Boundary Conditions
         CALL trc_bc     ( nit000 )      ! tracers: surface and lateral Boundary Conditions