MODTRS: Difference between revisions

Revision as of 05:34, 28 August 2006

MODULE

Übersicht

MODBEK

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_INI () RESULT (LOK)</HIGHLIGHTSYNTAX>

Initialisiere das Modul für Transportelemente

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_CREATE() RESULT (ID)</HIGHLIGHTSYNTAX>

Die nächste freie ID ermitteln

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_NEU () RESULT (LOK)</HIGHLIGHTSYNTAX>

Neues Transportelement-Objekt einrichten

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TFIK_NEU () RESULT (TypID)</HIGHLIGHTSYNTAX>

Neues Fiktives Transportelement

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TROR_NEU () RESULT (TypID)</HIGHLIGHTSYNTAX>

Neues Transportelement Typ Rohrleitung

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TGER_NEU () RESULT (TypID)</HIGHLIGHTSYNTAX>

Neues Transportelement Typ offenes Gerinne

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TKNL_NEU () RESULT (TypID)</HIGHLIGHTSYNTAX>

Neues Transportelement Typ Abflussbeziehung

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_LET_ATTRIB_INT () RESULT (IsOK)</HIGHLIGHTSYNTAX>

Ein Attribut setzen

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_SYS() RESULT(LOK)</HIGHLIGHTSYNTAX>

Neues Transportelement einrichten

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_START () RESULT (LOK)</HIGHLIGHTSYNTAX>

Anfangsbedingungen der Transportelemente setzen

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TFIK_START () RESULT(LOK)</HIGHLIGHTSYNTAX>

Translation Startbedingungen

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TROR_START () RESULT(LOK)</HIGHLIGHTSYNTAX>

Freispiegel Rohrleitung Startbedingungen

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TGER_START () RESULT(LOK)</HIGHLIGHTSYNTAX>

Offenes Gerinne Startbedingungen

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TKNL_START () RESULT(LOK)</HIGHLIGHTSYNTAX>

Kennlinien Gerinne Startbedingungen

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_WEL () RESULT(LOK)</HIGHLIGHTSYNTAX>

Transportelement berechnen

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TFIK_WEL () RESULT(LOK)</HIGHLIGHTSYNTAX>

Fiktives Transportelement berechnen

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TROR_WEL () RESULT(LOK)</HIGHLIGHTSYNTAX>

Freispiegel Rohrleitung berechnen

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TGER_WEL () RESULT(LOK)</HIGHLIGHTSYNTAX>

Offenes Gerinne berechnen

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TKNL_WEL () RESULT(LOK)</HIGHLIGHTSYNTAX>

Transportelement mit Kennlinie berechnen

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_CALC () RESULT(LOK)</HIGHLIGHTSYNTAX>

Methode: Berechne nicht-linearen Speicher

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_CALC_WSP () RESULT (WSPakt)</HIGHLIGHTSYNTAX>

Methode: Berechnet den Wasserstand

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_HEADWEL () RESULT (N)</HIGHLIGHTSYNTAX>

Transportelement Header für Output-File schreiben

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_OUTWEL () RESULT (N)</HIGHLIGHTSYNTAX>

Transportelement Ergebnis eines Zeitschrittes ausgeben

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_UPDATE () RESULT (LOK)</HIGHLIGHTSYNTAX>

Übergabe der letzten Zeitschrittwerte

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_GET_MAXSTZ () RESULT (NSTZ)</HIGHLIGHTSYNTAX>

Anzahl der Stützstellen der Kennlinie

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_GET_MAXTRANS () RESULT (N)</HIGHLIGHTSYNTAX>

Anzahl der Translationselemente fiktiver TRS

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_GET_TYP () RESULT (TYP)</HIGHLIGHTSYNTAX>

Typ des Transportelementes

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_GET_MQ () RESULT (MQ)</HIGHLIGHTSYNTAX>

Startabfluss

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_GET_QVOLL () RESULT (QVOLL)</HIGHLIGHTSYNTAX>

Maximale Leistung des Moduls

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_GET_KSTG () RESULT (KSTG)</HIGHLIGHTSYNTAX>

Strickler-Beiwert Gerinneschlauch

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_GET_KST () RESULT (KST)</HIGHLIGHTSYNTAX>

