_RL GM_BVP_cMin
& GM_Scrit, GM_Sd, GM_BVP_cMin,
CALL WRITE_0D_RL( GM_BVP_cMin, INDEX_NONE,
GM_BVP_cMin = 1. _d -1
GM_BVP_cHat2Min = GM_BVP_cMin**2*rhoConst/gravity
& GM_UseBVP, GM_BVP_cMin, GM_BVP_ModeNumber,