Symbol Description Uses
_fCori 62


File Line number Procedure Code
./pkg/mom_fluxform/mom_u_coriolis.F 54 MOM_U_CORIOLIS 
     &     0.5*( _fCori( i ,j,bi,bj)
./pkg/mom_fluxform/mom_u_coriolis.F 56 MOM_U_CORIOLIS 
     &         + _fCori(i-1,j,bi,bj)
./pkg/mom_fluxform/mom_u_coriolis.F 65 MOM_U_CORIOLIS 
     &     0.5*( _fCori( i ,j,bi,bj) +
./pkg/mom_fluxform/mom_u_coriolis.F 66 MOM_U_CORIOLIS 
     &           _fCori(i-1,j,bi,bj)  )
./pkg/mom_fluxform/mom_v_coriolis.F 54 MOM_V_CORIOLIS 
     &    -0.5*( _fCori(i, j ,bi,bj)
./pkg/mom_fluxform/mom_v_coriolis.F 56 MOM_V_CORIOLIS 
     &         + _fCori(i,j-1,bi,bj)
./pkg/mom_fluxform/mom_v_coriolis.F 65 MOM_V_CORIOLIS 
     &    -0.5*(_fCori(i, j ,bi,bj)+_fCori(i,j-1,bi,bj))
./pkg/seaice/dynsolver.F 138 DYNSOLVER 
     &         (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1)
./pkg/seaice/dynsolver.F 140 DYNSOLVER 
     &         (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1)
./pkg/seaice/dynsolver.F 155 DYNSOLVER 
     &         (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1)
./pkg/seaice/dynsolver.F 157 DYNSOLVER 
     &         (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1)
./pkg/seaice/lsr.F 242 LSR 
     &         *SIGN(SINWAT, _fCori(I,J,bi,bj))
./pkg/seaice/lsr.F 247 LSR 
     &         -SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATY(I,J,bi,bj))
./pkg/seaice/lsr.F 249 LSR 
     &         *(SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATX(I,J,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 156 SEAICE_CALC_LHS 
     &         seaiceMassC(I  ,J,bi,bj) * _fCori(I  ,J,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 158 SEAICE_CALC_LHS 
     &       + seaiceMassC(I-1,J,bi,bj) * _fCori(I-1,J,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 163 SEAICE_CALC_LHS 
     &         seaiceMassC(I,J  ,bi,bj) * _fCori(I,J  ,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 165 SEAICE_CALC_LHS 
     &       + seaiceMassC(I,J-1,bi,bj) * _fCori(I,J-1,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 172 SEAICE_CALC_LHS 
     &         - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 *
./pkg/seaice/seaice_calc_lhs.F 182 SEAICE_CALC_LHS 
     &         + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 *
./pkg/seaice/seaice_calc_rhs.F 104 SEAICE_CALC_RHS 
     &         + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 *
./pkg/seaice/seaice_calc_rhs.F 95 SEAICE_CALC_RHS 
     &         - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 *
./pkg/seaice/seaice_evp.F 785 SEAICE_EVP 
     &           - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 *
./pkg/seaice/seaice_evp.F 796 SEAICE_EVP 
     &           + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 *
./pkg/seaice/seaice_evp.F 806 SEAICE_EVP 
     &             seaiceMassC(I  ,J,bi,bj) * _fCori(I  ,J,bi,bj)
./pkg/seaice/seaice_evp.F 808 SEAICE_EVP 
     &           + seaiceMassC(I-1,J,bi,bj) * _fCori(I-1,J,bi,bj)
./pkg/seaice/seaice_evp.F 812 SEAICE_EVP 
     &             seaiceMassC(I,J  ,bi,bj) * _fCori(I,J  ,bi,bj)
./pkg/seaice/seaice_evp.F 814 SEAICE_EVP 
     &           + seaiceMassC(I,J-1,bi,bj) * _fCori(I,J-1,bi,bj)
./pkg/seaice/seaice_freedrift.F 89 SEAICE_FREEDRIFT 
           mIceCor=SEAICE_rhoIce*HEFF(i,j,bi,bj)*_fCori(I,J,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 121 SEAICE_GET_DYNFORCING 
     &         (COSWIN*U1-SIGN(SINWIN, _fCori(i,j,bi,bj))*V1)
./pkg/seaice/seaice_get_dynforcing.F 123 SEAICE_GET_DYNFORCING 
     &         (SIGN(SINWIN, _fCori(i,j,bi,bj))*U1+COSWIN*V1)
./pkg/seaice/seaice_get_dynforcing.F 194 SEAICE_GET_DYNFORCING 
     &          -SIGN(SINWIN, _fCori(i,j,bi,bj))*
./pkg/seaice/seaice_get_dynforcing.F 202 SEAICE_GET_DYNFORCING 
     &          -SIGN(SINWIN, _fCori(i-1,j,bi,bj))*
./pkg/seaice/seaice_get_dynforcing.F 209 SEAICE_GET_DYNFORCING 
     &         ( CDAIR(i,j)*(SIGN(SINWIN, _fCori(i,j,bi,bj))*
./pkg/seaice/seaice_get_dynforcing.F 217 SEAICE_GET_DYNFORCING 
     &          +CDAIR(i,j-1)*(SIGN(SINWIN, _fCori(i,j-1,bi,bj))*
./pkg/seaice/seaice_get_dynforcing.F 235 SEAICE_GET_DYNFORCING 
     &          -SIGN(SINWIN, _fCori(i  ,j,bi,bj))*vWind(i  ,j,bi,bj) )
./pkg/seaice/seaice_get_dynforcing.F 238 SEAICE_GET_DYNFORCING 
     &          -SIGN(SINWIN, _fCori(i-1,j,bi,bj))*vWind(i-1,j,bi,bj) )
./pkg/seaice/seaice_get_dynforcing.F 243 SEAICE_GET_DYNFORCING 
     &          SIGN(SINWIN, _fCori(i,j  ,bi,bj))*uWind(i,j  ,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 246 SEAICE_GET_DYNFORCING 
     &          SIGN(SINWIN, _fCori(i,j-1,bi,bj))*uWind(i,j-1,bi,bj)
./pkg/seaice/seaice_lsr.F 383 SEAICE_LSR 
     &         - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 *
./pkg/seaice/seaice_lsr.F 394 SEAICE_LSR 
     &         + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 *
./pkg/seaice/seaice_lsr.F 408 SEAICE_LSR 
     &         ( seaiceMassC(I  ,J,bi,bj) * _fCori(I  ,J,bi,bj)
./pkg/seaice/seaice_lsr.F 410 SEAICE_LSR 
     &         + seaiceMassC(I-1,J,bi,bj) * _fCori(I-1,J,bi,bj)
./pkg/seaice/seaice_lsr.F 413 SEAICE_LSR 
     &         ( seaiceMassC(I,J  ,bi,bj) * _fCori(I,J  ,bi,bj)
./pkg/seaice/seaice_lsr.F 415 SEAICE_LSR 
     &         + seaiceMassC(I,J-1,bi,bj) * _fCori(I,J-1,bi,bj)
./pkg/seaice/seaice_ocean_stress.F 109 SEAICE_OCEAN_STRESS 
     &         + SIGN(SINWAT,  _fCori(I,J,bi,bj)) * 0.5 _d 0 *
./pkg/seaice/seaice_ocean_stress.F 98 SEAICE_OCEAN_STRESS 
     &         - SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 *
./pkg/seaice/seaice_preconditioner.F 515 SEAICE_PRECOND_RHSU 
     &        - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 *
./pkg/seaice/seaice_preconditioner.F 525 SEAICE_PRECOND_RHSU 
     &        ( seaiceMassC(I  ,J,bi,bj) * _fCori(I  ,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 527 SEAICE_PRECOND_RHSU 
     &        + seaiceMassC(I-1,J,bi,bj) * _fCori(I-1,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 620 SEAICE_PRECOND_RHSV 
     &        + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 *
./pkg/seaice/seaice_preconditioner.F 630 SEAICE_PRECOND_RHSV 
     &        ( seaiceMassC(I,J  ,bi,bj) * _fCori(I,J  ,bi,bj)
./pkg/seaice/seaice_preconditioner.F 632 SEAICE_PRECOND_RHSV 
     &        + seaiceMassC(I,J-1,bi,bj) * _fCori(I,J-1,bi,bj)
./pkg/cd_code/cd_code_scheme.F 135 CD_CODE_SCHEME 
     &          -( _fCori( i, j,bi,bj)
./pkg/cd_code/cd_code_scheme.F 136 CD_CODE_SCHEME 
     &            +_fCori(i-1,j,bi,bj) )*0.5 _d 0
./pkg/cd_code/cd_code_scheme.F 170 CD_CODE_SCHEME 
     &              ( _fCori( i, j,bi,bj)
./pkg/cd_code/cd_code_scheme.F 171 CD_CODE_SCHEME 
     &               +_fCori(i-1,j,bi,bj) )*0.5 _d 0
./pkg/cd_code/cd_code_scheme.F 197 CD_CODE_SCHEME 
     &          +( _fCori(i, j, bi,bj)
./pkg/cd_code/cd_code_scheme.F 198 CD_CODE_SCHEME 
     &            +_fCori(i,j-1,bi,bj) )*0.5 _d 0
./pkg/cd_code/cd_code_scheme.F 232 CD_CODE_SCHEME 
     &             -( _fCori(i, j, bi,bj)
./pkg/cd_code/cd_code_scheme.F 233 CD_CODE_SCHEME 
     &               +_fCori(i,j-1,bi,bj) )*0.5 _d 0