gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

PROBLEMS: Update the initialization/finalization status flag.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2019-02-11 09:20:31 -02:00
parent 2badc8c062
commit f84250d25a
1 changed files with 18 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
sources/problems.F90
View File

@ -95,16 +95,16 @@ module problems
! !
! problem - the problem name ! problem - the problem name
! verbose - a logical flag turning the information printing; ! verbose - a logical flag turning the information printing;
! iret - an integer flag for error return value; ! status - an integer flag for error return value;
! !
!=============================================================================== !===============================================================================
! !
subroutine initialize_problems(problem, verbose, iret) subroutine initialize_problems(problem, verbose, status)
! include external procedures and variables ! include external procedures and variables
! !
use parameters , only : get_parameter use parameters , only : get_parameter
use user_problem , only : setup_problem_user use user_problem, only : setup_problem_user
! local variables are not implicit by default ! local variables are not implicit by default
! !
@ -112,9 +112,9 @@ module problems
! subroutine arguments ! subroutine arguments
! !
character(len=64), intent(in) :: problem character(len=64), intent(in) :: problem
logical , intent(in) :: verbose logical , intent(in) :: verbose
integer , intent(inout) :: iret integer , intent(out) :: status
! !
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
@ -129,6 +129,10 @@ module problems
call start_timer(imi) call start_timer(imi)
#endif /* PROFILE */ #endif /* PROFILE */
! reset the status flag
!
status = 0
! set problem name ! set problem name
! !
problem_name = problem problem_name = problem
@ -185,11 +189,11 @@ module problems
! !
! Arguments: ! Arguments:
! !
! iret - an integer flag for error return value; ! status - an integer flag for error return value;
! !
!=============================================================================== !===============================================================================
! !
subroutine finalize_problems(iret) subroutine finalize_problems(status)
! local variables are not implicit by default ! local variables are not implicit by default
! !
@ -197,7 +201,7 @@ module problems
! subroutine arguments ! subroutine arguments
! !
integer, intent(inout) :: iret integer, intent(out) :: status
! !
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
@ -207,6 +211,10 @@ module problems
call start_timer(imi) call start_timer(imi)
#endif /* PROFILE */ #endif /* PROFILE */
! reset the status flag
!
status = 0
! nullify procedure pointers ! nullify procedure pointers
! !
nullify(setup_problem) nullify(setup_problem)