prof_traj1D_mean(k)=0.
prof_traj1D_mean(k) =
_RL prof_traj1D(NLEVELMAX), prof_traj1D_mean(NLEVELMAX)
& *(prof_traj1D(K)-prof_data1D(K)-prof_traj1D_mean(K)
prof_traj1D_mean(1) =
& .AND. prof_traj1D_mean(1).NE. 0. _d 0
& *(prof_traj1D_mean(1)