get_gw_data Interface

private interface get_gw_data

Module Procedures

private function get_gw_2d_var_constdef(ncfile_id, try_it, varname, default_const, nlon, nlat) result(data_vec)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncfile_id
integer, intent(in) :: try_it
character(len=*), intent(in) :: varname
real, intent(in) :: default_const
integer, intent(in) :: nlon
integer, intent(in) :: nlat

Return Value real(kind=r_2), dimension(mp)

private function get_gw_3d_var_constdef(ncfile_id, try_it, varname, default_const, nlon, nlat, ms) result(data_vec)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncfile_id
integer, intent(in) :: try_it
character(len=*), intent(in) :: varname
real, intent(in) :: default_const
integer, intent(in) :: nlon
integer, intent(in) :: nlat
integer, intent(in) :: ms

Return Value real(kind=r_2), dimension(mp,ms)

private function get_gw_4d_var_constdef(ncfile_id, try_it, varname, default_const, nlon, nlat, ms, npatch) result(data_vec)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncfile_id
integer, intent(in) :: try_it
character(len=*), intent(in) :: varname
real, intent(in) :: default_const
integer, intent(in) :: nlon
integer, intent(in) :: nlat
integer, intent(in) :: ms
integer, intent(in) :: npatch

Return Value real(kind=r_2), dimension(mp,ms,mpatch)

private function get_gw_2d_var(ncfile_id, try_it, varname, default_data, nlon, nlat) result(data_vec)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncfile_id
integer, intent(in) :: try_it
character(len=*), intent(in) :: varname
real, intent(in), dimension(:,:) :: default_data
integer, intent(in) :: nlon
integer, intent(in) :: nlat

Return Value real(kind=r_2), dimension(mp)

private function get_gw_3d_var(ncfile_id, try_it, varname, default_data, nlon, nlat, ms) result(data_vec)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncfile_id
integer, intent(in) :: try_it
character(len=*), intent(in) :: varname
real, intent(in), dimension(:,:) :: default_data
integer, intent(in) :: nlon
integer, intent(in) :: nlat
integer, intent(in) :: ms

Return Value real(kind=r_2), dimension(mp,ms)

private function get_gw_4d_var(ncfile_id, try_it, varname, default_data, nlon, nlat, ms, npatch) result(data_vec)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncfile_id
integer, intent(in) :: try_it
character(len=*), intent(in) :: varname
real, intent(in), dimension(:,:) :: default_data
integer, intent(in) :: nlon
integer, intent(in) :: nlat
integer, intent(in) :: ms
integer, intent(in) :: npatch

Return Value real(kind=r_2), dimension(mp,ms,mpatch)