Changeset 7428
- Timestamp:
- 2016-12-01T19:03:22+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90
r7421 r7428 117 117 IF( ln_bdy .AND. ln_mask_file ) THEN 118 118 CALL iom_open( cn_mask_file, inum ) 119 CALL iom_get ( inum, jpdom_unknown, 'bdy_msk', zdta(:,:) , kstart=(/jpizoom,jpjzoom/), kcount=(/jpiglo,jpjglo/))119 CALL iom_get ( inum, jpdom_unknown, 'bdy_msk', zdta(:,:) ) 120 120 CALL iom_close( inum ) 121 121 WHERE ( zdta(:,:) <= 0. ) imask = 0
Note: See TracChangeset
for help on using the changeset viewer.