I found some possible typos in Adjoint/ad_u3dbc_im.F and Tangent/tl_u3dbc_im.F
First, in Adjoint/ad_u3dbc_im.F, I suspect line 166, 168, 292, 294, 420 and 422.
For example in line 166, it is now
Code: Select all
tau=M3obc_in(inorth)
Code: Select all
tau=M3obc_in(ng,inorth)
And almost same suspicious typos are in Tangent/tl_u3dbc_im.F.
They are in line 225, 227, 344, 346, 475 and 477.
I think 'ng' is missing in those lines as above.
Another suspicious typo in Tangent/tl_u3dbc_im.F is in line 99.
I guess
Code: Select all
DO k=1,N(ng)(ng)
Code: Select all
DO k=1,N(ng)