gdswzd_c.F90 File Reference

'C' WRAPPER FOR ROUTINE GDSWZD More...

Go to the source code of this file.

Functions/Subroutines
subroutine	gdswzd_c_mod::gdswzd_c (IGDTNUM, IGDTMPL, IGDTLEN, IOPT, NPTS, FILL, XPTS, YPTS, RLON, RLAT, NRET, CROT, SROT, XLON, XLAT, YLON, YLAT, AREA)
subroutine	gdswzd_c_mod::gdswzd_c_grib1 (KGDS, IOPT, NPTS, FILL, XPTS, YPTS, RLON, RLAT, NRET, CROT, SROT, XLON, XLAT, YLON, YLAT, AREA)
	USE THIS ROUTINE TO CALL 'GDSWZD' FROM A 'C' OR 'C++' PROGRAM. More...

Detailed Description

'C' WRAPPER FOR ROUTINE GDSWZD

Author

JOVIC

Date

2016-04-10

Definition in file gdswzd_c.F90.

Function/Subroutine Documentation

gdswzd_c()

subroutine gdswzd_c_mod::gdswzd_c	(	integer(kind=c_int), intent(in), value	IGDTNUM,
		integer(kind=c_int), dimension(igdtlen), intent(in)	IGDTMPL,
		integer(kind=c_int), intent(in), value	IGDTLEN,
		integer(kind=c_int), intent(in), value	IOPT,
		integer(kind=c_int), intent(in), value	NPTS,
		real(kind=c_double), intent(in), value	FILL,
		real(kind=c_double), dimension(npts), intent(inout)	XPTS,
		real(kind=c_double), dimension(npts), intent(inout)	YPTS,
		real(kind=c_double), dimension(npts), intent(inout)	RLON,
		real(kind=c_double), dimension(npts), intent(inout)	RLAT,
		integer(kind=c_int), intent(out)	NRET,
		real(kind=c_double), dimension(npts), intent(out)	CROT,
		real(kind=c_double), dimension(npts), intent(out)	SROT,
		real(kind=c_double), dimension(npts), intent(out)	XLON,
		real(kind=c_double), dimension(npts), intent(out)	XLAT,
		real(kind=c_double), dimension(npts), intent(out)	YLON,
		real(kind=c_double), dimension(npts), intent(out)	YLAT,
		real(kind=c_double), dimension(npts), intent(out)	AREA
	)

Definition at line 7 of file gdswzd_c.F90.

gdswzd_c_grib1()

subroutine gdswzd_c_mod::gdswzd_c_grib1	(	integer(kind=c_int), dimension(200), intent(in)	KGDS,
		integer(kind=c_int), intent(in), value	IOPT,
		integer(kind=c_int), intent(in), value	NPTS,
		real(kind=c_double), intent(in), value	FILL,
		real(kind=c_double), dimension(npts), intent(inout)	XPTS,
		real(kind=c_double), dimension(npts), intent(inout)	YPTS,
		real(kind=c_double), dimension(npts), intent(inout)	RLON,
		real(kind=c_double), dimension(npts), intent(inout)	RLAT,
		integer(kind=c_int), intent(out)	NRET,
		real(kind=c_double), dimension(npts), intent(out)	CROT,
		real(kind=c_double), dimension(npts), intent(out)	SROT,
		real(kind=c_double), dimension(npts), intent(out)	XLON,
		real(kind=c_double), dimension(npts), intent(out)	XLAT,
		real(kind=c_double), dimension(npts), intent(out)	YLON,
		real(kind=c_double), dimension(npts), intent(out)	YLAT,
		real(kind=c_double), dimension(npts), intent(out)	AREA
	)

USE THIS ROUTINE TO CALL 'GDSWZD' FROM A 'C' OR 'C++' PROGRAM.

TAKES ADVANTAGE OF THE FORTRAN/C INTEROPERABILITY STANDARD.

EXAMPLE: MIXED PRECSION IPLIB CALL

include "iplib.h"
 
int kgds[200];
int iopt, npts, nret;
double fill;
double *xpts, *ypts, *rlon, *rlat;
double *crot, *srot, *xlon, *xlat, *ylon, *ylat, *area;
 
gdswzd(kgds, iopt, npts, fill,
       xpts, ypts, rlon, rlat,
       &nret, crot, srot, xlon,
       xlat, ylon, ylat, area);

Parameters

	KGDS	- INTEGER (200) GDS PARAMETERS AS DECODED BY W3FI63
	IOPT	- INTEGER OPTION FLAG ( 0 TO COMPUTE EARTH COORDS OF ALL THE GRID POINTS) (+1 TO COMPUTE EARTH COORDS OF SELECTED GRID COORDS) (-1 TO COMPUTE GRID COORDS OF SELECTED EARTH COORDS)
	NPTS	- INTEGER MAXIMUM NUMBER OF COORDINATES
	FILL	- REAL FILL VALUE TO SET INVALID OUTPUT DATA (MUST BE IMPOSSIBLE VALUE; SUGGESTED VALUE: -9999.)
	XPTS	- REAL (NPTS) GRID X POINT COORDINATES IF IOPT>0
	YPTS	- REAL (NPTS) GRID Y POINT COORDINATES IF IOPT>0
[out]	RLON	- REAL (NPTS) EARTH LONGITUDES IN DEGREES E IF IOPT<0 (ACCEPTABLE RANGE: -360. TO 360.)
[out]	RLAT	- REAL (NPTS) EARTH LATITUDES IN DEGREES N IF IOPT<0 (ACCEPTABLE RANGE: -90. TO 90.)
[out]	NRET	- INTEGER NUMBER OF VALID POINTS COMPUTED (-1 IF PROJECTION UNRECOGNIZED)
[out]	CROT	- REAL (NPTS) CLOCKWISE VECTOR ROTATION COSINES
[out]	SROT	- REAL (NPTS) CLOCKWISE VECTOR ROTATION SINES (UGRID=CROT*UEARTH-SROT*VEARTH; VGRID=SROT*UEARTH+CROT*VEARTH)
[out]	XLON	- REAL (NPTS) DX/DLON IN 1/DEGREES
[out]	XLAT	- REAL (NPTS) DX/DLAT IN 1/DEGREES
[out]	YLON	- REAL (NPTS) DY/DLON IN 1/DEGREES
[out]	YLAT	- REAL (NPTS) DY/DLAT IN 1/DEGREES
[out]	AREA	- REAL (NPTS) AREA WEIGHTS IN M**2 (PROPORTIONAL TO THE SQUARE OF THE MAP FACTOR IN THE CASE OF CONFORMAL PROJECTIONS)

SUBPROGRAMS CALLED: GDSWZD GDS WIZARD

Definition at line 295 of file gdswzd_c.F90.