| File |
Line number |
Procedure |
Code |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
55 |
MOM_U_CORIOLIS |
& 0.5*( _fCori( i ,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
57 |
MOM_U_CORIOLIS |
& + _fCori(i-1,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
66 |
MOM_U_CORIOLIS |
& 0.5*( _fCori( i ,j,bi,bj) + |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
67 |
MOM_U_CORIOLIS |
& _fCori(i-1,j,bi,bj) ) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
55 |
MOM_V_CORIOLIS |
& -0.5*( _fCori(i, j ,bi,bj) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
57 |
MOM_V_CORIOLIS |
& + _fCori(i,j-1,bi,bj) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
66 |
MOM_V_CORIOLIS |
& -0.5*(_fCori(i, j ,bi,bj)+_fCori(i,j-1,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
123 |
CD_CODE_SCHEME |
& -0.5*(_fCori(i,j,bi,bj)+ |
|
./pkg/cd_code/cd_code_scheme.F |
124 |
CD_CODE_SCHEME |
& _fCori(i-1,j,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
154 |
CD_CODE_SCHEME |
& 0.5*( _fCori(i ,j,bi,bj) + |
|
./pkg/cd_code/cd_code_scheme.F |
155 |
CD_CODE_SCHEME |
& _fCori(i-1,j,bi,bj) ) |
|
./pkg/cd_code/cd_code_scheme.F |
178 |
CD_CODE_SCHEME |
& +0.5*( _fCori(i,j,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
179 |
CD_CODE_SCHEME |
& +_fCori(i,j-1,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
209 |
CD_CODE_SCHEME |
& -0.5*( _fCori(i ,j,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
210 |
CD_CODE_SCHEME |
& +_fCori(i,j-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
143 |
SEAICE_LSR |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
154 |
SEAICE_LSR |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
275 |
SEAICE_LSR |
& 0.5*( seaiceMassC(I ,J,bi,bj) * _fCori(I ,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
277 |
SEAICE_LSR |
& + seaiceMassC(I-1,J,bi,bj) * _fCori(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
498 |
SEAICE_LSR |
& -0.5*( seaiceMassC(I,J ,bi,bj) * _fCori(I,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
500 |
SEAICE_LSR |
& + seaiceMassC(I,J-1,bi,bj) * _fCori(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
231 |
SEAICE_OCEAN_STRESS |
& -SIGN(SINWIN, _fCori(I ,J,bi,bj))*vWind(I ,J,bi,bj) ) |
|
./pkg/seaice/seaice_ocean_stress.F |
234 |
SEAICE_OCEAN_STRESS |
& -SIGN(SINWIN, _fCori(I-1,J,bi,bj))*vWind(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_ocean_stress.F |
238 |
SEAICE_OCEAN_STRESS |
& SIGN(SINWIN, _fCori(I ,J,bi,bj))*uWind(I,J ,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
241 |
SEAICE_OCEAN_STRESS |
& SIGN(SINWIN, _fCori(I,J-1,bi,bj))*uWind(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
270 |
SEAICE_OCEAN_STRESS |
& - SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_ocean_stress.F |
281 |
SEAICE_OCEAN_STRESS |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/dynsolver.F |
126 |
DYNSOLVER |
& (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1) |
|
./pkg/seaice/dynsolver.F |
128 |
DYNSOLVER |
& (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1) |
|
./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 |
263 |
DYNSOLVER |
& *SIGN(SINWAT, _fCori(I,J,bi,bj))+COR_ICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
267 |
DYNSOLVER |
& -SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
269 |
DYNSOLVER |
& *(SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
374 |
DYNSOLVER |
& SIGN(SINWAT, _fCori(I,J,bi,bj))+COR_ICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
378 |
DYNSOLVER |
& -SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
380 |
DYNSOLVER |
& *(SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATX(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
139 |
SEAICE_DYNSOLVER |
& (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1) |
|
./pkg/seaice/seaice_dynsolver.F |
141 |
SEAICE_DYNSOLVER |
& (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1) |
|
./pkg/seaice/seaice_dynsolver.F |
152 |
SEAICE_DYNSOLVER |
& -SIGN(SINWIN, _fCori(I ,J,bi,bj))*vWind(I ,J,bi,bj) ) |
|
./pkg/seaice/seaice_dynsolver.F |
155 |
SEAICE_DYNSOLVER |
& -SIGN(SINWIN, _fCori(I-1,J,bi,bj))*vWind(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_dynsolver.F |
160 |
SEAICE_DYNSOLVER |
& SIGN(SINWIN, _fCori(I,J ,bi,bj))*uWind(I,J ,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
163 |
SEAICE_DYNSOLVER |
& SIGN(SINWIN, _fCori(I,J-1,bi,bj))*uWind(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
148 |
SEAICE_EVP |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
159 |
SEAICE_EVP |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
176 |
SEAICE_EVP |
& seaiceMassC(I ,J,bi,bj) * _fCori(I ,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
178 |
SEAICE_EVP |
& + seaiceMassC(I-1,J,bi,bj) * _fCori(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
181 |
SEAICE_EVP |
& seaiceMassC(I,J ,bi,bj) * _fCori(I,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
183 |
SEAICE_EVP |
& + seaiceMassC(I,J-1,bi,bj) * _fCori(I,J-1,bi,bj) |