if (no_gentim2d(num_var).GT.0) then
_RL no_gentim2d(maxCtrlTim2D)
& no_gentim2d(num_var)
no_gentim2d(maxCtrlTim2D)= 0. _d 0
no_gentim2d(num_var) = no_gentim2d(num_var)
_GLOBAL_SUM_RL(no_gentim2d(num_var), myThid )