Changeset 15372 for NEMO/trunk/src/OCE/SBC/sbcmod.F90
- Timestamp:
- 2021-10-14T17:47:24+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/SBC/sbcmod.F90
r15149 r15372 466 466 CALL lbc_lnk( 'sbcmod', taum(:,:), 'T', 1. ) 467 467 ! 468 IF( ln_icebergs ) THEN ! save pure stresses (with no ice-ocean stress) for use by icebergs 469 utau_icb(:,:) = utau(:,:) ; vtau_icb(:,:) = vtau(:,:) 470 ENDIF 471 ! 468 472 ! !== Misc. Options ==! 469 473 !
Note: See TracChangeset
for help on using the changeset viewer.