w3ft07.f File Reference

Transform gridpoint fld by interpolation. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	w3ft07 (FLDA, IA, JA, AIPOLE, AJPOLE, BIPOLE, BJPOLE, DSCALE, ANGLE, LINEAR, LDEFQQ, DEFALT, FLDB, IB, JB)
	Transforms data contained in a given grid array by translation, rotation about a common point and dilatation in order to create a new grid array according to specs. More...

Detailed Description

Transform gridpoint fld by interpolation.

Author

McDonell & Howcroft

Date

1974-09-01

Definition in file w3ft07.f.

Function/Subroutine Documentation

w3ft07()

subroutine w3ft07	(	real, dimension(ia,ja)	FLDA,
			IA,
			JA,
		real	AIPOLE,
		real	AJPOLE,
		real	BIPOLE,
		real	BJPOLE,
		real	DSCALE,
		real	ANGLE,
		logical	LINEAR,
		logical	LDEFQQ,
		real	DEFALT,
		real, dimension(ib,jb)	FLDB,
			IB,
			JB
	)

Transforms data contained in a given grid array by translation, rotation about a common point and dilatation in order to create a new grid array according to specs.

Program History Log:

Date	Programmer	Comment
1974-09-01	J. McDonell, J.Howcroft	Initial.
1984-06-27	Ralph Jones	Change to ibm vs fortran
1989-01-24	Ralph Jones	Change to microsoft fortran 4.10
1989-03-31	Ralph Jones	Change to vax-11 fortran
1993-03-16	D. Shimomura	Renamed from w3ft00() to w3ft07()

in order to make minor mods while doing f77. Changes to call sequence; changes to vrbl names; added comments.

Parameters

[in]	FLDA	Real*4 original source grid-point data field
[in]	IA	(Input for FLDA)
[in]	JA	(Input for FLDA)
[in]	FLDB	Real*4 original source grid-point data field
[in]	IB	(Input for FLDB)
[in]	JB	(Input for FLDB)
[in]	AIPOLE	Real*4 common point i-coordinates of the original field, assuming a right-hand cartesian coordinate system. the point need not be inside the bounds of either grid
[in]	AJPOLE	Real*4 common point j-coordinates of the original field, assuming a right-hand cartesian coordinate system. the point need not be inside the bounds of either grid and can have fractional values. Common point about which to rotate the gridpoints.
[in]	BIPOLE	- Real*4 common point i-coordinates for transformed destination grid
[in]	BJPOLE	- Real*4 common point j-coordinates for transformed destination grid
[in]	DSCALE	- Real*4 scale-change (dilation) expressed as a ratio of the transformed field to the original field dscale = grdlenkm(destination) / grdlenkm(source)
[in]	ANGLE	- Real*4 degree measure of the angle required to rotate the j-row of the original grid into coincidence with the new grid. (+ counter- clockwise, - clockwise) angle = vertlonw(source) - vertlonw(destination)
[in]	LINEAR	- Logical*4 interpolation-method selection switch: .TRUE. Bi-linear interpolation. .FALSE. Bi-quadratic interpolation.
[in]	LDEFQQ	- Logical*4 default-value switch: if .true. then use default-value for destination point out-of-bounds of given grid; else extrapolate coarsely from nearby bndry point
[in]	DEFALT	- Real*4 the default-value to use if ldefqq = .true.

Remarks

List caveats, other helpful hints or information in general 'FLDA' and 'FLDB' cannot be equivalenced although there are situations in which it would be safe to do so. Care should be taken that all of the new grid points lie within the original grid, no error checks are made.

Author

McDonell & Howcroft

Date

1974-09-01

Definition at line 64 of file w3ft07.f.