Changeset 13273 for NEMO/branches/2020/tickets_2494_2375/src/OCE/ICB
- Timestamp:
- 2020-07-08T18:06:39+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/tickets_2494_2375/src/OCE/ICB/icbclv.F90
r12377 r13273 172 172 END DO 173 173 ! 174 DO jn = 1, nclasses175 CALL lbc_lnk( 'icbclv', berg_grid%stored_ice(:,:,jn), 'T', 1._wp )176 END DO177 CALL lbc_lnk( 'icbclv', berg_grid%stored_heat, 'T', 1._wp )178 !179 174 IF( nn_verbose_level > 0 .AND. icntmax > 1 ) WRITE(numicb,*) 'icb_clv: icnt=', icnt,' on', narea 180 175 !
Note: See TracChangeset
for help on using the changeset viewer.