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