& ProfDepthNo(num_file,bi,bj),prof_data1D,bi,bj,myThid)
& *(prof_traj1D(K)-prof_data1D(K)-prof_traj1D_mean(K))
_RL prof_data1D(NLEVELMAX), prof_weights1D(NLEVELMAX)
prof_data1D(k)=0.