MOVECT
The MOVECT routine provides the rotation parameters
to move a vector along a great circle from one
position to another while conserving its orientation
with respect to the great circle. These rotation
parameters are useful for vector interpolation.
USAGE: CALL MOVECT(FLAT,FLON,TLAT,TLON,CROT,SROT)
Input argument list:
FLAT - REAL LATITUDE IN DEGREES FROM WHICH TO MOVE THE VECTOR
FLON - REAL LONGITUDE IN DEGREES FROM WHICH TO MOVE THE VECTOR
TLAT - REAL LATITUDE IN DEGREES TO WHICH TO MOVE THE VECTOR
TLON - REAL LONGITUDE IN DEGREES TO WHICH TO MOVE THE VECTOR
Output argument list:
CROT - REAL CLOCKWISE VECTOR ROTATION COSINE
SROT - REAL CLOCKWISE VECTOR ROTATION SINE
(UTO=CROT*UFROM-SROT*VFROM;
VTO=SROT*UFROM+CROT*VFROM)
REMARKS:
THIS SUBPROGRAM IS CORRECT TO SEVEN DIGITS ON THE CRAYS.
USE DOUBLE PRECISION IF BETTER PRECISION IS REQUIRED.
iplib.tar |
Library contains subroutines to be used for
interpolating almost any grids used at NCEP. (Fortran90)
Date posted: 2/22/2007 |