Changeset 13295 for NEMO/trunk/src/OCE/DOM/domzgr.F90
- Timestamp:
- 2020-07-10T20:24:21+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/DOM/domzgr.F90
r13286 r13295 168 168 ! 169 169 ! ! ice shelf draft and bathymetry 170 DO_2D _11_11170 DO_2D( 1, 1, 1, 1 ) 171 171 ikt = mikt(ji,jj) 172 172 ikb = mbkt(ji,jj) … … 331 331 ! ! N.B. top k-index of W-level = mikt 332 332 ! ! bottom k-index of W-level = mbkt+1 333 DO_2D _10_10333 DO_2D( 1, 0, 1, 0 ) 334 334 miku(ji,jj) = MAX( mikt(ji+1,jj ) , mikt(ji,jj) ) 335 335 mikv(ji,jj) = MAX( mikt(ji ,jj+1) , mikt(ji,jj) )
Note: See TracChangeset
for help on using the changeset viewer.