sdr_write_proto_as_restart Subroutine

  1. sdr_protoTree_module.f90
  2. sdr_protoTree_module
  3. sdr_write_proto_as_restart

public subroutine sdr_write_proto_as_restart(proto, geometry, itime, header, prefix)

Write current leaves of the prototree as treelm restart.

This routine is mainly for debugging, to allow the visualization of the tree with harvester. The mesh will not contain any properties, instead additional data is provided as restart. Note that recursive output is used, to write each leaf node on its own, this output is thus really only useful for debugging, and might take very long for large meshes, however memory consumption should be fairly small.

Arguments

TypeIntentOptionalAttributesName
type(sdr_protoTree_type), intent(in) :: proto

The prototree to output.
type(sdr_geometry_type), intent(in) :: geometry

Bounding cube, the prototree lives in.
integer, intent(in) :: itime

wave number in character format to prepend to filenames and timestamp
type(sdr_confHead_type), intent(in) :: header

some global information on solver name and version
character(len=*), intent(in), optional :: prefix

prefix for filenames

Calls

proc~~sdr_write_proto_as_restart~~CallsGraph proc~sdr_write_proto_as_restart sdr_write_proto_as_restart proc~tem_restart_writeheader tem_restart_writeHeader proc~sdr_write_proto_as_restart->proc~tem_restart_writeheader proc~sdr_nodeprop_btest sdr_nodeProp_btest proc~sdr_write_proto_as_restart->proc~sdr_nodeprop_btest proc~protodata_ofnode protoData_ofNode proc~sdr_write_proto_as_restart->proc~protodata_ofnode proc~sdr_append_protovar sdr_append_protoVar proc~sdr_write_proto_as_restart->proc~sdr_append_protovar proc~write_childleaves write_childLeaves proc~sdr_write_proto_as_restart->proc~write_childleaves proc~tem_solvertag tem_solverTag proc~sdr_write_proto_as_restart->proc~tem_solvertag proc~tem_create_varmap tem_create_varMap proc~sdr_write_proto_as_restart->proc~tem_create_varmap proc~tem_varsys_init tem_varSys_init proc~sdr_write_proto_as_restart->proc~tem_varsys_init proc~newunit newunit proc~sdr_write_proto_as_restart->proc~newunit proc~dump_tem_global dump_tem_global proc~sdr_write_proto_as_restart->proc~dump_tem_global proc~protodata_ofnode->proc~sdr_nodeprop_btest proc~tem_varsys_append_statevar tem_varSys_append_stateVar proc~sdr_append_protovar->proc~tem_varsys_append_statevar proc~write_childleaves->proc~sdr_nodeprop_btest proc~write_childleaves->proc~protodata_ofnode proc~write_childleaves->proc~write_childleaves

Called by

proc~~sdr_write_proto_as_restart~~CalledByGraph proc~sdr_write_proto_as_restart sdr_write_proto_as_restart program~seeder seeder program~seeder->proc~sdr_write_proto_as_restart proc~sdr_flood_tree sdr_flood_tree program~seeder->proc~sdr_flood_tree proc~floodwaves_tree floodwaves_tree proc~floodwaves_tree->proc~sdr_write_proto_as_restart proc~sdr_flood_tree->proc~floodwaves_tree

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
type(treelmesh_type), private :: dummy_treelmesh
type(tem_global_type), private :: tem_global
type(tem_varSys_type), private :: varsys
type(tem_restart_type), private :: restart
type(tem_time_type), private :: timing
character(len=PathLen), private :: ElemFileName
character(len=4), private :: EndianSuffix
character(len=labelLen), private :: charWave
character(len=labelLen), private, allocatable:: varLabel(:)
real(kind=rk), private :: protodata(11+proto%node%nColors)
integer, private :: meshunit
integer, private :: restunit
integer, private :: rl
integer, private :: iLeaf
integer, private :: iColor
character(len=labelLen), private :: prefix_loc
procedure(tem_varSys_proc_point), private, pointer:: get_point=> null()
procedure(tem_varSys_proc_element), private, pointer:: get_element=> null()