1 subroutine util_bcherm1(fherm,idimx1,
11 real :: fherm(0:1,idimx1)
13 integer :: jbcxa,jbcxb
24 if((jbcxa.eq.1).or.(jbcxb.eq.1))
then
30 fherm(1,1)=(fherm(0,2)-fherm(0,1))/zdx
36 zdx = x1(idimx1)-x1(idimx1-1)
37 fherm(1,idimx1)=(fherm(0,idimx1)-fherm(0,idimx1-1))/zdx
42 end subroutine util_bcherm1