thermal_conduct Subroutine

public subroutine thermal_conduct(isp, Ts, ns, nn, J1, lambda, beta)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: isp
real(kind=wp), intent(in), dimension(-1:,-1:,-1:):: Ts
real(kind=wp), intent(in), dimension(-1:,-1:,-1:):: ns
real(kind=wp), intent(in), dimension(1:size(Ts,1)-4,1:size(Ts,2)-4,1:size(Ts,3)-4,ln):: nn
real(kind=wp), intent(in), dimension(1:size(Ts,1)-4,1:size(Ts,2)-4,1:size(Ts,3)-4):: J1
real(kind=wp), intent(out), dimension(1:size(Ts,1)-4,1:size(Ts,2)-4,1:size(Ts,3)-4):: lambda
real(kind=wp), intent(out), dimension(1:size(Ts,1)-4,1:size(Ts,2)-4,1:size(Ts,3)-4):: beta

Contents

None