1 ! declaration of fire model parameter arrays
, passed to normal_spread as arguments
2 integer
, intent(in
)::xifms
,xifme
,xjfms
,xjfme
! redundant dimensions
, for pass
-through only
3 real
,intent(in
),dimension(xifms
:xifme
,xjfms
:xjfme
):: vx
,vy
! wind
velocity (m
/s
)
4 real
,intent(in
),dimension(xifms
:xifme
,xjfms
:xjfme
):: zsf
! terrain
height (m
)
5 real
,intent(IN
),dimension(xifms
:xifme
,xjfms
:xjfme
):: bbb
,betafl
,phiwc
,r_0
! (node
) spread formula coefficients
6 real
,intent(IN
),dimension(xifms
:xifme
,xjfms
:xjfme
):: fgip
! (cell
) init mass of surface
fuel (kg
/m
^2)
7 integer
,intent(IN
),dimension(xifms
:xifme
,xjfms
:xjfme
):: ischap
! (node
) .ne
.0 if chapparal