Symbol Description Uses
OBShFac0 3



File Line number Procedure Code
./pkg/obcs/obcs_apply_surf_dr.F 55 OBCS_APPLY_SURF_DR
         hFactmp = OBShFac0(i,bi,bj) + OBSeta(i,bi,bj)*recip_drF(ks)
./pkg/obcs/obcs_init_fixed.F 108 OBCS_INIT_FIXED
            IF (k.LE.Nr) OBShFac0(i,bi,bj)=hFacS(i,j,k,bi,bj)
./pkg/obcs/obcs_init_fixed.F 97 OBCS_INIT_FIXED
          OBShFac0(i,bi,bj)=0.