Initialize from command line interface.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(integrand_lcce), | intent(inout) | :: | self | Advection field. |
||
type(command_line_interface), | intent(inout) | :: | cli | Command line interface handler. |
subroutine parse_cli(self, cli)
!< Initialize from command line interface.
class(integrand_lcce), intent(inout) :: self !< Advection field.
type(command_line_interface), intent(inout) :: cli !< Command line interface handler.
call cli%get(group='lcce', switch='-a', val=self%a, error=cli%error) ; if (cli%error/=0) stop
call cli%get(group='lcce', switch='-b', val=self%b, error=cli%error) ; if (cli%error/=0) stop
call cli%get(group='lcce', switch='-U0', val=self%U0, error=cli%error) ; if (cli%error/=0) stop
self%U = self%U0
endsubroutine parse_cli