MODULE MODWRFIO
New for I/O API-3.2!!Routines and
INTERFACE
s for reading WRF netCDF files.Presently, only single-file operation is supported: for multiple files, you must
CLOSEWRF()
any currently-open WRF file before opening and reading or writing another.See also
MODULE MODNCFIO
andMODULE MODMPASFIO
.
Opens the WRF-netCDF format file with logical name FNAME for read or read/write.
OPENWRF()
LOGICAL FUNCTION OPENWRF( FNAME, GNAME, FSTATUS ) CHARACTER(LEN=*), INTENT(IN ) :: FNAME !! logical file name CHARACTER(LEN=*), INTENT(IN ) :: GNAME !! GRIDDESC name for output grid INTEGER , INTENT(IN ) :: FSTATUS !! FSREAD3, FSRDWR3
Opens/creates a new WRF-netCDF format file with logical name FNAME for read/write.
CRTWRF()
LOGICAL FUNCTION CRTWRF( FNAME, GNAME, FSTATUS ) CHARACTER(LEN=*), INTENT(IN ) :: FNAME !! logical file name CHARACTER(LEN=*), INTENT(IN ) :: GNAME !! GRIDDESC name for output grid INTEGER , INTENT(IN ) :: FSTATUS !! FSUNKN3, FSCREA3, FSNEW3
Reads the indicated time step for the indicated variable from the current WRF-netCDF format file. The variable may be 1-D, 2-D, or 3-D, and of one of the types
READWRF()
{ M3INT, M3REAL, M3DBLE }
. Returns.FALSE.
if the variable or the time step is not available, if the type or dimensionality is not supported, or if there is a read-failure.LOGICAL FUNCTION READWRF( VNAME, JDATE, JTIME, NCOLS, [NROWS, [NLAYS,]] BUF ) CHARACTER(LEN=*), INTENT(IN ) :: VNAME INTEGER , INTENT(IN ) :: JDATE, JTIME INTEGER , INTENT(IN ) :: NSIZE <type> , INTENT( OUT) :: BUF( NCOLS, [NROWS, [NLAYS,]] )
Not yet implemented! (place-holder only; returns
WRITEWRF()
.FALSE.
.)Writes the indicated time step for the indicated variable to the current WRF-netCDF format file. The variable may be 1-D, 2-D, or 3-D, and of one of the types
{ M3INT, M3REAL, M3DBLE }
. Returns.FALSE.
if the variable is not available, if the type or dimensionality is not supported, or if there is a write-failure.
Closes the WRF-netCDF format file with logical name FNAME.
CLOSEWRF()
LOGICAL FUNCTION CLOSEWRF( FNAME ) CHARACTER(LEN=*), INTENT(IN ) :: FNAME !! logical file name
Send comments to
Carlie J. Coats, Jr.
carlie@jyarborough.com