Symbol Description Uses
rdrckp1 8


File Line number Procedure Code
./pkg/mom_common/mom_v_bottomdrag.F 58 MOM_V_BOTTOMDRAG 
      _RL rdrckp1,maskDown
./pkg/mom_common/mom_v_bottomdrag.F 71 MOM_V_BOTTOMDRAG 
      rdrckp1=recip_drC(kDownC)
./pkg/mom_common/mom_v_bottomdrag.F 74 MOM_V_BOTTOMDRAG 
      IF (k.EQ.kBottom) rdrckp1=recip_drF(k)
./pkg/mom_common/mom_v_bottomdrag.F 82 MOM_V_BOTTOMDRAG 
     &      2.*KappaRV(i,j,kDownC)*rdrckp1*viscFac
./pkg/mom_common/mom_u_bottomdrag.F 51 MOM_U_BOTTOMDRAG 
      _RL rdrckp1,maskDown
./pkg/mom_common/mom_u_bottomdrag.F 64 MOM_U_BOTTOMDRAG 
      rdrckp1=recip_drC(kDownC)
./pkg/mom_common/mom_u_bottomdrag.F 65 MOM_U_BOTTOMDRAG 
      IF (k.EQ.kBottom) rdrckp1=recip_drF(k)
./pkg/mom_common/mom_u_bottomdrag.F 75 MOM_U_BOTTOMDRAG 
     &      2.*KappaRU(i,j,kDownC)*rdrckp1*viscFac