diff --git a/src/TOP/trcbc.F90 b/src/TOP/trcbc.F90 index 19d942bd6714cab5df679dd7f07c4f76cd7cb01e..151608e008dad022bdaee590b9ab26cf1b26bb13 100644 --- a/src/TOP/trcbc.F90 +++ b/src/TOP/trcbc.F90 @@ -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