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.
Where possible, edges connecting nodes are
given different colours to make them easier to distinguish in
large graphs.
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.
Where possible, edges connecting nodes are
given different colours to make them easier to distinguish in
large graphs.
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.
Where possible, edges connecting nodes are
given different colours to make them easier to distinguish in
large graphs.
Source Code
subroutine fixuinf2use modglobal,only:dt,&Uinf,ifixuinf,tscale,rk3step,inletav,&freestreamavuse modfields,only:dgdtimplicit nonereal utop,freestreamutop=0.if((ifixuinf==2).and.(rk3step==3))then call detfreestream(freestream)freestreamav=freestream*dt/inletav+(1.-dt/inletav)*freestreamav! Write some statistics to monitoring file! if (myid==0) then! open(unit=11,file='freestr.txt',position='append')! write(11,3002) timee,freestream,freestreamav! 3002 format (13(6e14.6))! close(11)! endif! dgdt = (1./tscale) * (freestream - Uinf)! dgdt = (1./dt) * (freestreamav - Uinf)dgdt=(1./tscale)*(freestreamav-Uinf)! plus sign because dpdx is SUBTRACTED from Navier-Stokes eqs! dgdt = (1./inletav) * (freestreamav - Uinf)! if (ltempeq) then !tg3315 commented! call detfreestrtmp(freestrtmp)! freestrtmpav= freestrtmp*dt/inletav + (1.-dt/inletav)*freestrtmpav! thlsrcdt = -(1./tscale) * (freestrtmpav - thl_top) ! minus sign because thlsr is ADDED to Navier-Stokes eqs.! if (myid==0) then! open(unit=11,file='theta_top.txt',position='append')! write(11,3009) timee,freestrtmp,freestrtmpav!3009 format (13(6e20.12))! close(11)! endif! end ifend if end subroutine fixuinf2