Text(macro by case 909
    *** to set constants and solve static enthalpy
SOLVE(H1); TERMS(H1,N,P,N,P,P,P)
PATCH(ENTSOR,CELL,1,NX,1,NY,1,NZ,1,1)
COVAL(ENTSOR,H1,FIXFLU,GRND1)