Changeset 13295 for NEMO/trunk/src/OCE/SBC/sbcflx.F90
- Timestamp:
- 2020-07-10T20:24:21+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/SBC/sbcflx.F90
r13226 r13295 129 129 ELSE ; qsr(:,:) = sf(jp_qsr)%fnow(:,:,1) 130 130 ENDIF 131 DO_2D _11_11131 DO_2D( 1, 1, 1, 1 ) 132 132 utau(ji,jj) = sf(jp_utau)%fnow(ji,jj,1) 133 133 vtau(ji,jj) = sf(jp_vtau)%fnow(ji,jj,1) … … 143 143 ! ! module of wind stress and wind speed at T-point 144 144 zcoef = 1. / ( zrhoa * zcdrag ) 145 DO_2D _00_00145 DO_2D( 0, 0, 0, 0 ) 146 146 ztx = utau(ji-1,jj ) + utau(ji,jj) 147 147 zty = vtau(ji ,jj-1) + vtau(ji,jj)
Note: See TracChangeset
for help on using the changeset viewer.