_RL Shap_diagFreq
& Shap_diagFreq
& DIFFERENT_MULTIPLE(Shap_diagFreq,myTime,deltaTClock)
CALL WRITE_0D_RL( Shap_diagFreq, INDEX_NONE,
& Shap_noSlip, Shap_diagFreq
Shap_diagFreq = diagFreq