utility_functions Module


Uses

  • module~~utility_functions~~UsesGraph module~utility_functions utility_functions module~uemep_constants uemep_constants module~utility_functions->module~uemep_constants

Used by

  • module~~utility_functions~~UsedByGraph module~utility_functions utility_functions module~local_trajectory local_trajectory module~local_trajectory->module~utility_functions module~mod_lambert_projection mod_lambert_projection module~mod_lambert_projection->module~utility_functions module~read_industry_data read_industry_data module~read_industry_data->module~utility_functions module~read_industry_data->module~mod_lambert_projection module~read_receptor_data read_receptor_data module~read_receptor_data->module~utility_functions module~read_receptor_data->module~mod_lambert_projection module~read_roadlink_data_ascii read_roadlink_data_ascii module~read_roadlink_data_ascii->module~utility_functions module~read_roadlink_data_ascii->module~mod_lambert_projection module~read_rwc_heating_data read_rwc_heating_data module~read_rwc_heating_data->module~utility_functions module~read_rwc_heating_data->module~mod_lambert_projection module~read_shipping_asi_data read_shipping_asi_data module~read_shipping_asi_data->module~utility_functions module~read_shipping_asi_data->module~mod_lambert_projection module~read_ssb_data read_ssb_data module~read_ssb_data->module~utility_functions module~read_ssb_data->module~mod_lambert_projection module~set_subgrids set_subgrids module~set_subgrids->module~utility_functions module~set_subgrids->module~mod_lambert_projection module~auto_subgrid auto_subgrid module~auto_subgrid->module~mod_lambert_projection module~crossreference_grids crossreference_grids module~crossreference_grids->module~mod_lambert_projection module~define_subgrid define_subgrid module~define_subgrid->module~mod_lambert_projection module~grid_roads grid_roads module~grid_roads->module~mod_lambert_projection module~read_agriculture_asi_data read_agriculture_asi_data module~read_agriculture_asi_data->module~mod_lambert_projection module~read_emep read_emep module~read_emep->module~mod_lambert_projection module~read_landuse_rivm_data read_landuse_rivm_data module~read_landuse_rivm_data->module~mod_lambert_projection module~read_landuse_rivm_data->module~crossreference_grids module~read_meteo_nc read_meteo_nc module~read_meteo_nc->module~mod_lambert_projection module~save_emission_netcdf save_emission_netcdf module~save_emission_netcdf->module~mod_lambert_projection module~save_emission_netcdf->module~read_industry_data module~save_emission_netcdf->module~read_roadlink_data_ascii module~save_emission_netcdf->module~read_rwc_heating_data module~save_emission_netcdf->module~read_shipping_asi_data module~save_emission_netcdf->module~grid_roads module~save_emission_netcdf->module~read_agriculture_asi_data module~save_emission_netcdf->module~read_meteo_nc module~subgrid_deposition subgrid_deposition module~subgrid_deposition->module~local_trajectory module~subgrid_dispersion subgrid_dispersion module~subgrid_dispersion->module~local_trajectory module~subgrid_emep subgrid_emep module~subgrid_emep->module~mod_lambert_projection module~subgrid_emission_emep subgrid_emission_emep module~subgrid_emission_emep->module~mod_lambert_projection module~tiling_routines tiling_routines module~tiling_routines->module~mod_lambert_projection program~uemep uEMEP program~uemep->module~read_industry_data program~uemep->module~read_receptor_data program~uemep->module~read_roadlink_data_ascii program~uemep->module~read_rwc_heating_data program~uemep->module~read_shipping_asi_data program~uemep->module~read_ssb_data program~uemep->module~set_subgrids program~uemep->module~auto_subgrid program~uemep->module~crossreference_grids program~uemep->module~define_subgrid program~uemep->module~grid_roads program~uemep->module~read_agriculture_asi_data program~uemep->module~read_emep program~uemep->module~read_landuse_rivm_data program~uemep->module~read_meteo_nc program~uemep->module~save_emission_netcdf program~uemep->module~subgrid_deposition program~uemep->module~subgrid_dispersion program~uemep->module~subgrid_emep program~uemep->module~subgrid_emission_emep program~uemep->module~tiling_routines

