open TELEMAC-MASCARET The mathematically superior suite of solvers

Hello,

I want to define a new keyword in Telemac-2d to read x, y, usce and vsce values of source points.
I have defined a STRING type keyword called "LOCATION AND DIRECTION OF SOURCES".

First, I added the definition in telemac2d.dico, give the INDEX number and MNEMO:
,,,
NOM = 'LOCATION AND DIRECTION OF SOURCES'
NOM1 = 'LOCATION AND DIRECTION OF SOURCES'
TYPE = STRING
INDEX = 120
TAILLE = 1
SUBMIT = 'T2DVEFLD-READ;T2DVEFLD'
DEFAUT = ''
DEFAUT1 = ''
MNEMO = 'T2D\_FILES(T2DVEFLD)%NAME'
RUBRIQUE =
'SOURCES'
RUBRIQUE1 =
'SOURCES'
NIVEAU = 1
AIDE =
'Name of the file containing
information on location and direction of sources'
AIDE1 =
'Name of the file containing
information on location and direction of sources'
,,,

Then, I declared T2DVEFLD in declarations_telemac2d.f like: (integer because the T2DVEF which is for SOURCES FILE is also defined as integer)
,,,
INTEGER T2DVEFLD
,,,

Then, I add a line in lecdon_telemac2d.f to get the value for the keyword:
,,,
T2D_FILES(T2DVEFLD)%NAME=MOTCAR( ADRESS(4,120) )
,,,

however it gives the following error:
... hmm, this is embarrassing. I do not know what to do with LOCATION AND DIRECTION OF SOURCES


I wonder if you can help me with this problem.

Thank you so much

Hi
In the dico there is alos a list of file at the end which needs to be updated if you add a new file.

Regards

Hi,

Thank you for your message.
I already added it however I am getting new error message as:

