Changeset 15372 for NEMO/trunk/src/OCE/SBC
- Timestamp:
- 2021-10-14T17:47:24+02:00 (3 years ago)
- Location:
- NEMO/trunk/src/OCE/SBC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/SBC/sbc_oce.F90
r14227 r15372 106 106 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: utau , utau_b !: sea surface i-stress (ocean referential) [N/m2] 107 107 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: vtau , vtau_b !: sea surface j-stress (ocean referential) [N/m2] 108 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: utau_icb, vtau_icb !: sea surface (i,j)-stress used by icebergs [N/m2] 108 109 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: taum !: module of sea surface stress (at T-point) [N/m2] 109 110 !! wndm is used compute surface gases exchanges in ice-free ocean or leads -
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.