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

OPERATORS: 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:21:55 -02:00
parent f84250d25a
commit 1b2251f7fc
1 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
sources/operators.F90
View File

@ -76,11 +76,11 @@ module operators
! Arguments: ! Arguments:
! !
! verbose - flag determining if the subroutine should be verbose; ! verbose - flag determining if the subroutine should be verbose;
! iret - return flag of the procedure execution status; ! status - return flag of the procedure execution status;
! !
!=============================================================================== !===============================================================================
! !
subroutine initialize_operators(verbose, iret) subroutine initialize_operators(verbose, status)
! local variables are not implicit by default ! local variables are not implicit by default
! !
@ -88,8 +88,8 @@ module operators
! subroutine arguments ! subroutine arguments
! !
logical, intent(in) :: verbose logical, intent(in) :: verbose
integer, intent(inout) :: iret integer, intent(out) :: status
! !
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
@ -109,6 +109,10 @@ module operators
call start_timer(imi) call start_timer(imi)
#endif /* PROFILE */ #endif /* PROFILE */
! reset the status flag
!
status = 0
#ifdef PROFILE #ifdef PROFILE
! stop accounting time for the module initialization/finalization ! stop accounting time for the module initialization/finalization
! !
@ -128,11 +132,11 @@ module operators
! !
! Arguments: ! Arguments:
! !
! iret - return flag of the procedure execution status; ! status - return flag of the procedure execution status;
! !
!=============================================================================== !===============================================================================
! !
subroutine finalize_operators(iret) subroutine finalize_operators(status)
! local variables are not implicit by default ! local variables are not implicit by default
! !
@ -140,7 +144,7 @@ module operators
! subroutine arguments ! subroutine arguments
! !
integer, intent(inout) :: iret integer, intent(out) :: status
! !
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
@ -150,6 +154,10 @@ module operators
call start_timer(imi) call start_timer(imi)
#endif /* PROFILE */ #endif /* PROFILE */
! reset the status flag
!
status = 0
#ifdef PROFILE #ifdef PROFILE
! stop accounting time for the module initialization/finalization ! stop accounting time for the module initialization/finalization
! !