Routine to initialize solver head with name, version and revision number
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(tem_solveHead_type), | intent(out) | :: | me |
solver info |
||
character(len=*), | intent(in) | :: | solName |
name of the solver |
||
character(len=*), | intent(in) | :: | version |
version of the solver |
subroutine tem_init_solveHead( me, solName, version )
!> solver info
type( tem_solveHead_type), intent(out) :: me
!> name of the solver
character(len=*), intent(in) :: solName
!> version of the solver
character(len=*), intent(in) :: version
! ---------------------------------------------------------------------------
me%solName = trim(solName)
me%version = trim(version)
me%revision = soi_solver_revision
end subroutine tem_init_solveHead