Skip to content
Snippets Groups Projects
Commit 7f62429c authored by Tomas Lovato's avatar Tomas Lovato
Browse files

fix bdy segment index association of sf_trcobc

parent 53d639a5
No related branches found
No related tags found
6 merge requests!655Resolve "Remove local working arrays and subroutine arguments that are no...,!453Resolve "minor bug in sbc_blk",!339Draft: Resolve "New Implementation: FormDrag in SI3 for NEMOv4.2.0",!327Resolve "DOMAINcfg does not compile with DOMAINcfg + AGRIF not compiling anymore with branch 4.2",!324Draft: Resolve "DOMAINcfg does not compile with DOMAINcfg + AGRIF not compiling anymore with branch 4.2",!163Resolve "revise TOP handling of BDY segments"
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 1 deletion
src/TOP/trcbc.F90
+ 1
− 1
View file @ 7f62429c
......@@ -287,7 +287,7 @@ CONTAINS
jl = n_trc_indobc(jn)
sf_trcobc(jl,ib)%imap => idx_bdy(ib)%nbmap(1:idx_bdy(ib)%nblen(igrd),igrd)
sf_trcobc(jl,ib)%igrd = igrd
sf_trcobc(jl,ib)%igrd = ib
sf_trcobc(jl,ib)%ibdy = ib
sf_trcobc(jl,ib)%lzint = ln_zintobc(ib) ! vertical interpolation
ENDIF
END DO
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment