Nodes of different colours represent the following:
Solid arrows point from a submodule to the (sub)module which it is
descended from. Dashed arrows point from a module or program unit to
modules which it uses.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Source Code
subroutine estimate_speeds_toro_pvrs(uL,uR,xC,flux_dim,sL,sR)#ifndef _CRAYFTNuse mod_comm_lib,only:mpistop#endifreal(dp),intent(in)::uL(nw_phys),uR(nw_phys)real(dp),intent(in)::xC(ndim)integer,intent(in)::flux_dimreal(dp),intent(out)::sL,sR#ifndef _CRAYFTNcall mpistop("estimate_speeds_toro_pvrs not implemented for this physics module")#endifsL=-1._dpsR=-1._dpend subroutine estimate_speeds_toro_pvrs