open TELEMAC-MASCARET The mathematically superior suite of solvers

Bonjour,

J'essaie d'utiliser Artemis, mais je ne comprends pas une ligne du fichier Fortran du cas creocean.

Pouvez-vous me dire à quoi correspondent les caractères suivants: DO 10 I = 1,1029 ?

De plus, est-il important d'écrire la ligne suivante: write(*,*) 'je suis dans bord1' ?

Merci.

Hi

First of all, as indicates on the forum rules, please use English on this forum. It allows the answers of the most part of users and this could help other users later.

About this test case.
The line with write is just place here to allow the user to check the program run and pass in this modified subroutine. This is not necessary for the run.

The DO line is a loop on the boundary nodes. to assign different values (H, TETA...) to all boundary nodes.

Regards

Hello,

DO 10 I=1,1029
...
10 CONTINUE

is an old way to write loops in Fortran, it is equivalent to:

DO I=1,1029
...
ENDDO

write(*,*) 'je suis dans bord1'

is not important, it is just to check that the present subroutine is called, I would prefer:

write(LU,*) 'je suis dans bord1'

because in parallel only the messages from processor 0 are kept.

Regards,

Jean-Michel Hervouet