prof_data1D_mean(k)=0.
prof_data1D_mean(k) =
& .AND. prof_data1D_mean(K).NE. 0. _d 0
& + prof_data1D_mean(K)
prof_data1D_mean(1) =
& .AND. prof_data1D_mean(1).NE. 0. _d 0
& - prof_data1D_mean(1)
_RL prof_data1D_mean(NLEVELMAX)