- Timestamp:
- 2015-05-18T17:19:50+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5056_CMCC4_simplification/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90
r4990 r5282 362 362 DO ji = 1, jpi 363 363 ik = mbkt(ji,jj) ! bottom T-level index 364 zts 365 zts 364 zts(ji,jj,jp_tem) = tsb(ji,jj,ik,jp_tem) ! bottom before T and S 365 zts(ji,jj,jp_sal) = tsb(ji,jj,ik,jp_sal) 366 366 ! 367 367 zdep(ji,jj) = fsdept(ji,jj,ik) ! bottom T-level reference depth 368 zub 369 zvb 368 zub(ji,jj) = un(ji,jj,mbku(ji,jj)) ! bottom velocity 369 zvb(ji,jj) = vn(ji,jj,mbkv(ji,jj)) 370 370 END DO 371 371 END DO
Note: See TracChangeset
for help on using the changeset viewer.