Skip to content
Snippets Groups Projects
Commit e9a31456 authored by Sebastien Masson's avatar Sebastien Masson
Browse files

Merge branch '17-fix-if-mbku-v-f-are-read-in-the-domcfg-file' into 'main'

Resolve "fix if mbku, v, f are read in the domcfg file"

Closes #17

See merge request nemo/core!27
parents 2a26fa92 aa132d05
No related branches found
No related tags found
No related merge requests found
...@@ -329,11 +329,11 @@ CONTAINS ...@@ -329,11 +329,11 @@ CONTAINS
! !
IF( iom_varid( inum, 'mbku', ldstop = .FALSE. ) > 0 ) THEN IF( iom_varid( inum, 'mbku', ldstop = .FALSE. ) > 0 ) THEN
IF(lwp) WRITE(numout,*) ' mbku, mbkv & mbkf read in ', TRIM(cn_domcfg), ' file' IF(lwp) WRITE(numout,*) ' mbku, mbkv & mbkf read in ', TRIM(cn_domcfg), ' file'
CALL iom_get( inum, jpdom_global, 'mbku', z2d ) CALL iom_get( inum, jpdom_global, 'mbku', z2d, cd_type = 'U', psgn = 1._wp, kfill = jpfillcopy )
k_bot_u(:,:) = NINT( z2d(:,:) ) k_bot_u(:,:) = NINT( z2d(:,:) )
CALL iom_get( inum, jpdom_global, 'mbkv', z2d ) CALL iom_get( inum, jpdom_global, 'mbkv', z2d, cd_type = 'V', psgn = 1._wp, kfill = jpfillcopy )
k_bot_v(:,:) = NINT( z2d(:,:) ) k_bot_v(:,:) = NINT( z2d(:,:) )
CALL iom_get( inum, jpdom_global, 'mbkf', z2d ) CALL iom_get( inum, jpdom_global, 'mbkf', z2d, cd_type = 'F', psgn = 1._wp, kfill = jpfillcopy )
k_bot_f(:,:) = NINT( z2d(:,:) ) k_bot_f(:,:) = NINT( z2d(:,:) )
k_mbkuvf = 1 k_mbkuvf = 1
ELSE ELSE
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment