- Timestamp:
- 2018-08-02T08:19:03+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/ZDF/zdftke.F90
r9939 r10023 392 392 ! ! TKE due to surface and internal wave breaking 393 393 ! !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 394 !!gm BUG : in the exp remove the depth of ssh !!! 394 !!gm BUG : in the exp remove the depth of ssh !!! ===>>> not sure of that 395 395 !!gm i.e. use gde3w in argument (pdepw) 396 396 … … 518 518 !!gm Not sure of that coding for ISF.... 519 519 ! where wmask = 0 set zmxlm == p_e3w 520 521 !!gm pdepw(ji,jj,mikt(ji,jj)+1) = ht_n .... 522 !!gm pdepw(ji,jj,mikt(ji,jj)) = ht_isf(:,:) + ssh(:,:,Nnn) 523 520 524 CASE ( 0 ) ! bounded by the distance to surface and bottom 521 525 DO jk = 2, jpkm1
Note: See TracChangeset
for help on using the changeset viewer.