_RL no_profiles(NFILESPROFMAX,NVARMAX)
if (no_profiles(num_file,num_var).GT.0) then
& no_profiles(num_file,num_var)
no_profiles(num_file,num_var)= 0. _d 0
no_profiles(num_file,num_var)=no_profiles(num_file,num_var)
_GLOBAL_SUM_RL(no_profiles(num_file,num_var), myThid )