TELEMAC-MASCARET Forum: problem with fortran file of tide (1/1)

Welcome, Guest

TOPIC: problem with fortran file of tide

problem with fortran file of tide 8 years 7 months ago #21059

chandarrou

hello,
I am trying to compile my cas file of telemac 2D including a fortran file written in odre to modelise tide as a limit condition , I tried to modifie the file which exists in sources files of telemac but each time I get errors which seem linked to the syntax .
please where the problem is comming from?
the fortran file is joined
the error is:

1
Warning: Ignoring statement label in empty statement at (1)
t2dfort.f:16.5:

00098 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
     1
Warning: Ignoring statement label in empty statement at (1)
t2dfort.f:17.5:

00099 !| I              |-->| NUMBER OF THE LIQUID BOUNDARY.
     1
Warning: Ignoring statement label in empty statement at (1)
t2dfort.f:18.5:

00100 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
     1
Warning: Ignoring statement label in empty statement at (1)
t2dfort.f:19.5:

00101 !
     1
Warning: Ignoring statement label in empty statement at (1)
t2dfort.f:20.72:

00102       USE BIEF
                                                                        1
t2dfort.f:1.72:

00083                      DOUBLE PRECISION FUNCTION Q
                                                                        2
Error: USE statement at (1) cannot follow data declaration statement at (2)
t2dfort.f:21.72:

00103       USE DECLARATIONS_TELEMAC
                                                                        1
t2dfort.f:1.72:

00083                      DOUBLE PRECISION FUNCTION Q
                                                                        2
Error: USE statement at (1) cannot follow data declaration statement at (2)
t2dfort.f:22.72:

00104       USE DECLARATIONS_TELEMAC2D
                                                                        1
t2dfort.f:1.72:

00083                      DOUBLE PRECISION FUNCTION Q
                                                                        2
Error: USE statement at (1) cannot follow data declaration statement at (2)
t2dfort.f:23.72:

00105       USE INTERFACE_TELEMAC2D, EX_Q => Q
                                                                        1
t2dfort.f:1.72:

00083                      DOUBLE PRECISION FUNCTION Q
                                                                        2
Error: USE statement at (1) cannot follow data declaration statement at (2)
t2dfort.f:24.5:

00106 !
     1
Warning: Ignoring statement label in empty statement at (1)
t2dfort.f:25.72:

00107       IMPLICIT NONE
                                                                        1
t2dfort.f:1.72:

00083                      DOUBLE PRECISION FUNCTION Q
                                                                        2
Error: IMPLICIT NONE statement at (1) cannot follow data declaration statement a
t (2)
t2dfort.f:28.5:

00110 !
     1
Warning: Ignoring statement label in empty statement at (1)
t2dfort.f:29.5:

00111 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
     1
Warning: Ignoring statement label in empty statement at (1)
t2dfort.f:30.5:

00112 !
     1
Warning: Ignoring statement label in empty statement at (1)
t2dfort.f:32.5:

00114 !
     1
Warning: Ignoring statement label in empty statement at (1)
t2dfort.f:33.5:

00115 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
     1
Warning: Ignoring statement label in empty statement at (1)
t2dfort.f:34.5:

00116 !
     1
Warning: Ignoring statement label in empty statement at (1)
t2dfort.f:40.5:

00122 !
     1
Warning: Ignoring statement label in empty statement at (1)
t2dfort.f:41.5:

00123 !     FIRST CALL, OK INITIALISED TO .TRUE.
     1
Warning: Ignoring statement label in empty statement at (1)
t2dfort.f:42.5:

00124 !
     1
Warning: Ignoring statement label in empty statement at (1)
t2dfort.f:49.5:

00131 !
     1
Warning: Ignoring statement label in empty statement at (1)
t2dfort.f:50.5:

00132 !     IF LIQUID BOUNDARY FILE EXISTS, ATTEMPTS TO FIND
     1
Warning: Ignoring statement label in empty statement at (1)
t2dfort.f:51.5:

00133 !     THE VALUE IN IT. IF YES, OK REMAINS TO .TRUE. FOR NEXT CALLS
     1
Warning: Ignoring statement label in empty statement at (1)
t2dfort.f:52.5:

