& shiPrandtl, shiSchmidt, shiKinVisc
_RL shiPrandtl, shiSchmidt, shiKinVisc
CALL WRITE_0D_RL( shiSchmidt, INDEX_NONE,
shiSchmidt = 2432.0 _d 0
shiSc = shiSchmidt**shiTwoThirds