Strickler-Beiwert Gesamtgerinne

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_GET_KNL () RESULT (NSTZ)</HIGHLIGHTSYNTAX>

Kennlinie

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_GET_NAB () RESULT (NAB)</HIGHLIGHTSYNTAX>

Anzahl der Abläufe des Moduls

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_ANZ_WELVAR () RESULT (N)</HIGHLIGHTSYNTAX>

Anzahl der Ausgabevariablen

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_VERSION () RESULT (VERSION)</HIGHLIGHTSYNTAX>

Versionsnummer des Moduls

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_IDOK () RESULT (OK)</HIGHLIGHTSYNTAX>

Prüfung ob eine gegebene Kennung OK ist? (D.h. gibt's ein Objekt dazu ?)

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_IDObj () RESULT (objptr)</HIGHLIGHTSYNTAX>

Objekt zu einer ID

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TFIK_obj () RESULT (objptr)</HIGHLIGHTSYNTAX>

Objekt zu einer ID

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TROR_obj () RESULT (objptr)</HIGHLIGHTSYNTAX>

Objekt zu einer ID

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TGER_obj () RESULT (objptr)</HIGHLIGHTSYNTAX>

Objekt zu einer ID

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TKNL_obj () RESULT (objptr)</HIGHLIGHTSYNTAX>

Objekt zu einer ID

<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_TEST () RESULT (i)</HIGHLIGHTSYNTAX>

Testumgebung

@@ Line 1: / Line 1: @@
-*FUNCTION TRS_INI () RESULT (LOK)<br/>Initialisiere das Modul fuer Transportelemente
+{{BlauesModell Module}}
-*FUNCTION TRS_CREATE() RESULT (ID)<br/>Die naechste freie ID ermitteln
-*FUNCTION TRS_NEU () RESULT (LOK)<br/>Neues Transportelement-Objekt einrichten
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_INI () RESULT (LOK)</HIGHLIGHTSYNTAX>
-*FUNCTION TFIK_NEU () RESULT (TypID)<br/>Neues Fiktives Transportelement
+:Initialisiere das Modul für Transportelemente
-*FUNCTION TROR_NEU () RESULT (TypID)<br/>Neues Transportelement Typ Rohrleitung
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_CREATE() RESULT (ID)</HIGHLIGHTSYNTAX>
-*FUNCTION TGER_NEU () RESULT (TypID)<br/>Neues Transportelement Typ offenes Gerinne
+:Die nächste freie ID ermitteln
-*FUNCTION TKNL_NEU () RESULT (TypID)<br/>Neues Transportelement Typ Abflussbeziehung
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_NEU () RESULT (LOK)</HIGHLIGHTSYNTAX>
-*FUNCTION TRS_LET_ATTRIB_INT () RESULT (IsOK)<br/>Ein Attribut setzen
+:Neues Transportelement-Objekt einrichten
-*FUNCTION TRS_SYS() RESULT(LOK)<br/>Neues Transportelement einrichten
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TFIK_NEU () RESULT (TypID)</HIGHLIGHTSYNTAX>
-*FUNCTION TRS_START () RESULT (LOK)<br/>Anfangsbedingungen der Transportelemente setzen
+:Neues Fiktives Transportelement
-*FUNCTION TFIK_START () RESULT(LOK)<br/>Translation Startbedingungen
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TROR_NEU () RESULT (TypID)</HIGHLIGHTSYNTAX>
-*FUNCTION TROR_START () RESULT(LOK)<br/>Freispiegel Rohrleitung Startbedingungen
+:Neues Transportelement Typ Rohrleitung
-*FUNCTION TGER_START () RESULT(LOK)<br/>Offenes Gerinne Startbedingungen
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TGER_NEU () RESULT (TypID)</HIGHLIGHTSYNTAX>
-*FUNCTION TKNL_START () RESULT(LOK)<br/>Kennlinien Gerinne Startbedingungen
+:Neues Transportelement Typ offenes Gerinne
-*FUNCTION TRS_WEL () RESULT(LOK)<br/>Transportelement berechnen
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TKNL_NEU () RESULT (TypID)</HIGHLIGHTSYNTAX>
-*FUNCTION TFIK_WEL () RESULT(LOK)<br/>Fiktives Transportelement berechnen
+:Neues Transportelement Typ Abflussbeziehung
-*FUNCTION TROR_WEL () RESULT(LOK)<br/>Freispiegel Rohrleitung berechnen
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_LET_ATTRIB_INT () RESULT (IsOK)</HIGHLIGHTSYNTAX>
-*FUNCTION TGER_WEL () RESULT(LOK)<br/>Offenes Gerinne berechnen
+:Ein Attribut setzen
-*FUNCTION TKNL_WEL () RESULT(LOK)<br/>Transportelement mit Kennlinie berechnen
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_SYS() RESULT(LOK)</HIGHLIGHTSYNTAX>
-*FUNCTION TRS_CALC () RESULT(LOK)<br/>Methode: Berechne nicht-linearen Speicher
+:Neues Transportelement einrichten
-*FUNCTION TRS_CALC_WSP () RESULT (WSPakt)<br/>Methode: Berechnet den Wasserstand
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_START () RESULT (LOK)</HIGHLIGHTSYNTAX>
-*FUNCTION TRS_HEADWEL () RESULT (N)<br/>Transportelement Header fuer Output-File schreiben
+:Anfangsbedingungen der Transportelemente setzen
-*FUNCTION TRS_OUTWEL () RESULT (N)<br/>Transportelelement Ergebnis eines Zeitschrittes ausgeben
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TFIK_START () RESULT(LOK)</HIGHLIGHTSYNTAX>
-*FUNCTION TRS_UPDATE () RESULT (LOK)<br/>Uebergabe der letzten Zeitschrittwerte
+:Translation Startbedingungen
-*FUNCTION TRS_GET_MAXSTZ () RESULT (NSTZ)<br/>Anzahl der Stützstellen der Kennlinie
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TROR_START () RESULT(LOK)</HIGHLIGHTSYNTAX>
-*FUNCTION TRS_GET_MAXTRANS () RESULT (N)<br/>Anzahl der Translationselemente fiktiver TRS
+:Freispiegel Rohrleitung Startbedingungen
-*FUNCTION TRS_GET_TYP () RESULT (TYP)<br/>Typ des Transportelementes
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TGER_START () RESULT(LOK)</HIGHLIGHTSYNTAX>
-*FUNCTION TRS_GET_MQ () RESULT (MQ)<br/>Startabfluss
+:Offenes Gerinne Startbedingungen
-*FUNCTION TRS_GET_QVOLL () RESULT (QVOLL)<br/>Maximale Leistung des Moduls
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TKNL_START () RESULT(LOK)</HIGHLIGHTSYNTAX>
-*FUNCTION TRS_GET_KSTG () RESULT (KSTG)<br/>Strickler-Beiwert Gerinneschlauch
+:Kennlinien Gerinne Startbedingungen
-*FUNCTION TRS_GET_KST () RESULT (KST)<br/>Strickler-Beiwert Gesamtgerinne
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_WEL () RESULT(LOK)</HIGHLIGHTSYNTAX>
-*FUNCTION TRS_GET_KNL () RESULT (NSTZ)<br/>Kennlinie
+:Transportelement berechnen
-*FUNCTION TRS_GET_NAB () RESULT (NAB)<br/>Anzahl der Ablaeufe des Moduls
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TFIK_WEL () RESULT(LOK)</HIGHLIGHTSYNTAX>
-*FUNCTION TRS_ANZ_WELVAR () RESULT (N)<br/>Anzahl der Ausgabevariablen
+:Fiktives Transportelement berechnen
-*FUNCTION TRS_VERSION () RESULT (VERSION)<br/>Versionsnummer des Moduls
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TROR_WEL () RESULT(LOK)</HIGHLIGHTSYNTAX>
-*FUNCTION TRS_IDOK ()  RESULT (OK)<br/>Pruefung ob eine gegebene Kennung ok ist? (D.h. gibts ein Objekt dazu ?)
+:Freispiegel Rohrleitung berechnen
-*FUNCTION TRS_IDObj () RESULT (objptr)<br/>Objekt zu einer ID
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TGER_WEL () RESULT(LOK)</HIGHLIGHTSYNTAX>
-*FUNCTION TFIK_obj () RESULT (objptr)<br/>Objekt zu einer ID
+:Offenes Gerinne berechnen
-*FUNCTION TROR_obj () RESULT (objptr)<br/>Objekt zu einer ID
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TKNL_WEL () RESULT(LOK)</HIGHLIGHTSYNTAX>
-*FUNCTION TGER_obj () RESULT (objptr)<br/>Objekt zu einer ID
+:Transportelement mit Kennlinie berechnen
-*FUNCTION TKNL_obj () RESULT (objptr)<br/>Objekt zu einer ID
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_CALC () RESULT(LOK)</HIGHLIGHTSYNTAX>
-*FUNCTION TRS_TEST () RESULT (i)<br/>Testumgegung
+:Methode: Berechne nicht-linearen Speicher
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_CALC_WSP () RESULT (WSPakt)</HIGHLIGHTSYNTAX>
+:Methode: Berechnet den Wasserstand
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_HEADWEL () RESULT (N)</HIGHLIGHTSYNTAX>
+:Transportelement Header für Output-File schreiben
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_OUTWEL () RESULT (N)</HIGHLIGHTSYNTAX>
+:Transportelement Ergebnis eines Zeitschrittes ausgeben
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_UPDATE () RESULT (LOK)</HIGHLIGHTSYNTAX>
+:Übergabe der letzten Zeitschrittwerte
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_GET_MAXSTZ () RESULT (NSTZ)</HIGHLIGHTSYNTAX>
+:Anzahl der Stützstellen der Kennlinie
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_GET_MAXTRANS () RESULT (N)</HIGHLIGHTSYNTAX>
+:Anzahl der Translationselemente fiktiver TRS
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_GET_TYP () RESULT (TYP)</HIGHLIGHTSYNTAX>
+:Typ des Transportelementes
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_GET_MQ () RESULT (MQ)</HIGHLIGHTSYNTAX>
+:Startabfluss
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_GET_QVOLL () RESULT (QVOLL)</HIGHLIGHTSYNTAX>
+:Maximale Leistung des Moduls
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_GET_KSTG () RESULT (KSTG)</HIGHLIGHTSYNTAX>
+:Strickler-Beiwert Gerinneschlauch
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_GET_KST () RESULT (KST)</HIGHLIGHTSYNTAX>
+:Strickler-Beiwert Gesamtgerinne
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_GET_KNL () RESULT (NSTZ)</HIGHLIGHTSYNTAX>
+:Kennlinie
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_GET_NAB () RESULT (NAB)</HIGHLIGHTSYNTAX>
+:Anzahl der Abläufe des Moduls
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_ANZ_WELVAR () RESULT (N)</HIGHLIGHTSYNTAX>
+:Anzahl der Ausgabevariablen
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_VERSION () RESULT (VERSION)</HIGHLIGHTSYNTAX>
+:Versionsnummer des Moduls
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_IDOK ()  RESULT (OK)</HIGHLIGHTSYNTAX>
+:Prüfung ob eine gegebene Kennung OK ist? (D.h. gibt's ein Objekt dazu ?)
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_IDObj () RESULT (objptr)</HIGHLIGHTSYNTAX>
+:Objekt zu einer ID
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TFIK_obj () RESULT (objptr)</HIGHLIGHTSYNTAX>
+:Objekt zu einer ID
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TROR_obj () RESULT (objptr)</HIGHLIGHTSYNTAX>
+:Objekt zu einer ID
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TGER_obj () RESULT (objptr)</HIGHLIGHTSYNTAX>
+:Objekt zu einer ID
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TKNL_obj () RESULT (objptr)</HIGHLIGHTSYNTAX>
+:Objekt zu einer ID
+<HIGHLIGHTSYNTAX language="fortran90">FUNCTION TRS_TEST () RESULT (i)</HIGHLIGHTSYNTAX>
+:Testumgebung
 [[Category:BlauesModell]]
+[[Category:BlauesModell Code]]

MODTRS: Difference between revisions

Revision as of 05:34, 28 August 2006

Navigation menu

Search