Ignore:
Timestamp:
2020-10-01T12:09:56+02:00 (5 months ago)
Author:
hadcv
Message:

#2365: Remove diagnostic output lbc_lnk calls

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r13383_HPC-02_Daley_Tiling/src/OCE/TRA/trabbl.F90

    r13551 r13552  
    128128         IF( ntile == 0 .OR. ntile == nijtile ) THEN                       ! Do only on the last tile 
    129129            ! lateral boundary conditions ; just need for outputs 
    130             CALL lbc_lnk_multi( 'trabbl', ahu_bbl, 'U', 1.0_wp , ahv_bbl, 'V', 1.0_wp ) 
    131130            CALL iom_put( "ahu_bbl", ahu_bbl )   ! bbl diffusive flux i-coef 
    132131            CALL iom_put( "ahv_bbl", ahv_bbl )   ! bbl diffusive flux j-coef 
     
    143142         IF( ntile == 0 .OR. ntile == nijtile ) THEN                       ! Do only on the last tile 
    144143            ! lateral boundary conditions ; just need for outputs 
    145             CALL lbc_lnk_multi( 'trabbl', utr_bbl, 'U', 1.0_wp , vtr_bbl, 'V', 1.0_wp ) 
    146144            CALL iom_put( "uoce_bbl", utr_bbl )  ! bbl i-transport 
    147145            CALL iom_put( "voce_bbl", vtr_bbl )  ! bbl j-transport 
Note: See TracChangeset for help on using the changeset viewer.