用于计算绝对涡度的fortran程序,THIS ROUTINE COMPUTES THE ABSOLUTE VORTICITY.