Variables

Type Visibility Attributes Name Initial
real(kind=dp), private, parameter :: pi = 3.141592653589793

Subroutines

public subroutine distrl(x0, y0, x1, y1, x2, y2, xm, ym, dm, wm)

The subroutine calculates the minimum distance from a given receptor point to a given line source.

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: x0

Receptor point x-coordinate
real, intent(in) :: y0

Receptor point y-coordinate
real, intent(in) :: x1

Line source x-coordinate 1
real, intent(in) :: y1

Line source y-coordinate 1
real, intent(in) :: x2

Line source x-coordinate 2
real, intent(in) :: y2

Line source y-coordinate 2
real, intent(out) :: xm

Minimum distance x-coordinate

real, intent(out) :: ym

Minimum distance y-coordinate
real, intent(out) :: dm

Minimum distance
real :: wm

public subroutine distrl_sqr(x0, y0, x1, y1, x2, y2, xm, ym, dm_sqr, wm)

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: x0

Receptor point x-coordinate
real, intent(in) :: y0

Receptor point y-coordinate
real, intent(in) :: x1

Line source x-coordinate 1
real, intent(in) :: y1

Line source y-coordinate 1
real, intent(in) :: x2

Line source x-coordinate 2
real, intent(in) :: y2

Line source y-coordinate 2
real, intent(out) :: xm

Minimum distance x-coordinate
real, intent(out) :: ym

Minimum distance y-coordinate
real, intent(out) :: dm_sqr

Minimum distance
real :: wm

public subroutine ll2ltm(iutm, lon0, lat, lon, utmn, utme)

Local lon version (of ll2utm) without zone, so just typical Transverse Mecantor (Local Transverse Mecantor)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: iutm

UTM coordinate system indicator
real, intent(in) :: lon0

Central meridian of UTM zone
real, intent(in) :: lat

Latitude in decimal degrees
real, intent(in) :: lon

Longitude in decimal degrees
real, intent(out) :: utmn

UTM north-coordinate (x) (meter from equator)
real, intent(out) :: utme

UTM east-coordinate (y) (meter from west border)

public subroutine ll2utm(iutm, isone_in, lat, lon, utmn, utme)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: iutm

UTM coordinate system indicator
integer, intent(in) :: isone_in

UTM zone input?
real, intent(in) :: lat

Latitude in decimal degrees
real, intent(in) :: lon

Longitude in decimal degress
real, intent(out) :: utmn

UTM east-coordinate (y) (meter from west border)
real, intent(out) :: utme

UTM north-coordinate (x) (meter from equator)

public subroutine ltm2ll(iutm, isone_in, la0, utmn_in, utme, lat, lon)

Local Transverse Mecantor version of utm2ll

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: iutm

UTM coordinate system indicator
integer, intent(in) :: isone_in

UTM zone
real, intent(in) :: la0

Tangeringsmeridian
real, intent(in) :: utmn_in

UTM north-coordinate (X) (meter from equator)
real, intent(in) :: utme

UTM east-coordinate (Y) (meter from west border)
real, intent(out) :: lat

Latitude in decimal degrees
real, intent(out) :: lon

Longitude in decimal degrees

public subroutine nxtdat(un, leof)

The subroutine prepares for reading the next uncommented line of data from file

Arguments

Type IntentOptional Attributes Name
integer, intent(inout) :: un
logical, intent(out) :: leof

public subroutine utm2ll(iutm, isone_in, utmn_in, utme, lat, lon)

The subroutine converts UTM north- and east-coordinates to latitude and longitude

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: iutm

UTM coordinate system indicator
integer, intent(in) :: isone_in

UTM zone
real, intent(in) :: utmn_in

UTM north-coordinate (X) (meter from equator)
real, intent(in) :: utme

UTM east-coordinate (Y) (meter from west border)
real, intent(out) :: lat

Latitude in decimal degrees
real, intent(out) :: lon

Longitude in decimal degrees