CALL GLOBAL_SUM_R8( adsumPhi, myThid )
U adsumPhi
U adsumPhi,
Real*4 adsumPhi
CALL GLOBAL_SUM_R4( adsumPhi, myThid )
Real*8 adsumPhi
_RL adsumPhi
tmp = adsumPhi
adsumPhi = 0.