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

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

@@ -25 +25 @@
    USE lib_mpp         ! distribued memory computing library
    USE trcice          ! tracers in sea ice
-   USE trcbc,   only : trc_bc_ini ! generalized Boundary Conditions
+   USE trcbc           ! generalized Boundary Conditions
  
    IMPLICIT NONE
@@ -175 +175 @@
          ln_trc_obc(jn) =       sn_tracer(jn)%llobc
       END DO
+      lltrcbc = ( COUNT(ln_trc_sbc) + COUNT(ln_trc_obc) + COUNT(ln_trc_cbc) ) > 0 
       !    
       IF( ln_pisces      )   CALL trc_ini_pisces     !  PISCES model
@@ -191 +192 @@
          END DO
       ENDIF
+      IF( lwp .AND. lltrcbc ) THEN
+         WRITE(numout,*)
+         WRITE(numout,*) ' Applying tracer boundary conditions '
+      ENDIF
+     
 9001  FORMAT(3x,i3,1x,a10,3x,l2,3x,l2,3x,l2,3x,l2)
       !
@@ -235 +241 @@
       IF( ln_trcdta )   CALL trc_dta_ini( jptra )      ! set initial tracers values
       !
-      IF( ln_my_trc )   CALL trc_bc_ini ( jptra )      ! set tracers Boundary Conditions
+      IF( lltrcbc   )  THEN 
+        CALL trc_bc_ini ( jptra  )      ! set tracers Boundary Conditions
+        CALL trc_bc     ( nit000 )      ! tracers: surface and lateral Boundary Conditions
+      ENDIF
       !
       !