Ignore:
Timestamp:
2020-07-08T18:06:39+02:00 (2 months ago)
Author:
mathiot
Message:

ticket #2494 and #2375: remove useless lbclnk mentioned in ticket #2375

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/tickets_2494_2375/src/OCE/ICB/icbclv.F90

    r12377 r13273  
    172172      END DO 
    173173      ! 
    174       DO jn = 1, nclasses 
    175          CALL lbc_lnk( 'icbclv', berg_grid%stored_ice(:,:,jn), 'T', 1._wp ) 
    176       END DO 
    177       CALL lbc_lnk( 'icbclv', berg_grid%stored_heat, 'T', 1._wp ) 
    178       ! 
    179174      IF( nn_verbose_level > 0 .AND. icntmax > 1 )   WRITE(numicb,*) 'icb_clv: icnt=', icnt,' on', narea 
    180175      ! 
Note: See TracChangeset for help on using the changeset viewer.