_RL Shap_noSlip
& Shap_uvtau, Shap_uvLength, Shap_noSlip,
CALL WRITE_0D_RL( Shap_noSlip, INDEX_NONE,
& Shap_noSlip, Shap_diagFreq
Shap_noSlip = 0.
noSlipFact = Shap_noSlip*2. _d 0