Dear Jean-Michel/Christophe,
Thanks again for helping me with this case. I have tried Formul=3 and 4 in TRISOU subroutine, and 3 gives better results, the stratification is more stable at the beginning but then it still mixes. I have also tried Mesh Transformation=1 but it did not solve the problem and now I am trying Mesh Transformation=3, same example as in Telemac3d Operating Manual. I am trying to recreate same mesh as on Figure 4, page 30. I have used the code below for the start, jut to check. The total number of layers in my case is 10, but for some reasons below code gives only 5. As per below code, all 5 layers are unevenly spaced but it ignores the rest. See the picture of my mesh. I have specified Mesh transformation as 3, but in code below it is actually combination of 1,2 and 3. Looks like it is reading only option 2. Please advise how to amend the code so all 10 layers would apply. Thank you very much.
DO IPLAN = 1,5
TRANSF_PLANE%I(IPLAN)=2
ENDDO
ZSTAR%R(1)=0.D0
ZSTAR%R(2)=0.2D0
ZSTAR%R(3)=0.5D0
ZSTAR%R(4)=0.7D0
ZSTAR%R(5)=0.8D0
ZSTAR%R(6)=1.D0
DO IPLAN = 7,NPLAN
TRANSF_PLANE%I(IPLAN)=1
ENDDO
TRANSF_PLANE%I(6)=3
ZPLANE%R(6)=0.D0
Kind Regards!
Violeta