Changeset 710 for trunk/NEMO/OPA_SRC/ZDF/zdfkpp.F90
- Timestamp:
- 2007-10-10T17:36:03+02:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/ZDF/zdfkpp.F90
r708 r710 475 475 zrhos = rhop(ji,jj,1) + zflageos * rau0 * ( 1. - tmask(ji,jj,1) ) 476 476 ! Friction velocity (zustar), at T-point : LMD94 eq. 2 477 ztx = 0.5 * ( taux(ji,jj) + taux(ji - 1, jj ) )478 zty = 0.5 * ( tauy(ji,jj) + tauy(ji , jj - 1) )477 ztx = 0.5 * ( utau(ji,jj) + utau(ji - 1, jj ) ) 478 zty = 0.5 * ( vtau(ji,jj) + vtau(ji , jj - 1) ) 479 479 ztau = SQRT( ztx * ztx + zty * zty ) 480 480 zustar(ji,jj) = SQRT( ztau / ( zrhos + epsln ) )
Note: See TracChangeset
for help on using the changeset viewer.