model_grid Module Reference

Read in data defining the model grid. More...

Functions/Subroutines
subroutine	model_grid_cleanup
	Clean up allocatable arrays.
subroutine	read_mdl_grid_info
	Read mdl grid.

Variables
integer	grid_id_mdl
	grib id of model grid, 4-gaussian, 203-egrid
integer	ijmdl
	total number of model land points
integer	imdl
	i-dimension of model grid
integer, dimension(:), allocatable	ipts_mdl
	i index of point on full grid
integer	jmdl
	j-dimension of model grid
integer, dimension(:), allocatable	jpts_mdl
	j index of point on full grid
integer, dimension(200)	kgds_mdl
	holds grib gds info of model grid
real	lat11
	Corner point latitude (1,1) of model grid.
real	latlast
	Corner point latitude (imdl,jmdl) of model grid.
real, dimension(:), allocatable	lats_mdl
	Latitudes of model grid points.
real	lon11
	Corner point longitude (1,1) of model grid.
real	lonlast
	Corner point longitude (imdl,jmdl) of model grid.
real, dimension(:), allocatable	lons_mdl
	longitudes of model grid points
integer, dimension(:), allocatable	lonsperlat_mdl
	Number of longitudes (i-points) for each latitude (row).
real, dimension(:,:), allocatable	lsmask_mdl
	land mask of model grid (0 - non land, 1-land) for global grids run thinned, will contain a modified version of the original mask that has land at all points encompassed by a thinned point
real, dimension(:,:), allocatable	lsmask_mdl_sav
	saved copy of land mask of model grid (0 - non land, 1-land) only used for global thinned grids.
real	resol_mdl
	approximate model resolution in km.
logical	thinned
	When true, global grids will run thinned (number of i points decrease toward pole)

Detailed Description

Read in data defining the model grid.

program history log:

• 2005-dec-16 gayno - initial version
• 2007-nov-30 gayno - improved method for thinning gfs grids. added nam b-grids.
• 2014-sep-29 gayno - add option to read model lat, lon and landmask data in grib2.

variable definitions:

• lonsperlat - for global grids, the number of i points in each row (decrease toward pole)

Author

George Gayno org: w/np2

Date

2005-Dec-16

Function/Subroutine Documentation

model_grid_cleanup()

subroutine model_grid::model_grid_cleanup

Clean up allocatable arrays.

This deallocate this module's allocatable array.

program history log: 2005-dec-16 gayno - initial version

Author

George Gayno org: w/np2

Date

Dec 16, 2005

Definition at line 577 of file model_grid.F90.

References ipts_mdl, jpts_mdl, lats_mdl, lons_mdl, lonsperlat_mdl, and lsmask_mdl.

Referenced by driver().

read_mdl_grid_info()

subroutine model_grid::read_mdl_grid_info

Read mdl grid.

program history log: 2005-dec-16 gayno - initial version 2007-nov-30 gayno - Improved method for thinning gfs grids. Added nam b-grids. 2014-sep-29 gayno - Add option to read lat,lon and mask data in grib2. files: inputs:

• model latitudes (grib 1 or grib 2)
• model longitudes (grib 1 or grib 2)
• model landmask (grib 1 or grib 2)
• number pts per row, gfs grid (the "lonsperlat" file, ascii) condition codes: all fatal 76 - bad open/read gfs "lonsperlat" file 79 - unrecognized model grid 80 - bad open model latitude file 81 - bad read of model latitude grib 1 header 82 - bad read of model latitude data 83 - bad open model longitude file 82 - bad read of model longitude data 85 - bad open model landmask file 86 - bad read of model landmask data 90 - model latitude file not grib 1 or grib 2 91 - model longitude file not grib 1 or grib 2 92 - model landmask file not grib 1 or grib 2

Author

George Gayno org: w/np2

Date

2005-dec-16

Definition at line 84 of file model_grid.F90.

References gdt_to_gds(), program_setup::gfs_lpl_file, grib2_free(), grib2_null(), grib_check(), grid_id_mdl, ijmdl, imdl, ipts_mdl, jmdl, jpts_mdl, kgds_mdl, lat11, latlast, lats_mdl, lon11, lonlast, lons_mdl, lonsperlat_mdl, lsmask_mdl, lsmask_mdl_sav, program_setup::model_lat_file, program_setup::model_lon_file, program_setup::model_lsmask_file, resol_mdl, and thinned.

Referenced by driver().

Variable Documentation

grid_id_mdl

integer model_grid::grid_id_mdl

