Symbol Description Uses
_fCori 66


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 135 DYNSOLVER 
     &         (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1)
./pkg/seaice/dynsolver.F 137 DYNSOLVER 
     &         (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1)
./pkg/seaice/dynsolver.F 152 DYNSOLVER 
     &         (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1)
./pkg/seaice/dynsolver.F 154 DYNSOLVER 
     &         (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1)
./pkg/seaice/lsr.F 239 LSR 
     &         *SIGN(SINWAT, _fCori(I,J,bi,bj))
./pkg/seaice/lsr.F 244 LSR 
     &         -SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATY(I,J,bi,bj))
./pkg/seaice/lsr.F 246 LSR 
     &         *(SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATX(I,J,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 158 SEAICE_CALC_LHS 
     &         seaiceMassC(I  ,J,bi,bj) * _fCori(I  ,J,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 160 SEAICE_CALC_LHS 
     &       + seaiceMassC(I-1,J,bi,bj) * _fCori(I-1,J,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 165 SEAICE_CALC_LHS 
     &         seaiceMassC(I,J  ,bi,bj) * _fCori(I,J  ,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 167 SEAICE_CALC_LHS 
     &       + seaiceMassC(I,J-1,bi,bj) * _fCori(I,J-1,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 174 SEAICE_CALC_LHS 
     &         - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 *
./pkg/seaice/seaice_calc_lhs.F 184 SEAICE_CALC_LHS 
     &         + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 *
./pkg/seaice/seaice_calc_rhs.F 76 SEAICE_CALC_RHS 
     &         - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 *
./pkg/seaice/seaice_calc_rhs.F 85 SEAICE_CALC_RHS 
     &         + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 *
./pkg/seaice/seaice_evp.F 494 SEAICE_EVP 
     &           - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 *
./pkg/seaice/seaice_evp.F 505 SEAICE_EVP 
     &           + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 *
./pkg/seaice/seaice_evp.F 515 SEAICE_EVP 
     &             seaiceMassC(I  ,J,bi,bj) * _fCori(I  ,J,bi,bj)
./pkg/seaice/seaice_evp.F 517 SEAICE_EVP 
     &           + seaiceMassC(I-1,J,bi,bj) * _fCori(I-1,J,bi,bj)
./pkg/seaice/seaice_evp.F 521 SEAICE_EVP 
     &             seaiceMassC(I,J  ,bi,bj) * _fCori(I,J  ,bi,bj)
./pkg/seaice/seaice_evp.F 523 SEAICE_EVP 
     &           + seaiceMassC(I,J-1,bi,bj) * _fCori(I,J-1,bi,bj)
./pkg/seaice/seaice_freedrift.F 86 SEAICE_FREEDRIFT 
           mIceCor=SEAICE_rhoIce*HEFF(i,j,bi,bj)*_fCori(I,J,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 109 SEAICE_GET_DYNFORCING 
     &         (COSWIN*U1-SIGN(SINWIN, _fCori(i,j,bi,bj))*V1)
./pkg/seaice/seaice_get_dynforcing.F 111 SEAICE_GET_DYNFORCING 
     &         (SIGN(SINWIN, _fCori(i,j,bi,bj))*U1+COSWIN*V1)
./pkg/seaice/seaice_get_dynforcing.F 182 SEAICE_GET_DYNFORCING 
     &          -SIGN(SINWIN, _fCori(i,j,bi,bj))*
./pkg/seaice/seaice_get_dynforcing.F 190 SEAICE_GET_DYNFORCING 
     &          -SIGN(SINWIN, _fCori(i-1,j,bi,bj))*
./pkg/seaice/seaice_get_dynforcing.F 197 SEAICE_GET_DYNFORCING 
     &         ( CDAIR(i,j)*(SIGN(SINWIN, _fCori(i,j,bi,bj))*
./pkg/seaice/seaice_get_dynforcing.F 205 SEAICE_GET_DYNFORCING 
     &          +CDAIR(i,j-1)*(SIGN(SINWIN, _fCori(i,j-1,bi,bj))*
./pkg/seaice/seaice_get_dynforcing.F 223 SEAICE_GET_DYNFORCING 
     &          -SIGN(SINWIN, _fCori(i  ,j,bi,bj))*vWind(i  ,j,bi,bj) )
./pkg/seaice/seaice_get_dynforcing.F 226 SEAICE_GET_DYNFORCING 
     &          -SIGN(SINWIN, _fCori(i-1,j,bi,bj))*vWind(i-1,j,bi,bj) )
./pkg/seaice/seaice_get_dynforcing.F 231 SEAICE_GET_DYNFORCING 
     &          SIGN(SINWIN, _fCori(i,j  ,bi,bj))*uWind(i,j  ,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 234 SEAICE_GET_DYNFORCING 
     &          SIGN(SINWIN, _fCori(i,j-1,bi,bj))*uWind(i,j-1,bi,bj)
./pkg/seaice/seaice_lsr.F 326 SEAICE_LSR 
     &         - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 *
./pkg/seaice/seaice_lsr.F 337 SEAICE_LSR 
     &         + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 *
./pkg/seaice/seaice_lsr.F 351 SEAICE_LSR 
     &         ( seaiceMassC(I  ,J,bi,bj) * _fCori(I  ,J,bi,bj)
./pkg/seaice/seaice_lsr.F 353 SEAICE_LSR 
     &         + seaiceMassC(I-1,J,bi,bj) * _fCori(I-1,J,bi,bj)
./pkg/seaice/seaice_lsr.F 356 SEAICE_LSR 
     &         ( seaiceMassC(I,J  ,bi,bj) * _fCori(I,J  ,bi,bj)
./pkg/seaice/seaice_lsr.F 358 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 525 SEAICE_PRECOND_RHSU 
     &        - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 *
./pkg/seaice/seaice_preconditioner.F 535 SEAICE_PRECOND_RHSU 
     &        ( seaiceMassC(I  ,J,bi,bj) * _fCori(I  ,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 537 SEAICE_PRECOND_RHSU 
     &        + seaiceMassC(I-1,J,bi,bj) * _fCori(I-1,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 647 SEAICE_PRECOND_RHSV 
     &        + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 *
./pkg/seaice/seaice_preconditioner.F 657 SEAICE_PRECOND_RHSV 
     &        ( seaiceMassC(I,J  ,bi,bj) * _fCori(I,J  ,bi,bj)
./pkg/seaice/seaice_preconditioner.F 659 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
./pkg/ecco/cost_tau_eddy.F 235 COST_TAU_EDDY 
     &  *0.5*(_fCori(i,j,bi,bj)+_fCori(i-1,j,bi,bj)) )**2
./pkg/ecco/cost_tau_eddy.F 241 COST_TAU_EDDY 
     &  *0.5*(_fCori(i,j,bi,bj)+_fCori(i,j-1,bi,bj)) )**2