w3ft33.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	w3ft33 (AIN, OUT, NSFLAG)
	SUBPROGRAM: W3FT33 THICKEN THINNED WAFS GRIB GRID 37-44 PRGMMR: RALPH PETTERSON ORG: W/NMCXX DATE: 94-11-13. More...

Function/Subroutine Documentation

w3ft33()

subroutine w3ft33	(	real, dimension(*)	AIN,
		real, dimension(nx,ny)	OUT,
			NSFLAG
	)

SUBPROGRAM: W3FT33 THICKEN THINNED WAFS GRIB GRID 37-44 PRGMMR: RALPH PETTERSON ORG: W/NMCXX DATE: 94-11-13.

ABSTRACT: SUBROUTINE THICKENS ONE THINNED WAFS GRIB GRID TO A REAL ARRAY OF 5329 NUMBERS (73,73) 1.25 DEGREE GRID.

PROGRAM HISTORY LOG: 94-??-?? RALPH PETERSON 94-11-07 R.E.JONES ADD DOC BLOCK, CHANGE CALL TO 3 PARAMETERS. REPLACE COS WITH TABLE LOOKUP. 95-06-02 RALPH PETERSON CHANGES TO CORRECT MISS-POSITION BETWEEN + OR - 8.75 N/S. 95-06-03 R.E.JONES CHANGES SO 8 ROWS WITH 73 VALUES ARE NOT THICKENED, 10% FASTER.

USAGE: CALL W3FT33(AIN, OUT, NSFLAG) INPUT ARGUMENT LIST: AIN - REAL 3447 WORD ARRAY WITH UNPACKED THINNED WAFS GRIB TYPE 37-44. NSFLAG - INTEGER = 1 AIN IS WAFS GRIB GRID 37-40 N. HEMI. = -1 AIN IS WAFS GRIB GRID 41-44 S. HEMI.

OUTPUT ARGUMENT LIST:
OUT - REAL (73,73) WORD ARRAY WITH THICKENED WAFS GRIB GRID 37-44.

REMARKS: THE POLE POINT FOR U AND V WIND COMPONENTS WILL HAVE ONLY ONE POINT. IF YOU NEED THE POLE ROW CORRECTED SEE PAGE 9 SECTION 1 IN OFFICE NOTE 388. YOU NEED BOTH U AND V TO MAKE THE CORRECTION.

ATTRIBUTES: LANGUAGE: SiliconGraphics 5.2 FORTRAN 77 MACHINE: SiliconGraphics IRIS-4D/25, 35, INDIGO, Indy

Definition at line 40 of file w3ft33.f.