vortex relocation | ------------------------------------------------------------------------ r128 | stark@ucar.edu | 2010-06-03 03:25:30 +0000 (Thu, 03 Jun 2010) | 10 lines Bug fix 304,306c305 < !lrb Do not print PT3 and PDTOP3 because uninitialized < ! write(,)'DLMD0,DPHD0,PT3,PDTOP3=',DLMD0,DPHD0,PT3,PDTOP3 < write(,)'DLMD0,DPHD0,PT3,PDTOP3=',DLMD0,DPHD0 — > write(,)'DLMD0,DPHD0,PT3,PDTOP3=',DLMD0,DPHD0,PT3,PDTOP3 ------------------------------------------------------------------------ | diff |
vortex relocation | ------------------------------------------------------------------------ r134 | stark@ucar.edu | 2010-06-11 21:21:41 +0000 (Fri, 11 Jun 2010) | 4 lines Modified to get around range error of argument for ACOS. Argument was able to take the value of 1.0 + eps, thus causing an error in ACOS. Fix chops off values with magnitude greater than one and sets them to one. ------------------------------------------------------------------------ | diff |