Symbol Description Uses
cosFacU 35


File Line number Procedure Code
./model/inc/GRID.h 314 NO PROCEDURE 
     &  cosFacU, cosFacV, sqCosFacU, sqCosFacV,
./model/inc/GRID.h 318 NO PROCEDURE 
      _RL cosFacU        (1-OLy:sNy+OLy,nSx,nSy)
./pkg/generic_advdiff/gad_biharm_x.F 61 GAD_BIHARM_X 
     &    *cosFacU(j,bi,bj)
./pkg/generic_advdiff/gad_diff_x.F 57 GAD_DIFF_X 
     &      *cosFacU(j,bi,bj)
./model/src/calc_gw.F 371 CALC_GW 
     &              *cosFacU(j,bi,bj)
./model/src/calc_gw.F 378 CALC_GW 
     &              *cosFacU(j,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 121 MOM_U_SIDEDRAG 
     &         *( viscAh_Z(i,j  )*uFld(i,j)*cosFacU(j,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 125 MOM_U_SIDEDRAG 
     &           -viscA4_Z(i,j  )*del2u(i,j)*cosFacU(j,bi,bj) )
./pkg/mom_common/mom_u_sidedrag.F 133 MOM_U_SIDEDRAG 
     &         *( viscAh_Z(i,j+1)*uFld(i,j)*cosFacU(j,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 137 MOM_U_SIDEDRAG 
     &           -viscA4_Z(i,j+1)*del2u(i,j)*cosFacU(j,bi,bj) )
./pkg/mom_common/mom_u_sidedrag.F 89 MOM_U_SIDEDRAG 
     &                viscAh*uFld(i,j)*cosFacU(j,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 93 MOM_U_SIDEDRAG 
     &               -viscA4*del2u(i,j)*cosFacU(j,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F 89 MOM_W_SIDEDRAG 
     &                                 *cosFacU(j,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F 99 MOM_W_SIDEDRAG 
     &                                 *cosFacU(j,bi,bj)
./pkg/mom_fluxform/mom_u_xviscflux.F 60 MOM_U_XVISCFLUX 
     &       *cosFacU(J,bi,bj)
./pkg/mom_fluxform/mom_u_xviscflux.F 65 MOM_U_XVISCFLUX 
     &       *cosFacU(J,bi,bj)
./pkg/mom_fluxform/mom_v_yviscflux.F 61 MOM_V_YVISCFLUX 
     &       *cosFacU(J,bi,bj)
./pkg/mom_fluxform/mom_v_yviscflux.F 68 MOM_V_YVISCFLUX 
     &       *cosFacU(J,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 157 MOM_VI_HDISSIP 
     &                             ( (Dij-Dmj)*cosFacU(j,bi,bj) )
./pkg/mom_vecinv/mom_vi_hdissip.F 160 MOM_VI_HDISSIP 
     &                                        *cosFacU(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 172 MOM_VI_HDISSIP 
     &               cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 175 MOM_VI_HDISSIP 
     &                                           *cosFacU(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 218 MOM_VI_HDISSIP 
     &                             viscA4D*( Dij-Dmj )*cosFacU(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 221 MOM_VI_HDISSIP 
     &                                                *cosFacU(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 233 MOM_VI_HDISSIP 
     &               cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 237 MOM_VI_HDISSIP 
     &                                           *cosFacU(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 63 MOM_VI_HDISSIP 
     &               cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 66 MOM_VI_HDISSIP 
     &                                           *cosFacU(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 93 MOM_VI_HDISSIP 
     &               cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 97 MOM_VI_HDISSIP 
     &                                           *cosFacU(j,bi,bj)
./pkg/seaice/diffus.F 70 DIFFUS 
     &         * cosFacU(j,bi,bj)
./model/src/ini_grid.F 108 INI_GRID 
         cosFacU(j,bi,bj)   = 1.
./model/src/ini_spherical_polar_grid.F 262 INI_SPHERICAL_POLAR_GRID 
          cosFacU(j,bi,bj) = ABS( COS(lat*deg2rad) )**cosPower
./model/src/ini_spherical_polar_grid.F 265 INI_SPHERICAL_POLAR_GRID 
          sqcosFacU(j,bi,bj) = SQRT(cosFacU(j,bi,bj))
./model/src/ini_spherical_polar_grid.F 268 INI_SPHERICAL_POLAR_GRID 
          cosFacU(j,bi,bj) = 1.