Ignore:
Timestamp:
2019-09-27T13:38:25+02:00 (13 months ago)
Author:
cetlod
Message:

dev_PISCES_LBC : minor improvments

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11219_TOP-01_cethe_PISCES_LBC/src/TOP/trcini.F90

    r11222 r11609  
    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      
    177186      lltrcbc = ( COUNT(ln_trc_sbc) + COUNT(ln_trc_obc) + COUNT(ln_trc_cbc) ) > 0  
    178187      !     
     
    192201         END DO 
    193202      ENDIF 
    194       IF( lwp .AND. lltrcbc ) THEN 
     203      IF( lwp .AND. ln_trcbc .AND. lltrcbc ) THEN 
    195204         WRITE(numout,*) 
    196205         WRITE(numout,*) ' Applying tracer boundary conditions ' 
     
    241250      IF( ln_trcdta )   CALL trc_dta_ini( jptra )      ! set initial tracers values 
    242251      ! 
    243       IF( lltrcbc  )  THEN  
     252      IF( ln_trcbc .AND. lltrcbc )  THEN  
    244253        CALL trc_bc_ini ( jptra  )      ! set tracers Boundary Conditions 
    245254        CALL trc_bc     ( nit000 )      ! tracers: surface and lateral Boundary Conditions 
Note: See TracChangeset for help on using the changeset viewer.