Ignore:
Timestamp:
2019-12-07T12:44:31+01:00 (8 months ago)
Author:
cetlod
Message:

merge dev_r11219_TOP-01_cethe_PISCES_LBC onto dev_r12072_TOP-01_ENHANCE-11_CEthe

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r12072_TOP-01_ENHANCE-11_CEthe/src/TOP/trcini.F90

    r10817 r12110  
    2525   USE lib_mpp         ! distribued memory computing library 
    2626   USE trcice          ! tracers in sea ice 
    27    USE trcbc,   only : trc_bc_ini ! generalized Boundary Conditions 
     27   USE trcbc          ! generalized Boundary Conditions 
    2828  
    2929   IMPLICIT NONE 
     
    175175         ln_trc_obc(jn) =       sn_tracer(jn)%llobc 
    176176      END DO 
     177      ! 
     178      IF( .NOT.ln_trcbc ) THEN 
     179         DO jn = 1, jp_bgc 
     180            ln_trc_sbc(jn) = .FALSE. 
     181            ln_trc_cbc(jn) = .FALSE. 
     182            ln_trc_obc(jn) = .FALSE. 
     183         END DO 
     184      ENDIF 
     185      
     186      lltrcbc = ( COUNT(ln_trc_sbc) + COUNT(ln_trc_obc) + COUNT(ln_trc_cbc) ) > 0  
    177187      !     
    178188      IF( ln_pisces      )   CALL trc_ini_pisces     !  PISCES model 
     
    191201         END DO 
    192202      ENDIF 
     203      IF( lwp .AND. ln_trcbc .AND. lltrcbc ) THEN 
     204         WRITE(numout,*) 
     205         WRITE(numout,*) ' Applying tracer boundary conditions ' 
     206      ENDIF 
     207      
    1932089001  FORMAT(3x,i3,1x,a10,3x,l2,3x,l2,3x,l2,3x,l2) 
    194209      ! 
     
    235250      IF( ln_trcdta )   CALL trc_dta_ini( jptra )      ! set initial tracers values 
    236251      ! 
    237       IF( ln_my_trc )   CALL trc_bc_ini ( jptra )      ! set tracers Boundary Conditions 
     252      IF( ln_trcbc .AND. lltrcbc )  THEN  
     253        CALL trc_bc_ini ( jptra  )      ! set tracers Boundary Conditions 
     254        CALL trc_bc     ( nit000 )      ! tracers: surface and lateral Boundary Conditions 
     255      ENDIF 
    238256      ! 
    239257      ! 
Note: See TracChangeset for help on using the changeset viewer.