Changeset 4990 for trunk/NEMOGCM/NEMO/OFF_SRC/domrea.F90
- Timestamp:
- 2014-12-15T17:42:49+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OFF_SRC/domrea.F90
r4569 r4990 164 164 165 165 CALL iom_get( inum4, jpdom_data, 'mbathy', zmbk ) ! number of ocean t-points 166 mbathy(:,:) = INT( zmbk(:,:) ) 166 mbathy (:,:) = INT( zmbk(:,:) ) 167 misfdep(:,:) = 1 ! ice shelf case not yet done 167 168 168 169 CALL zgr_bot_level ! mbk. arrays (deepest ocean t-, u- & v-points … … 371 372 ! 372 373 mbkt(:,:) = MAX( mbathy(:,:) , 1 ) ! bottom k-index of T-level (=1 over land) 374 mikt(:,:) = 1 ; miku(:,:) = 1; mikv(:,:) = 1; ! top k-index of T-level (=1 over open ocean; >1 beneath ice shelf) 373 375 ! ! bottom k-index of W-level = mbkt+1 374 376 DO jj = 1, jpjm1 ! bottom k-index of u- (v-) level
Note: See TracChangeset
for help on using the changeset viewer.