cdifs_obj_ibVFUpdateMonitor Subroutine

subroutine cdifs_obj_ibVFUpdateMonitor(this)

Monitors ibVF solver.

Arguments

Type IntentOptional Attributes Name
class(cdifs_obj), intent(inout) :: this

CDIFS solver

Calls

proc~~cdifs_obj_ibvfupdatemonitor~~CallsGraph proc~cdifs_obj_ibvfupdatemonitor cdifs_obj_ibVFUpdateMonitor proc~monitor_set_set monitor_set%monitor_set_Set proc~cdifs_obj_ibvfupdatemonitor->proc~monitor_set_set proc~monitor_obj_setval monitor_obj%monitor_obj_SetVal proc~monitor_set_set->proc~monitor_obj_setval proc~monitor_set_getindex monitor_set%monitor_set_GetIndex proc~monitor_set_set->proc~monitor_set_getindex proc~parallel_obj_rankisroot parallel_obj%parallel_obj_RankIsRoot proc~monitor_set_set->proc~parallel_obj_rankisroot none~get~4 hashtbl_obj%Get proc~monitor_set_getindex->none~get~4 proc~hashtbl_obj_hashstring hashtbl_obj%hashtbl_obj_HashString proc~monitor_set_getindex->proc~hashtbl_obj_hashstring proc~hashtbl_obj_get_int4 hashtbl_obj%hashtbl_obj_Get_int4 none~get~4->proc~hashtbl_obj_get_int4 proc~hashtbl_obj_get_int8 hashtbl_obj%hashtbl_obj_Get_int8 none~get~4->proc~hashtbl_obj_get_int8 proc~hashtbl_obj_get_real_dp hashtbl_obj%hashtbl_obj_Get_real_dp none~get~4->proc~hashtbl_obj_get_real_dp proc~hashtbl_obj_get_real_sp hashtbl_obj%hashtbl_obj_Get_real_sp none~get~4->proc~hashtbl_obj_get_real_sp none~get~3 sllist_obj%Get proc~hashtbl_obj_get_int4->none~get~3 proc~hashtbl_obj_get_int8->none~get~3 proc~hashtbl_obj_get_real_dp->none~get~3 proc~hashtbl_obj_get_real_sp->none~get~3 proc~sllist_obj_get_int4 sllist_obj%sllist_obj_Get_int4 none~get~3->proc~sllist_obj_get_int4 proc~sllist_obj_get_int8 sllist_obj%sllist_obj_Get_int8 none~get~3->proc~sllist_obj_get_int8 proc~sllist_obj_get_real_dp sllist_obj%sllist_obj_Get_real_dp none~get~3->proc~sllist_obj_get_real_dp proc~sllist_obj_get_real_sp sllist_obj%sllist_obj_Get_real_sp none~get~3->proc~sllist_obj_get_real_sp proc~sllist_obj_get_int4->proc~sllist_obj_get_int4 proc~sllist_obj_get_int8->proc~sllist_obj_get_int8 proc~sllist_obj_get_real_dp->proc~sllist_obj_get_real_dp proc~sllist_obj_get_real_sp->proc~sllist_obj_get_real_sp

Called by

proc~~cdifs_obj_ibvfupdatemonitor~~CalledByGraph proc~cdifs_obj_ibvfupdatemonitor cdifs_obj_ibVFUpdateMonitor proc~cdifs_obj_monitor cdifs_obj_Monitor proc~cdifs_obj_monitor->proc~cdifs_obj_ibvfupdatemonitor interface~cdifs_obj_monitor cdifs_obj%cdifs_obj_Monitor interface~cdifs_obj_monitor->proc~cdifs_obj_monitor proc~cdifs_obj_preparesolver cdifs_obj_PrepareSolver proc~cdifs_obj_preparesolver->interface~cdifs_obj_monitor interface~cdifs_obj_preparesolver cdifs_obj%cdifs_obj_PrepareSolver interface~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolver

Source Code

    subroutine cdifs_obj_ibVFUpdateMonitor(this)
      !> Monitors ibVF solver.
      implicit none
      class(cdifs_obj), intent(inout) :: this                                  !! CDIFS solver

      call this%monitors%set('ibVF',1,this%timer%iter)
      call this%monitors%set('ibVF',2,this%timer%time)
      call this%monitors%set('ibVF',3,this%VFsolver%rel)
      call this%monitors%set('ibVF',4,this%intRHSVF    )
      call this%monitors%set('ibVF',5,this%VFsolver%it )

      ! Reset values
      this%VFsolver%rel = 0.0_wp
      this%VFsolver%it  = 0
      this%intRHSVF     = 0.0_wp

      return
    end subroutine cdifs_obj_ibVFUpdateMonitor