Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
fluxl2.f
Go to the documentation of this file.
1  function ffl2 (inod, ibrn, time_flag)
2 c
3 c Define passed variables
4 c
5  integer inod, ibrn
6 c
7 c Calculates the flux in L2 (series).
8 c
9  include 'zdemparm.h'
10  include 'zdemmax.h'
11  include 'zdemwork.h'
12 c
13 c *If (time on the half step was requested)
14  if (time_flag .eq. half_step) then
15 c
16 c *Average value from last whole step and value from this whole step
17  ffl2=0.5*(zir(inod,ibrn)+zirn(inod,ibrn)) * zlrechk(inod,ibrn)
18 c
19 c *Else (time on the whole step was requested)
20  else
21 c
22 c *Return value on the current whole step
23  ffl2 = zirn(inod,ibrn) * zlrechk(inod,ibrn)
24 c
25  endif
26 c
27  return
28  end
function ffl2(inod, ibrn, time_flag)
Definition: fluxl2.f:1