Symbol Description Uses
OBWhFac0 3



File Line number Procedure Code
./pkg/obcs/obcs_apply_surf_dr.F 77 OBCS_APPLY_SURF_DR
         hFactmp = OBWhFac0(j,bi,bj) + OBWeta(j,bi,bj)*recip_drF(ks)
./pkg/obcs/obcs_init_fixed.F 115 OBCS_INIT_FIXED
          OBWhFac0(j,bi,bj)=0.
./pkg/obcs/obcs_init_fixed.F 126 OBCS_INIT_FIXED
            IF (k.LE.Nr) OBWhFac0(j,bi,bj)=hFacW(i,j,k,bi,bj)