Changeset 9099
- Timestamp:
- 2017-12-15T18:40:06+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90
r9094 r9099 540 540 ! converte into REAL to use lbc_lnk ; impose a min value of 1 as a zero can be set in lbclnk 541 541 zmbku(:,:) = REAL( mbku_d(:,:), wp ) ; zmbkv(:,:) = REAL( mbkv_d(:,:), wp ) 542 CALL lbc_lnk_multi( zmbku,'U',1., zmbk ,'V',1.)542 CALL lbc_lnk_multi( zmbku,'U',1., zmbkv,'V',1.) 543 543 mbku_d(:,:) = MAX( INT( zmbku(:,:) ), 1 ) ; mbkv_d(:,:) = MAX( INT( zmbkv(:,:) ), 1 ) 544 544 !
Note: See TracChangeset
for help on using the changeset viewer.