Symbol Description Uses
_fCori 59


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 131 DYNSOLVER 
     &         (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1)
./pkg/seaice/dynsolver.F 133 DYNSOLVER 
     &         (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1)
./pkg/seaice/dynsolver.F 148 DYNSOLVER 
     &         (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1)
./pkg/seaice/dynsolver.F 150 DYNSOLVER 
     &         (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1)
./pkg/seaice/dynsolver.F 335 DYNSOLVER 
     &         *SIGN(SINWAT, _fCori(I,J,bi,bj))+COR_ICE(I,J,bi,bj)
./pkg/seaice/dynsolver.F 339 DYNSOLVER 
     &         -SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATY(I,J,bi,bj))
./pkg/seaice/dynsolver.F 341 DYNSOLVER 
     &         *(SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATX(I,J,bi,bj)
./pkg/seaice/dynsolver.F 454 DYNSOLVER 
     &         *SIGN(SINWAT, _fCori(I,J,bi,bj))+COR_ICE(I,J,bi,bj)
./pkg/seaice/dynsolver.F 458 DYNSOLVER 
     &         -SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATY(I,J,bi,bj))
./pkg/seaice/dynsolver.F 460 DYNSOLVER 
     &         *(SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATX(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 461 SEAICE_EVP 
     &           - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 *
./pkg/seaice/seaice_evp.F 472 SEAICE_EVP 
     &           + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 *
./pkg/seaice/seaice_evp.F 482 SEAICE_EVP 
     &             seaiceMassC(I  ,J,bi,bj) * _fCori(I  ,J,bi,bj)
./pkg/seaice/seaice_evp.F 484 SEAICE_EVP 
     &           + seaiceMassC(I-1,J,bi,bj) * _fCori(I-1,J,bi,bj)
./pkg/seaice/seaice_evp.F 488 SEAICE_EVP 
     &             seaiceMassC(I,J  ,bi,bj) * _fCori(I,J  ,bi,bj)
./pkg/seaice/seaice_evp.F 490 SEAICE_EVP 
     &           + seaiceMassC(I,J-1,bi,bj) * _fCori(I,J-1,bi,bj)
./pkg/seaice/seaice_freedrift.F 91 SEAICE_FREEDRIFT 
           mIceCor=SEAICE_rhoIce*HEFF(i,j,bi,bj)*_fCori(I,J,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 101 SEAICE_GET_DYNFORCING 
     &         (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1)
./pkg/seaice/seaice_get_dynforcing.F 165 SEAICE_GET_DYNFORCING 
     &          -SIGN(SINWIN, _fCori(I,J,bi,bj))*
./pkg/seaice/seaice_get_dynforcing.F 173 SEAICE_GET_DYNFORCING 
     &          -SIGN(SINWIN, _fCori(I-1,J,bi,bj))*
./pkg/seaice/seaice_get_dynforcing.F 179 SEAICE_GET_DYNFORCING 
     &          (CDAIR(I,J)*(SIGN(SINWIN, _fCori(I,J,bi,bj))*
./pkg/seaice/seaice_get_dynforcing.F 187 SEAICE_GET_DYNFORCING 
     &          +CDAIR(I,J-1)*(SIGN(SINWIN, _fCori(I,J-1,bi,bj))*
./pkg/seaice/seaice_get_dynforcing.F 204 SEAICE_GET_DYNFORCING 
     &          -SIGN(SINWIN, _fCori(I  ,J,bi,bj))*vWind(I  ,J,bi,bj) )
./pkg/seaice/seaice_get_dynforcing.F 207 SEAICE_GET_DYNFORCING 
     &          -SIGN(SINWIN, _fCori(I-1,J,bi,bj))*vWind(I-1,J,bi,bj) )
./pkg/seaice/seaice_get_dynforcing.F 212 SEAICE_GET_DYNFORCING 
     &          SIGN(SINWIN, _fCori(I,J  ,bi,bj))*uWind(I,J  ,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 215 SEAICE_GET_DYNFORCING 
     &          SIGN(SINWIN, _fCori(I,J-1,bi,bj))*uWind(I,J-1,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 99 SEAICE_GET_DYNFORCING 
     &         (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1)
./pkg/seaice/seaice_lsr.F 251 SEAICE_LSR 
     &         - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 *
./pkg/seaice/seaice_lsr.F 262 SEAICE_LSR 
     &         + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 *
./pkg/seaice/seaice_lsr.F 472 SEAICE_LSR 
     &         ( seaiceMassC(I  ,J,bi,bj) * _fCori(I  ,J,bi,bj)
./pkg/seaice/seaice_lsr.F 474 SEAICE_LSR 
     &         + seaiceMassC(I-1,J,bi,bj) * _fCori(I-1,J,bi,bj)
./pkg/seaice/seaice_lsr.F 730 SEAICE_LSR 
     &         ( seaiceMassC(I,J  ,bi,bj) * _fCori(I,J  ,bi,bj)
./pkg/seaice/seaice_lsr.F 732 SEAICE_LSR 
     &         + seaiceMassC(I,J-1,bi,bj) * _fCori(I,J-1,bi,bj)
./pkg/seaice/seaice_ocean_stress.F 108 SEAICE_OCEAN_STRESS 
     &         + SIGN(SINWAT,  _fCori(I,J,bi,bj)) * 0.5 _d 0 *
./pkg/seaice/seaice_ocean_stress.F 97 SEAICE_OCEAN_STRESS 
     &         - SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 *
./model/src/taueddy_external_forcing.F 180 TAUEDDY_EXTERNAL_FORCING_V 
     &  *0.5*(_fCori(i,j,bi,bj)+_fCori(i,j-1,bi,bj))
./model/src/taueddy_external_forcing.F 90 TAUEDDY_EXTERNAL_FORCING_U 
     &  *0.5*(_fCori(i,j,bi,bj)+_fCori(i-1,j,bi,bj))
./pkg/cd_code/cd_code_scheme.F 127 CD_CODE_SCHEME 
     &          -( _fCori( i, j,bi,bj)
./pkg/cd_code/cd_code_scheme.F 128 CD_CODE_SCHEME 
     &            +_fCori(i-1,j,bi,bj) )*0.5 _d 0
./pkg/cd_code/cd_code_scheme.F 162 CD_CODE_SCHEME 
     &              ( _fCori( i, j,bi,bj)
./pkg/cd_code/cd_code_scheme.F 163 CD_CODE_SCHEME 
     &               +_fCori(i-1,j,bi,bj) )*0.5 _d 0
./pkg/cd_code/cd_code_scheme.F 186 CD_CODE_SCHEME 
     &          +( _fCori(i, j, bi,bj)
./pkg/cd_code/cd_code_scheme.F 187 CD_CODE_SCHEME 
     &            +_fCori(i,j-1,bi,bj) )*0.5 _d 0
./pkg/cd_code/cd_code_scheme.F 221 CD_CODE_SCHEME 
     &             -( _fCori(i, j, bi,bj)
./pkg/cd_code/cd_code_scheme.F 222 CD_CODE_SCHEME 
     &               +_fCori(i,j-1,bi,bj) )*0.5 _d 0
./pkg/ecco/cost_tau_eddy.F 234 COST_TAU_EDDY 
     &  *0.5*(_fCori(i,j,bi,bj)+_fCori(i-1,j,bi,bj)) )**2
./pkg/ecco/cost_tau_eddy.F 240 COST_TAU_EDDY 
     &  *0.5*(_fCori(i,j,bi,bj)+_fCori(i,j-1,bi,bj)) )**2