Hello,
Sorry I had found a solution that seemed to work for Juliette but have forgotten to post the solution.
In the enclosed archive, you have two POINT_TELEMAC3D subroutines: the original one and one corrected to enable the hydrostatic pressure hypothesis with
SCHEME FOR DIFFUSION OF VELOCITIES = 0 called point_telemac3d_corr_bug_hydrostat_et_diff.f file.
The lines create the error are:
TYPDIA = '0'
IF (DIF(1) .OR. NONHYD) TYPDIA = 'Q'
TYPEXT = '0'
IF (DIF(1) .OR. NONHYD) TYPEXT = 'S'
CALL BIEF_ALLMAT (MDIFF, 'DIFF ',
* IELM3, IELM3, CFG, TYPDIA, TYPEXT,MESH3D)
and should be changed by:
TYPDIA = 'Q'
TYPEXT = 'S'
CALL BIEF_ALLMAT (MDIFF, 'DIFF ',
* IELM3, IELM3, CFG, TYPDIA, TYPEXT,MESH3D)
like in point_telemac3d_corr_bug_hydrostat_et_diff.f
Nevertheless, the non-hydrostatic version is strongly advised.
Hope this helps,
Chi-Tuan