*-------------------------------------------
* COSP : Optimization of tar retention constant
*  1) mass transfer rate of tar between smoke and filter
*      = tarcon*(tar1-rclog*tar2)     
*  2) COSP & EARTH APPLICATION ------ USing INFORM!
*-------------------------------------------

********************************************
*  Title
********************************************
Title = "Flow and Tar Retention in Filter (1D)"

********************************************
*  Experimental Data Group
********************************************
 *  -------------------
 * ExpData - Tar retention (in %) in filter
 *  ------------------------------
   NoExpRun = 6
   NoMeasurVar = 1
  ExpData1=    0.290     , .TRUE.  *** FLTLEN = 0.01  CIRCUM=0.026
  ExpData2=    0.703     , .TRUE.  *** FLTLEN = 0.03  CIRCUM=0.022
  ExpData3=    0.371     , .TRUE.  *** FLTLEN = 0.01  CIRCUM=0.022
  ExpData4=    0.622     , .TRUE.  *** FLTLEN = 0.03  CIRCUM=0.026
  ExpData5=    0.498     , .TRUE.  *** FLTLEN = 0.02  CIRCUM=0.0245
  ExpData6=    0.440     , .false. *** FLTLEN = 0.02  CIRCUM=0.024

*   USE 2 current NoExpRun !!  [ Q1 - RUN(1,6: 1,2) ]

********************************************
*  Constant Group
********************************************
NoConst = 3
* ConstXX = ConstIni, ConstMin, ConstMax , IsUsed
Const1 = 3.0E+3, 10., 1.0E+4, .TRUE.
Const2 = 0.05, 1.0E-2, 1.0E+2, .TRUE.
Const3 = 2.0, 1.0, 5.0, .TRUE.

********************************************
*  External Solver Group
********************************************
 typeesp = PINform *  ( PGround & PINform )

********************************************
*  Optimizations parameters Group
********************************************
MaxPowellIter = 30
MaxBrentIter = 100
BoundaryDFDN = 100.0
MinFunValue = 0.01
MaxNoRun    = 1000
IsAverageUnit = .FALSE.

********************************************
*  InForm Group
********************************************
* This section used, if TypeESP = PERpetuumPhoenics or PINform !
 NoInFormStr = 2
 InFormStr1="SOURCE    TAR1!SCTAR1    C=(999001)*R2^(999003)*((999002)*TAR2-T"
 InFormStr2="SOURCE    TAR2!SCTAR2    C=(999001)*R2^(999003)*(TAR1-(999002)*T"
************** End of Input ****************