sdr_write_proto_as_restart Subroutine

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~tem_create_varmap tem_create_varMap proc~sdr_write_proto_as_restart->proc~tem_create_varmap proc~write_childleaves write_childLeaves proc~sdr_write_proto_as_restart->proc~write_childleaves proc~dump_tem_global dump_tem_global proc~sdr_write_proto_as_restart->proc~dump_tem_global 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~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~sdr_nodeprop_btest sdr_nodeProp_btest proc~sdr_write_proto_as_restart->proc~sdr_nodeprop_btest proc~tem_solvertag tem_solverTag proc~sdr_write_proto_as_restart->proc~tem_solvertag proc~write_childleaves->proc~write_childleaves proc~write_childleaves->proc~protodata_ofnode proc~write_childleaves->proc~sdr_nodeprop_btest 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

Called by

proc~~sdr_write_proto_as_restart~~CalledByGraph proc~sdr_write_proto_as_restart sdr_write_proto_as_restart proc~floodwaves_tree floodwaves_tree proc~floodwaves_tree->proc~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~sdr_flood_tree->proc~floodwaves_tree

Contents


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()