grib id of model grid, 4-gaussian, 203-egrid

Definition at line 26 of file model_grid.F90.

Referenced by read_mdl_grid_info(), and snow2mdl::write_grib1().

ijmdl

integer model_grid::ijmdl

total number of model land points

Definition at line 29 of file model_grid.F90.

Referenced by snow2mdl::interp(), and read_mdl_grid_info().

imdl

integer model_grid::imdl

i-dimension of model grid

Definition at line 27 of file model_grid.F90.

Referenced by snow2mdl::interp(), read_mdl_grid_info(), and snow2mdl::write_grib2().

ipts_mdl

integer, dimension(:), allocatable model_grid::ipts_mdl

i index of point on full grid

Definition at line 30 of file model_grid.F90.

Referenced by snow2mdl::interp(), model_grid_cleanup(), and read_mdl_grid_info().

jmdl

integer model_grid::jmdl

j-dimension of model grid

Definition at line 28 of file model_grid.F90.

Referenced by snow2mdl::interp(), read_mdl_grid_info(), and snow2mdl::write_grib2().

jpts_mdl

integer, dimension(:), allocatable model_grid::jpts_mdl

j index of point on full grid

Definition at line 31 of file model_grid.F90.

Referenced by snow2mdl::interp(), model_grid_cleanup(), and read_mdl_grid_info().

kgds_mdl

integer, dimension(200) model_grid::kgds_mdl

holds grib gds info of model grid

Definition at line 33 of file model_grid.F90.

Referenced by snow2mdl::interp(), read_mdl_grid_info(), snow2mdl::write_grib1(), and snow2mdl::write_grib2().

lat11

real model_grid::lat11

Corner point latitude (1,1) of model grid.

Definition at line 42 of file model_grid.F90.

Referenced by read_mdl_grid_info(), and snow2mdl::write_grib2().

latlast

real model_grid::latlast

Corner point latitude (imdl,jmdl) of model grid.

Definition at line 43 of file model_grid.F90.

Referenced by read_mdl_grid_info(), and snow2mdl::write_grib2().

lats_mdl

real, dimension(:), allocatable model_grid::lats_mdl

Latitudes of model grid points.

Definition at line 41 of file model_grid.F90.

Referenced by snow2mdl::interp(), model_grid_cleanup(), and read_mdl_grid_info().

lon11

real model_grid::lon11

Corner point longitude (1,1) of model grid.

Definition at line 44 of file model_grid.F90.

Referenced by read_mdl_grid_info(), and snow2mdl::write_grib2().

lonlast

real model_grid::lonlast

Corner point longitude (imdl,jmdl) of model grid.

Definition at line 45 of file model_grid.F90.

Referenced by read_mdl_grid_info(), and snow2mdl::write_grib2().

lons_mdl

real, dimension(:), allocatable model_grid::lons_mdl

longitudes of model grid points

Definition at line 46 of file model_grid.F90.

Referenced by snow2mdl::interp(), model_grid_cleanup(), and read_mdl_grid_info().

lonsperlat_mdl

integer, dimension (:), allocatable model_grid::lonsperlat_mdl

Number of longitudes (i-points) for each latitude (row).

Used for global thinned (reduced) grids.

Definition at line 34 of file model_grid.F90.

Referenced by snow2mdl::interp(), model_grid_cleanup(), and read_mdl_grid_info().

lsmask_mdl

real, dimension(:,:), allocatable model_grid::lsmask_mdl

land mask of model grid (0 - non land, 1-land) for global grids run thinned, will contain a modified version of the original mask that has land at all points encompassed by a thinned point

Definition at line 47 of file model_grid.F90.

Referenced by snow2mdl::interp(), model_grid_cleanup(), read_mdl_grid_info(), snow2mdl::write_grib1(), and snow2mdl::write_grib2().

lsmask_mdl_sav

real, dimension(:,:), allocatable model_grid::lsmask_mdl_sav

saved copy of land mask of model grid (0 - non land, 1-land) only used for global thinned grids.

Definition at line 50 of file model_grid.F90.

Referenced by snow2mdl::interp(), and read_mdl_grid_info().

resol_mdl

real model_grid::resol_mdl

approximate model resolution in km.

Definition at line 52 of file model_grid.F90.

Referenced by snow2mdl::interp(), and read_mdl_grid_info().

thinned

logical model_grid::thinned

When true, global grids will run thinned (number of i points decrease toward pole)

Definition at line 38 of file model_grid.F90.

Referenced by snow2mdl::interp(), and read_mdl_grid_info().