- Timestamp:
- 2014-07-23T18:27:21+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO2_ice_shelves/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90
r4666 r4726 420 420 #endif 421 421 ik = mbkt(ji,jj) ! bottom T-level index 422 ztb (ji,jj) = tsb(ji,jj,ik,jp_tem) * lmask(ji,jj) ! bottom before T and S423 zsb (ji,jj) = tsb(ji,jj,ik,jp_sal) * lmask(ji,jj)422 ztb (ji,jj) = tsb(ji,jj,ik,jp_tem) * ssmask(ji,jj) ! bottom before T and S 423 zsb (ji,jj) = tsb(ji,jj,ik,jp_sal) * ssmask(ji,jj) 424 424 zdep(ji,jj) = gdept_0(ji,jj,ik) ! bottom T-level reference depth 425 425 !
Note: See TracChangeset
for help on using the changeset viewer.