Hi,
I've solved the problem.
In the borh subroutine, I've first inizialized variables in this way:
TETABT( : ) = TETAH
TETAPT( : ) = 0.D0
ALFAPT( : ) = 0.D0
RPT( : ) = 0.D0
HBT( : ) = 0.D0
then, I've re-defined them in the following wrong way:
DO 100 I = 1,154
LIHBOR%I(I) = KINC
HB%I(I) = 5.50D0
TETAB%I(I) = 90.D0
TETAP%I(I) = 0.D0
100 CONTINUE
... that was a "copy and paste" error!
Note that, writing a value different to 0.D0 for HBT, the program works, even if the wave height is only defined in the inizialization.
LC