prof_weights1D_mean(k)=0.
prof_weights1D_mean(k) =
prof_weights1D_mean(1) =
if (prof_weights1D_mean(1).GT.0.
& +prof_weights1D_mean(1)
_RL prof_weights1D_mean(NLEVELMAX)