00134 !                      IF  NO, OK IS SET  TO .FALSE.
     1
Warning: Ignoring statement label in empty statement at (1)
t2dfort.f:53.5:

00135 !
     1
Warning: Ignoring statement label in empty statement at (1)
t2dfort.f:54.42:

00136       IF(OK(I).AND.T2D_FILES(T2DIMP)%NAME(1:1).NE.' ') THEN
                                          1
Error: Syntax error in IF-expression at (1)
t2dfort.f:55.5:

00137 !
     1
Warning: Ignoring statement label in empty statement at (1)
t2dfort.f:56.5:

00138 !       FCT WILL BE Q(1), Q(2), ETC, Q(99), DEPENDING ON I
     1
Warning: Ignoring statement label in empty statement at (1)
t2dfort.f:65.29:

00147           WRITE(LU,*) 'Q NOT PROGRAMMED FOR MORE THAN 99 BOUNDARIE
                             1
Error: Unterminated character constant beginning at (1)
t2dfort.f:69.23:

00151         IF(EQUA(1:15).NE.'SAINT-VENANT VF') THEN
                       1
Error: Syntax error in argument list at (1)
t2dfort.f:70.72:

00152           CALL READ_FIC_FRLIQ(Q1,FCT,AT-DT,
                                                                        1
Error: Syntax error in argument list at (1)
t2dfort.f:71.34:

00153                             T2D_FILES(T2DIMP)%LU,ENTET,OK(I))
                                  1
Error: Unclassifiable statement at (1)
t2dfort.f:72.72:

00154           CALL READ_FIC_FRLIQ(Q2,FCT,AT   ,
                                                                        1
Error: Syntax error in argument list at (1)
t2dfort.f:73.35:

00155                              T2D_FILES(T2DIMP)%LU,ENTET,OK(I))
                                   1
Error: Unclassifiable statement at (1)
t2dfort.f:75.72:

00157         ELSE
                                                                        1
Error: Unexpected ELSE statement at (1)
t2dfort.f:76.72:

00158           CALL READ_FIC_FRLIQ(Q,FCT,AT   ,
                                                                        1
Error: Syntax error in argument list at (1)
t2dfort.f:77.35:

00159                              T2D_FILES(T2DIMP)%LU,ENTET,OK(I))
                                   1
Error: Unclassifiable statement at (1)
t2dfort.f:78.17:

00160         ENDIF
                 1
Error: Expecting END PROGRAM statement at (1)
t2dfort.f:79.5:

00161 !
     1
Warning: Ignoring statement label in empty statement at (1)
t2dfort.f:80.15:

00162       ENDIF
               1
Error: Expecting END PROGRAM statement at (1)
t2dfort.f:81.5:

00163 !
     1
Warning: Ignoring statement label in empty statement at (1)
t2dfort.f:82.46:

00164       IF(.NOT.OK(I).OR.T2D_FILES(T2DIMP)%NAME(1:1).EQ.' ') THEN
                                              1
Error: Syntax error in IF-expression at (1)
t2dfort.f:83.5:

00165 !
     1
Warning: Ignoring statement label in empty statement at (1)
t2dfort.f:84.5:

00166 !     PROGRAMMABLE PART
     1
Warning: Ignoring statement label in empty statement at (1)
t2dfort.f:85.5:

00167 !     Q IS TAKEN FROM THE STEERING FILE, BUT MAY BE CHANGED
     1
Warning: Ignoring statement label in empty statement at (1)
t2dfort.f:86.5:

00168 !
     1
Warning: Ignoring statement label in empty statement at (1)
t2dfort.f:92.72:

00173        FORMAT(1X,/,1X,'Q : DEBITS IMPOSES',/,
                                                                        1
Error: Unexpected end of format string in format string at (1)
t2dfort.f:93.28:

00174                      1X,'    EN NOMBRE INSUFFISANT',/,
                            1
Error: Invalid character in name at (1)
t2dfort.f:94.28:

00175                      1X,'    DANS LE FICHIER DES PARAMETRES',/,
                            1
Error: Invalid character in name at (1)
t2dfort.f:95.28:

00176                      1X,'    IL EN FAUT AU MOINS : ',1I6)
                            1
