_RL GM_Visbeck_maxval_K
& GM_Visbeck_maxval_K,
GM_Visbeck_maxval_K = 2500.D0
& MIN(VisbeckK(i,j,bi,bj),GM_Visbeck_maxval_K)