... reading the main module dictionary
unknown key 'SECTIONS INPUT FILE'; 'SECTIONS OUTPUT FILE'; 'OIL SPILL STEERING FILE'; 'HARMONIC CONSTANTS FILE'; 'TIDAL MODEL FILE'; 'ASCII DATABASE FOR TIDE'; 'BINARY DATABASE 1 FOR TIDE'; 'BINARY DATABASE 2 FOR TIDE'; 'WEIRS DATA FILE'; 'SIPHONS DATA FILE'; 'CULVERTS DATA FILE'; 'BREACHES DATA FILE'; 'DROGUES FILE'; 'ZONES FILE'; 'FLUXLINE INPUT FILE'; 'ASCII ATMOSPHERIC DATA FILE'; 'BINARY ATMOSPHERIC DATA FILE' MNEMO = '' RUBRIQUE = 'INTERNAL';'';'' RUBRIQUE1 = 'INTERNAL';'';'' NIVEAU = 100 AIDE = 'Noms des fichiers exploites par le code' AIDE1 = 'File names of the used files' NOM = 'DESCRIPTION DES LIBRAIRIES' NOM1 = 'DESCRIPTION OF LIBRARIES' TYPE = STRING INDEX = 54 TAILLE = 11 DEFAUT = 'builds|PPP|lib|telemac2dMMMVVV.LLL'; 'builds|PPP|lib|sisypheMMMVVV.LLL'; 'builds|PPP|lib|tomawacMMMVVV.LLL'; 'builds|PPP|lib|nestorMMMVVV.LLL'; 'builds|PPP|lib|waqtelMMMVVV.LLL'; 'builds|PPP|lib|stbtelMMMVVV.LLL'; 'builds|PPP|lib|biefMMMVVV.LLL'; 'builds|PPP|lib|hermesMMMVVV.LLL'; 'builds|PPP|lib|damoMMMVVV.LLL'; 'builds|PPP|lib|parallelMMMVVV.LLL'; 'builds|PPP|lib|specialMMMVVV.LLL' DEFAUT1 = 'builds|PPP|lib|telemac2dMMMVVV.LLL'; 'builds|PPP|lib|sisypheMMMVVV.LLL'; 'builds|PPP|lib|tomawacMMMVVV.LLL'; 'builds|PPP|lib|nestorMMMVVV.LLL'; 'builds|PPP|lib|waqtelMMMVVV.LLL'; 'builds|PPP|lib|stbtelMMMVVV.LLL'; 'builds|PPP|lib|biefMMMVVV.LLL'; 'builds|PPP|lib|hermesMMMVVV.LLL'; 'builds|PPP|lib|damoMMMVVV.LLL'; 'builds|PPP|lib|parallelMMMVVV.LLL'; 'builds|PPP|lib|specialMMMVVV.LLL' MNEMO = 'LINKLIBS' RUBRIQUE = 'INTERNAL';'';'' RUBRIQUE1 = 'INTERNAL';'';'' NIVEAU = 1 AIDE = 'Description des librairies de T2D' AIDE1 = 'LIBRARIES description' NOM = 'EXECUTABLE PAR DEFAUT' NOM1 = 'DEFAULT EXECUTABLE' TYPE = STRING INDEX = 57 TAILLE = 1 DEFAUT = 'builds|PPP|bin|telemac2dMMMVVV.exe' DEFAUT1 = 'builds|PPP|bin|telemac2dMMMVVV.exe' MNEMO = 'EXEDEF' RUBRIQUE = 'INTERNAL';'';'' RUBRIQUE1 = 'INTERNAL';'';'' NIVEAU = 100 AIDE = 'Executable par defaut de T2D' AIDE1 = 'Default executable for T2D' NOM = 'EXECUTABLE PARALLELE PAR DEFAUT' NOM1 = 'DEFAULT PARALLEL EXECUTABLE' TYPE = STRING INDEX = 58 TAILLE = 1 DEFAUT = 'builds|PPP|bin|telemac2dMMMVVV.exe' DEFAUT1 = 'builds|PPP|bin|telemac2dMMMVVV.exe' MNEMO = 'EXEDEFPARA' RUBRIQUE = 'INTERNAL';'';'' RUBRIQUE1 = 'INTERNAL';'';'' NIVEAU = 100 AIDE = 'Executable parallele par defaut de T2D' AIDE1 = 'Default parallel executable for T2D' 'SECTIONS INPUT FILE'; 'SECTIONS OUTPUT FILE'; 'OIL SPILL STEERING FILE'; 'HARMONIC CONSTANTS FILE'; 'TIDAL MODEL FILE'; 'ASCII DATABASE FOR TIDE'; 'BINARY DATABASE 1 FOR TIDE'; 'BINARY DATABASE 2 FOR TIDE'; 'WEIRS DATA FILE'; 'SIPHONS DATA FILE'; 'CULVERTS DATA FILE'; 'BREACHES DATA FILE'; 'DROGUES FILE'; 'ZONES FILE'; 'FLUXLINE INPUT FILE'; 'ASCII ATMOSPHERIC DATA FILE'; 'BINARY ATMOSPHERIC DATA FILE' MNEMO = '' RUBRIQUE = 'INTERNAL';'';'' RUBRIQUE1 = 'INTERNAL';'';'' NIVEAU = 100 AIDE = 'Noms des fichiers exploites par le code' AIDE1 = 'File names of the used files' NOM = 'DESCRIPTION DES LIBRAIRIES' NOM1 = 'DESCRIPTION OF LIBRARIES' TYPE = STRING INDEX = 54 TAILLE = 11 DEFAUT = 'builds|PPP|lib|telemac2dMMMVVV.LLL'; 'builds|PPP|lib|sisypheMMMVVV.LLL'; 'builds|PPP|lib|tomawacMMMVVV.LLL'; 'builds|PPP|lib|nestorMMMVVV.LLL'; 'builds|PPP|lib|waqtelMMMVVV.LLL'; 'builds|PPP|lib|stbtelMMMVVV.LLL'; 'builds|PPP|lib|biefMMMVVV.LLL'; 'builds|PPP|lib|hermesMMMVVV.LLL'; 'builds|PPP|lib|damoMMMVVV.LLL'; 'builds|PPP|lib|parallelMMMVVV.LLL'; 'builds|PPP|lib|specialMMMVVV.LLL' DEFAUT1 = 'builds|PPP|lib|telemac2dMMMVVV.LLL'; 'builds|PPP|lib|sisypheMMMVVV.LLL'; 'builds|PPP|lib|tomawacMMMVVV.LLL'; 'builds|PPP|lib|nestorMMMVVV.LLL'; 'builds|PPP|lib|waqtelMMMVVV.LLL'; 'builds|PPP|lib|stbtelMMMVVV.LLL'; 'builds|PPP|lib|biefMMMVVV.LLL'; 'builds|PPP|lib|hermesMMMVVV.LLL'; 'builds|PPP|lib|damoMMMVVV.LLL'; 'builds|PPP|lib|parallelMMMVVV.LLL'; 'builds|PPP|lib|specialMMMVVV.LLL' MNEMO = 'LINKLIBS' RUBRIQUE = 'INTERNAL';'';'' RUBRIQUE1 = 'INTERNAL';'';'' NIVEAU = 1 AIDE = 'Description des librairies de T2D' AIDE1 = 'LIBRARIES description' NOM = 'EXECUTABLE PAR DEFAUT' NOM1 = 'DEFAULT EXECUTABLE' TYPE = STRING INDEX = 57 TAILLE = 1 DEFAUT = 'builds|PPP|bin|telemac2dMMMVVV.exe' DEFAUT1 = 'builds|PPP|bin|telemac2dMMMVVV.exe' MNEMO = 'EXEDEF' RUBRIQUE = 'INTERNAL';'';'' RUBRIQUE1 = 'INTERNAL';'';'' NIVEAU = 100 AIDE = 'Executable par defaut de T2D' AIDE1 = 'Default executable for T2D' NOM = 'EXECUTABLE PARALLELE PAR DEFAUT' NOM1 = 'DEFAULT PARALLEL EXECUTABLE' TYPE = STRING INDEX = 58 TAILLE = 1 DEFAUT = 'builds|PPP|bin|telemac2dMMMVVV.exe' DEFAUT1 = 'builds|PPP|bin|telemac2dMMMVVV.exe' MNEMO = 'EXEDEFPARA' RUBRIQUE = 'INTERNAL';'';'' RUBRIQUE1 = 'INTERNAL';'';'' NIVEAU = 100 AIDE = 'Executable parallele par defaut de T2D' AIDE1 = 'Default parallel executable for T2D'