NAME
Simulation_locatePhotosphere
SYNOPSIS
call Simulation_locatePhotosphere(real(INOUT) :: rad_photosphere)
DESCRIPTION
Loops through blocks and zones starting from the outer boundary of the simulation domain and integrates optical depth up to tau=2/3 to determine the location of the photosphere.
ARGUMENTS
rad_photosphere : the photosphere radius is returned here
NOTES
There is no useful default implementation. A simulation has to provide an implementation if needed.