Changeset 12145 for NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA
- Timestamp:
- 2019-12-10T13:58:21+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/traadv_fct.F90
r11949 r12145 660 660 DO ji = fs_2, fs_jpim1 661 661 ikt = mikt(ji,jj) + 1 ! w-point below the 1st wet point 662 ikb = mbkt(ji,jj)! - above the last wet point662 ikb = MAX(mbkt(ji,jj), 2) ! - above the last wet point 663 663 ! 664 664 zwd (ji,jj,ikt) = 1._wp ! top
Note: See TracChangeset
for help on using the changeset viewer.