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

src/synt/ref/refmet/main/refmet.f

 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'