Commit 6724a900 authored by thomas.forbriger's avatar thomas.forbriger
Browse files

refmet [TASK]: change name of time parameter in hfktstr

parent 3af095fd
c this is <refmet.f> originally by J. Ungerer 1990
c======================================================================
c $Id$
c
c Reflectivity Method
c
......@@ -121,6 +120,7 @@ c 12/10/2011 V2.14 implemented radial component for line source
c 16/01/2012 both components of the line source were tested
c successfully against analytical and FD results by
c Lisa Groos (TFSoftware ticket:135)
c 25/06/2018 adjust hfkstr to use t rather than tvar as parameter
c
c======================================================================
PROGRAM refmet
......@@ -793,7 +793,7 @@ C 1. Herdfunktionen (als Funktionsdefinitionen) C
C**********************************************************************C
CC Geschwindigkeitsanregung(1.Ableitung d. Bruestle-Mueller-Funktion)
hfkt(tvar,T1,T2)=0.75*pi/(T2-T1)*dsin(pi*(tvar-T1)/(T2-T1))**3
hfktstr='hfkt(tvar,T1,T2)=0.75*pi/(T2-T1)*dsin(pi*(tvar-T1)/(T2-T1))**3'
hfktstr='hfkt(t,T1,T2)=0.75*pi/(T2-T1)*dsin(pi*(t-T1)/(T2-T1))**3'
CC smooth blow
c hfkt(tvar,T1,T2)=dsin(pi*(tvar-T1)/(T2-T1))**3
c hfktstr='hfkt(tvar,T1,T2)=dsin(pi*(tvar-T1)/(T2-T1))**3'
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment