Changeset 13399 for NEMO/branches
- Timestamp:
- 2020-08-14T12:07:51+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser_4.0/src/OCE/ZDF/zdfosm.F90
r13398 r13399 409 409 zwbav(ji,jj) = grav * zthermal * zwthav(ji,jj) - grav * zbeta * zwsav(ji,jj) 410 410 ! Surface upward velocity fluxes 411 zuw0(ji,jj) = - utau(ji,jj) * r1_rau0 * tmask(ji,jj,1)412 zvw0(ji,jj) = - vtau(ji,jj) * r1_rau0 * tmask(ji,jj,1)411 zuw0(ji,jj) = - 0.5 * (utau(ji-1,jj) + utau(ji,jj)) * r1_rau0 * tmask(ji,jj,1) 412 zvw0(ji,jj) = - 0.5 * (vtau(ji,jj-1) + vtau(ji,jj)) * r1_rau0 * tmask(ji,jj,1) 413 413 ! Friction velocity (zustar), at T-point : LMD94 eq. 2 414 414 zustar(ji,jj) = MAX( SQRT( SQRT( zuw0(ji,jj) * zuw0(ji,jj) + zvw0(ji,jj) * zvw0(ji,jj) ) ), 1.0e-8 )
Note: See TracChangeset
for help on using the changeset viewer.