1 subroutine r8util_bcherm1(fherm,idimx1,
10 INTEGER,
PARAMETER :: R8=selected_real_kind(12,100)
12 real*8 :: fherm(0:1,idimx1)
14 integer :: jbcxa,jbcxb
25 if((jbcxa.eq.1).or.(jbcxb.eq.1))
then
31 fherm(1,1)=(fherm(0,2)-fherm(0,1))/zdx
37 zdx = x1(idimx1)-x1(idimx1-1)
38 fherm(1,idimx1)=(fherm(0,idimx1)-fherm(0,idimx1-1))/zdx
43 end subroutine r8util_bcherm1