Changeset 9919 for NEMO/trunk/src/OCE/TRA/trabbl.F90
- Timestamp:
- 2018-07-10T17:07:05+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/TRA/trabbl.F90
r9598 r9919 526 526 zmbku(:,:) = REAL( mbku_d(:,:), wp ) ; zmbkv(:,:) = REAL( mbkv_d(:,:), wp ) 527 527 CALL lbc_lnk_multi( zmbku,'U',1., zmbkv,'V',1.) 528 mbku_d(:,:) = MAX( INT( zmbku(:,:) ), 1 ) ; mbkv_d(:,:) = MAX( INT( zmbkv(:,:) ), 1 )528 mbku_d(:,:) = MAX( INT( zmbku(:,:) ), 1 ) ; mbkv_d(:,:) = MAX( NINT( zmbkv(:,:) ), 1 ) 529 529 ! 530 530 ! !* sign of grad(H) at u- and v-points; zero if grad(H) = 0
Note: See TracChangeset
for help on using the changeset viewer.