prof_weights1D(k)=0.
& prof_weights1D,bi,bj,myThid)
if (prof_weights1D(K).GT.0. _d 0
& + 1. _d 0 /prof_weights1D(k)
_RL prof_data1D(NLEVELMAX), prof_weights1D(NLEVELMAX)
if (prof_weights1D(K).GT.0.
& +prof_weights1D(K)*prof_mask1D_cur(K,bi,bj)