prof_traj1D_mean(K)=0.
& *(prof_traj1D(K)-prof_data1D(K)-prof_traj1D_mean(K))
_RL prof_traj1D(NLEVELMAX), prof_traj1D_mean(NLEVELMAX)
prof_traj1D_mean(k)=0.
call PROFILES_INTERP_MEAN(prof_traj1D_mean,
call PROFILES_INTERP_MEAN_GG(prof_traj1D_mean,