& shiPrandtl, shiSchmidt, shiKinVisc
_RL shiPrandtl, shiSchmidt, shiKinVisc
CALL WRITE_0D_RL( shiPrandtl, INDEX_NONE,
shiPrandtl = 13.8 _d 0
shiPr = shiPrandtl**shiTwoThirds