Error: Invalid character in name at (1)
t2dfort.f:97.72:

00178       FORMAT(1X,/,1X,'Q : MORE PRESCRIBED FLOWRATES',/,
                                                                        1
Error: Unexpected end of format string in format string at (1)
t2dfort.f:98.28:

00179                      1X,'    ARE REQUIRED IN THE PARAMETER FILE',/
                            1
Error: Invalid character in name at (1)
t2dfort.f:99.28:

00180                      1X,'    AT LEAST ',1I6,' MUST BE GIVEN')
                            1
Error: Invalid character in name at (1)
Fatal Error: Error count reached limit of 25.
runCAS: could not compile: maree.exe
   |processExecutable: could not compile your FORTRAN (runcode=1).
   |
   |... The following command failed for the reason above (or below)
   |gfortran -c -O3 -fopenmp -fconvert=big-endian -frecord-marker=4  -I C:\opent
elemac-mascaret\v7p1\builds\win7gfors\lib\utils\special  -I C:\opentelemac-masca
ret\v7p1\builds\win7gfors\lib\utils\parallel  -I C:\opentelemac-mascaret\v7p1\bu
ilds\win7gfors\lib\utils\damocles  -I C:\opentelemac-mascaret\v7p1\builds\win7gf
ors\lib\utils\hermes  -I C:\opentelemac-mascaret\v7p1\builds\win7gfors\lib\utils
\bief  -I C:\opentelemac-mascaret\v7p1\builds\win7gfors\lib\waqtel  -I C:\opente
lemac-mascaret\v7p1\builds\win7gfors\lib\sisyphe  -I C:\opentelemac-mascaret\v7p
1\builds\win7gfors\lib\tomawac  -I C:\opentelemac-mascaret\v7p1\builds\win7gfors
\lib\telemac2d   t2dfort.f
   |

C:\opentelemac-mascaret\v7p1\scripts\python27>

Attachments:

TIDE.txt (2KB)

The administrator has disabled public write access.

problem with fortran file of tide 8 years 7 months ago #21070

c.coulet OFFLINE Moderator Posts: 3722 Thank you received: 1031	Hi Are you familiar with fortran coding? In Telemac, we use fortran 77 rules. Lines should start at column 7 this is why you encountered these messages
	Christophe The administrator has disabled public write access.

problem with fortran file of tide 8 years 7 months ago #21077

chandarrou	thank you but the problem still unresolved I understood from what you said that my fortran file should be rewrited following for77 rules ??
	The administrator has disabled public write access.

problem with fortran file of tide 8 years 6 months ago #21080

c.coulet OFFLINE Moderator Posts: 3722 Thank you received: 1031	Hi Just start from sl.f file. Copy it in your working directory and rename it tide.f. Try to run Telemac to check if the compilation is OK If yes, add yoru modification in this file Hope this helps
	Christophe The administrator has disabled public write access.

problem with fortran file of tide 8 years 6 months ago #21082

chandarrou	thank you very mutch It's working know well but I please i have two other questions : first :i want to be sure that the way withing i can specify my liquid boundary into the tide programm is the following : IF (I.EQ.3) THEN ! frontiere 3 entrée de la marée SL=3.95D0sin(2D03.14/46800*AT) endif second why using distributif schemes I should reduce time step untel unlogical values !? thank you
	The administrator has disabled public write access.

problem with fortran file of tide 8 years 6 months ago #21083

c.coulet
OFFLINE
Moderator
Posts: 3722
Thank you received: 1031

Hi

Except if you have many boundary with free surface imposed, I think it's not necessary to precise IF (I.EQ.3) THEN

This kind of use could probably be more simple if you use a liquid boundary condition file in which you give the time and the water level under the form of 2 columns file.
This will allow you to generate the tide signal out of telemac (in Excel for exemple) and check the signal values. In general, user prefer defining a local variable PI =ATAN (1.D0) instead of using 3.14...

There is no particular reasons to reduce time step to unlogical values. This is not linked to the distributive scheme. It looks like a problem of consistency between initial condition and boundary condition at the beginning.

Regards

Christophe

The administrator has disabled public write access.