orog_mask_tools
1.13.0
|
Module containing utilities that read and write data. More...
Functions/Subroutines | |
subroutine | netcdf_err (err, string) |
Check NetCDF error code and output the error message. More... | |
subroutine, public | qc_orog_by_ramp (imn, jmn, zavg, zslm) |
Quality control the global orography and landmask data over Antarctica using RAMP data. More... | |
subroutine, public | read_global_mask (imn, jmn, mask) |
Read input global 30-arc second land mask data. More... | |
subroutine, public | read_global_orog (imn, jmn, glob) |
Read input global 30-arc second orography data. More... | |
subroutine, public | read_mask (merge_file, slm, land_frac, lake_frac, im, jm) |
Read the land mask file. More... | |
subroutine, public | read_mdl_dims (mdl_grid_file, im, jm) |
Read the grid dimensions from the model 'grid' file. More... | |
subroutine, public | read_mdl_grid_file (mdl_grid_file, im, jm, geolon, geolon_c, geolat, geolat_c, dx, dy, is_north_pole, is_south_pole) |
Read the grid dimensions from the model 'grid' file. More... | |
subroutine, public | write_mask_netcdf (im, jm, slm, land_frac, ntiles, tile, geolon, geolat) |
Write the land mask file. More... | |
subroutine, public | write_netcdf (im, jm, slm, land_frac, oro, hprime, ntiles, tile, geolon, geolat, lon, lat) |
Write out orography file in netcdf format. More... | |
Module containing utilities that read and write data.
subroutine io_utils::netcdf_err | ( | integer, intent(in) | err, |
character(len=*), intent(in) | string | ||
) |
Check NetCDF error code and output the error message.
[in] | err | NetCDF error code |
[in] | string | The NetCDF error message |
Definition at line 240 of file io_utils.F90.
Referenced by qc_orog_by_ramp(), read_global_mask(), read_global_orog(), read_mask(), read_mdl_dims(), read_mdl_grid_file(), write_mask_netcdf(), and write_netcdf().
subroutine, public io_utils::qc_orog_by_ramp | ( | integer, intent(in) | imn, |
integer, intent(in) | jmn, | ||
integer, dimension(imn,jmn), intent(inout) | zavg, | ||
integer, dimension(imn,jmn), intent(inout) | zslm | ||
) |
Quality control the global orography and landmask data over Antarctica using RAMP data.
[in] | imn | i-dimension of the global data. |
[in] | jmn | j-dimension of the global data. |
[in,out] | zavg | The global orography data. |
[in,out] | zslm | The global landmask data. |
Definition at line 669 of file io_utils.F90.
References netcdf_err().
Referenced by tersub().
subroutine, public io_utils::read_global_mask | ( | integer, intent(in) | imn, |
integer, intent(in) | jmn, | ||
integer(1), dimension(imn,jmn), intent(out) | mask | ||
) |
Read input global 30-arc second land mask data.
[in] | imn | i-dimension of orography data. |
[in] | jmn | j-dimension of orography data. |
[out] | mask | The land mask data. |
Definition at line 611 of file io_utils.F90.
References netcdf_err(), and orog_utils::transpose_mask().
Referenced by tersub().
subroutine, public io_utils::read_global_orog | ( | integer, intent(in) | imn, |
integer, intent(in) | jmn, | ||
integer*2, dimension(imn,jmn), intent(out) | glob | ||
) |
Read input global 30-arc second orography data.
[in] | imn | i-dimension of orography data. |
[in] | jmn | j-dimension of orography data. |
[out] | glob | The orography data. |
Definition at line 552 of file io_utils.F90.
References netcdf_err(), and orog_utils::transpose_orog().
Referenced by tersub().
subroutine, public io_utils::read_mask | ( | character(len=*), intent(in) | merge_file, |
real, dimension(im,jm), intent(out) | slm, | ||
real, dimension(im,jm), intent(out) | land_frac, | ||
real, dimension(im,jm), intent(out) | lake_frac, | ||
integer, intent(in) | im, | ||
integer, intent(in) | jm | ||
) |
Read the land mask file.
[in] | merge_file | path |
[out] | slm | Land-sea mask. |
[out] | land_frac | Land fraction. |
[out] | lake_frac | Lake fraction |
[in] | im | 'i' dimension of a model grid tile. |
[in] | jm | 'j' dimension of a model grid tile. |
Definition at line 357 of file io_utils.F90.
References lake_frac(), and netcdf_err().
Referenced by tersub().
subroutine, public io_utils::read_mdl_dims | ( | character(len=*), intent(in) | mdl_grid_file, |
integer, intent(out) | im, | ||
integer, intent(out) | jm | ||
) |
Read the grid dimensions from the model 'grid' file.
[in] | mdl_grid_file | path/name of model 'grid' file. |
[out] | im | 'i' dimension of a model grid tile. |
[out] | jm | 'j' dimension of a model grid tile. |
Definition at line 402 of file io_utils.F90.
References netcdf_err().
Referenced by __mtnlm7_oclsm.f90__().
subroutine, public io_utils::read_mdl_grid_file | ( | character(len=*), intent(in) | mdl_grid_file, |
integer, intent(in) | im, | ||
integer, intent(in) | jm, | ||
real, dimension(im,jm), intent(out) | geolon, | ||
real, dimension(im+1,jm+1), intent(out) | geolon_c, | ||
real, dimension(im,jm), intent(out) | geolat, | ||
real, dimension(im+1,jm+1), intent(out) | geolat_c, | ||
real, dimension(im,jm), intent(out) | dx, | ||
real, dimension(im,jm), intent(out) | dy, | ||
logical, dimension(im,jm), intent(out) | is_north_pole, | ||
logical, dimension(im,jm), intent(out) | is_south_pole | ||
) |
Read the grid dimensions from the model 'grid' file.
[in] | mdl_grid_file | Path/name of model 'grid' file. |
[in] | im | 'i' Dimension of a model grid tile. |
[in] | jm | 'j' Dimension of a model grid tile. |
[out] | geolon | Longitude at the grid point centers. |
[out] | geolon_c | Longitude at the grid point corners. |
[out] | geolat | Latitude at the grid point centers. |
[out] | geolat_c | Latitude at the grid point corners. |
[out] | dx | Length of model grid points in the 'x' direction. |
[out] | dy | Length of model grid points in the 'y' direction. |
[out] | is_north_pole | 'true' for points surrounding the north pole. |
[out] | is_south_pole | 'true' for points surrounding the south pole. |
Definition at line 454 of file io_utils.F90.
References orog_utils::find_nearest_pole_points(), orog_utils::find_poles(), and netcdf_err().
Referenced by tersub().
subroutine, public io_utils::write_mask_netcdf | ( | integer, intent(in) | im, |
integer, intent(in) | jm, | ||
real, dimension(im,jm), intent(in) | slm, | ||
real, dimension(im,jm), intent(in) | land_frac, | ||
integer, intent(in) | ntiles, | ||
integer, intent(in) | tile, | ||
real, dimension(im,jm), intent(in) | geolon, | ||
real, dimension(im,jm), intent(in) | geolat | ||
) |
Write the land mask file.
[in] | im | 'i' dimension of a model grid tile. |
[in] | jm | 'j' dimension of a model grid tile. |
[in] | slm | Land-sea mask. |
[in] | land_frac | Land fraction. |
[in] | ntiles | Number of tiles to output. |
[in] | tile | Tile number to output. |
[in] | geolon | Longitude on the model grid tile. |
[in] | geolat | Latitude on the model grid tile. |
Definition at line 267 of file io_utils.F90.
References netcdf_err().
Referenced by tersub().
subroutine, public io_utils::write_netcdf | ( | integer, intent(in) | im, |
integer, intent(in) | jm, | ||
real, dimension(im,jm), intent(in) | slm, | ||
real, dimension(im,jm), intent(in) | land_frac, | ||
real, dimension(im,jm), intent(in) | oro, | ||
real, dimension(im,jm,14), intent(in) | hprime, | ||
integer, intent(in) | ntiles, | ||
integer, intent(in) | tile, | ||
real, dimension(im,jm), intent(in) | geolon, | ||
real, dimension(im,jm), intent(in) | geolat, | ||
real, dimension(im), intent(in) | lon, | ||
real, dimension(jm), intent(in) | lat | ||
) |
Write out orography file in netcdf format.
[in] | im | 'i' dimension of a model grid tile. |
[in] | jm | 'j' dimension of a model grid tile. |
[in] | slm | Land-sea mask. |
[in] | land_frac | Land fraction. |
[in] | oro | Orography |
[in] | hprime | The gravity wave drag fields on the model grid tile. |
[in] | ntiles | Number of tiles to output. |
[in] | tile | Tile number to output. |
[in] | geolon | Longitude on the model grid tile. |
[in] | geolat | Latitude on the model grid tile. |
[in] | lon | Longitude of the first row of the model grid tile. |
[in] | lat | Latitude of the first column of the model grid tile. |
Definition at line 42 of file io_utils.F90.
References netcdf_err().
Referenced by tersub().