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