_RL f_profiles_mean(NVARMAX)
& ' --> f_profiles_mean =',f_profiles_mean(num_var),
& f_profiles_mean(num_var),
f_profiles_mean(num_var)= 0. _d 0
f_profiles_mean(num_var)=f_profiles_mean(num_var)
_GLOBAL_SUM_RL(f_profiles_mean(num_var), myThid )