Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
logical, | intent(in), | dimension(:) | :: | status | ||
character(len=*), | intent(in) | :: | input_name | |||
real(kind=wp), | intent(in) | :: | input_zmin | |||
real(kind=wp), | intent(in) | :: | input_zmax | |||
integer, | intent(in) | :: | input_levels |
pure subroutine error(status, input_name, input_zmin, input_zmax, input_levels) import wp logical, dimension(:), intent(in) :: status character(*), intent(in) :: input_name real(wp), intent(in) :: input_zmin, input_zmax integer, intent(in) :: input_levels end subroutine error