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 phys_get_dt(w,x,dx,dtnew)use mod_usr,only:gravity_fieldreal(dp),intent(in)::w(nw_phys),x(1:ndim),dx(1:ndim)real(dp),intent(out)::dtnew! .. local ..integer::idimreal(dp)::fielddtnew=huge(1.0d0)do idim=1,ndimfield=gravity_field(w,x,idim)field=max(abs(field),epsilon(1.0d0))dtnew=min(dtnew,1_dp/sqrt(field/dx(idim)))end do end subroutine phys_get_dt