subroutine vufluidexch(
C Read only (unmodifiable)variables -
1 nstatev, nfieldv, nprops,
2 stepTime, totalTime, dt,
3 jCavType, fluExchName, effArea, amplitude,
4 props, lExchEnv, pcavNew, pcavOld,
5 ctempNew, ctempOld, cvol, cmass,
6 rMix, CpMix, DCpDtemp,
7 field, stateOld,
C Write only (modifiable) variables
8 stateNew, rMassRate, rEneRate,
9 DMassRateDPcav, DMassRateDTemp,
* DEneRateDPcav, DEneRateDTemp)
c
include 'vaba_param.inc'
c
dimension props(nprops),
1 pcavNew(2), pcavOld(2),
2 ctempNew(2), ctempOld(2), cvol(2), cmass(2),
3 rMix(2), CpMix(2), dCpDtemp(2),
4 field(nfieldv),
5 stateOld(nstatev), stateNew(nstatev),
6 DMassRateDPcav(2), DMassRateDTemp(2),
7 DEneRateDPcav(2), DEneRateDTemp(2)
c Fluid cavity type
parameter( iHydraulic = 1,
* iAdiabaticGas = 2,
* iIsothermalGas = 3)
character*80 fluExchName
c User coding to calculate mass flow rate,
c heat energy flow rate and its derivatives with respect
c to fluid cavity pressure and temperature.
return
end