ResPart_set_CreateMonitor Subroutine

private impure subroutine ResPart_set_CreateMonitor(this)

Creates monitor file for Resolved Particles

Type Bound

ResPart_set

Arguments

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

Collection of Resolved Particles

Calls

proc~~respart_set_createmonitor~~CallsGraph proc~respart_set_createmonitor ResPart_set%ResPart_set_CreateMonitor proc~monitor_set_create monitor_set%monitor_set_Create proc~respart_set_createmonitor->proc~monitor_set_create proc~monitor_set_set monitor_set%monitor_set_Set proc~respart_set_createmonitor->proc~monitor_set_set proc~hashtbl_obj_hashstring hashtbl_obj%hashtbl_obj_HashString proc~monitor_set_create->proc~hashtbl_obj_hashstring proc~hashtbl_obj_put hashtbl_obj%hashtbl_obj_Put proc~monitor_set_create->proc~hashtbl_obj_put proc~monitor_obj_init monitor_obj%monitor_obj_Init proc~monitor_set_create->proc~monitor_obj_init proc~monitor_set_expand monitor_set%monitor_set_Expand proc~monitor_set_create->proc~monitor_set_expand proc~parallel_obj_rankisroot parallel_obj%parallel_obj_RankIsRoot proc~monitor_set_create->proc~parallel_obj_rankisroot 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~monitor_set_set->proc~parallel_obj_rankisroot proc~sllist_obj_put sllist_obj%sllist_obj_Put proc~hashtbl_obj_put->proc~sllist_obj_put proc~monitor_obj_formats monitor_obj%monitor_obj_Formats proc~monitor_obj_init->proc~monitor_obj_formats proc~sysutils_obj_createdirectory sysutils_obj%sysutils_obj_CreateDirectory proc~monitor_obj_init->proc~sysutils_obj_createdirectory proc~monitor_set_getindex->proc~hashtbl_obj_hashstring none~get~4 hashtbl_obj%Get proc~monitor_set_getindex->none~get~4 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 proc~sllist_obj_put->proc~sllist_obj_put 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~~respart_set_createmonitor~~CalledByGraph proc~respart_set_createmonitor ResPart_set%ResPart_set_CreateMonitor proc~cdifs_obj_preparesolvermonitor cdifs_obj_PrepareSolverMonitor proc~cdifs_obj_preparesolvermonitor->proc~respart_set_createmonitor proc~grans_obj_preparesolvermonitor grans_obj_PrepareSolverMonitor proc~grans_obj_preparesolvermonitor->proc~respart_set_createmonitor proc~cdifs_obj_preparesolver cdifs_obj_PrepareSolver proc~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolvermonitor proc~grans_obj_preparesolver grans_obj_PrepareSolver proc~grans_obj_preparesolver->proc~grans_obj_preparesolvermonitor interface~cdifs_obj_preparesolver cdifs_obj%cdifs_obj_PrepareSolver interface~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolver interface~grans_obj_preparesolver grans_obj%grans_obj_PrepareSolver interface~grans_obj_preparesolver->proc~grans_obj_preparesolver

Source Code

    impure subroutine ResPart_set_CreateMonitor(this)
      !> Creates monitor file for Resolved Particles
      implicit none
      class(ResPart_set), intent(inout) :: this                                !! Collection of Resolved Particles

      call this%monitors%create('ResPart_1',13,stdout=.false.      )
      call this%monitors%set   ('ResPart_1', 1,label='Iteration'   )
      call this%monitors%set   ('ResPart_1', 2,label='Time'        )
      call this%monitors%set   ('ResPart_1', 3,label='NbrCenters'  )
      call this%monitors%set   ('ResPart_1', 4,label='NbrMarkers'  )
      call this%monitors%set   ('ResPart_1', 5,label='avg(X1)'    )
      call this%monitors%set   ('ResPart_1', 6,label='avg(X2)'    )
      call this%monitors%set   ('ResPart_1', 7,label='avg(X3)'    )
      call this%monitors%set   ('ResPart_1', 8,label='avg(V1)'     )
      call this%monitors%set   ('ResPart_1', 9,label='avg(V2)'     )
      call this%monitors%set   ('ResPart_1',10,label='avg(V3)'     )
      call this%monitors%set   ('ResPart_1',11,label='avg(W1)'     )
      call this%monitors%set   ('ResPart_1',12,label='avg(W2)'     )
      call this%monitors%set   ('ResPart_1',13,label='avg(W3)'     )

      call this%monitors%create('ResPart_2',10,stdout=.false.      )
      call this%monitors%set   ('ResPart_2', 1,label='Iteration'   )
      call this%monitors%set   ('ResPart_2', 2,label='Time'        )
      call this%monitors%set   ('ResPart_2', 3,label='NbrCenters'  )
      call this%monitors%set   ('ResPart_2', 4,label='NbrMarkers'  )
      call this%monitors%set   ('ResPart_2', 5,label='avg(Fh1)'    )
      call this%monitors%set   ('ResPart_2', 6,label='avg(Fh2)'    )
      call this%monitors%set   ('ResPart_2', 7,label='avg(Fh3)'    )
      call this%monitors%set   ('ResPart_2', 8,label='avg(Th1)'    )
      call this%monitors%set   ('ResPart_2', 9,label='avg(Th2)'    )
      call this%monitors%set   ('ResPart_2',10,label='avg(Th3)'    )

      call this%monitors%create('ResPart_3',10,stdout=.false.      )
      call this%monitors%set   ('ResPart_3', 1,label='Iteration'   )
      call this%monitors%set   ('ResPart_3', 2,label='Time'        )
      call this%monitors%set   ('ResPart_3', 3,label='NbrCenters'  )
      call this%monitors%set   ('ResPart_3', 4,label='NbrMarkers'  )
      call this%monitors%set   ('ResPart_3', 5,label='avg(Fc1)'    )
      call this%monitors%set   ('ResPart_3', 6,label='avg(Fc2)'    )
      call this%monitors%set   ('ResPart_3', 7,label='avg(Fc3)'    )
      call this%monitors%set   ('ResPart_3', 8,label='avg(Tc1)'    )
      call this%monitors%set   ('ResPart_3', 9,label='avg(Tc2)'    )
      call this%monitors%set   ('ResPart_3',10,label='avg(Tc3)'    )

      return
    end subroutine ResPart_set_CreateMonitor