Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
26 lines (22 sloc) 773 Bytes
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! !
! FILE: SetTempBCs.F90 !
! CONTAINS: subroutine SetTempBCs !
! !
! PURPOSE: Initialization routine. Calcuates the !
! temperature boundary conditions at the plates !
! !
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
subroutine SetTempBCs
use param
implicit none
integer :: ic,jc
do ic=1,nzm
do jc=1,nym
temptp(jc,ic)=0.d0
tempbp(jc,ic)=1.d0
enddo
enddo
return
end
!