- Timestamp:
- 2018-10-03T16:49:50+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/iceupdate.F90
r10069 r10170 350 350 END DO 351 351 END DO 352 CALL lbc_lnk_multi( taum, 'T', 1., tmod_io, 'T', 1. )352 CALL lbc_lnk_multi( 'iceupdate', taum, 'T', 1., tmod_io, 'T', 1. ) 353 353 ! 354 354 utau_oce(:,:) = utau(:,:) !* save the air-ocean stresses at ice time-step … … 374 374 END DO 375 375 END DO 376 CALL lbc_lnk_multi( utau, 'U', -1., vtau, 'V', -1. ) ! lateral boundary condition376 CALL lbc_lnk_multi( 'iceupdate', utau, 'U', -1., vtau, 'V', -1. ) ! lateral boundary condition 377 377 ! 378 378 IF( ln_timing ) CALL timing_stop('ice_update_tau')
Note: See TracChangeset
for help on using the changeset viewer.