| File |
Line number |
Procedure |
Code |
|
./pkg/mom_fluxform/mom_u_del2u.F |
55 |
MOM_U_DEL2U |
& *_recip_dxF(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
67 |
MOM_U_XVISCFLUX |
& )*_recip_dxF(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
216 |
SEAICE_LSR |
& * _recip_dxF(I ,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
219 |
SEAICE_LSR |
& * _recip_dxF(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
347 |
SEAICE_LSR |
& * _recip_dxF(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
352 |
SEAICE_LSR |
& * _recip_dxF(I ,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
489 |
SEAICE_LSR |
& * _recip_dxF(I,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
109 |
SEAICE_OCEAN_STRESS |
& * _recip_dxF(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
161 |
ADVECT |
& *(HALF * _recip_dxF(I,J,bi,bj)) |
|
./pkg/seaice/advect.F |
169 |
ADVECT |
& *(HALF * _recip_dyF(I,J,bi,bj) * _recip_dxF(I,J,bi,bj)) |
|
./pkg/seaice/advect.F |
88 |
ADVECT |
& *(HALF * _recip_dxF(I,J,bi,bj)) |
|
./pkg/seaice/advect.F |
96 |
ADVECT |
& *(HALF * _recip_dyF(I,J,bi,bj) * _recip_dxF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_calc_viscosities.F |
76 |
SEAICE_CALC_VISCOSITIES |
e11= _recip_dxF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
200 |
DYNSOLVER |
E11(I,J,bi,bj)=HALF* _recip_dxF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
213 |
DYNSOLVER |
& +HALF * _recip_dxF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
311 |
DYNSOLVER |
E11(I,J,bi,bj)=HALF * _recip_dxF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
324 |
DYNSOLVER |
& +HALF * _recip_dxF(I,J,bi,bj) * |
|
./pkg/seaice/lsr.F |
136 |
LSR |
AA1=( etaPlusZeta(I ,J-1,bi,bj) * _recip_dxF(I ,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
137 |
LSR |
& +etaPlusZeta(I ,J ,bi,bj) * _recip_dxF(I ,J ,bi,bj) |
|
./pkg/seaice/lsr.F |
139 |
LSR |
AA2=( etaPlusZeta(I-1,J-1,bi,bj) * _recip_dxF(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
140 |
LSR |
& +etaPlusZeta(I-1,J ,bi,bj) * _recip_dxF(I-1,J ,bi,bj) |
|
./pkg/seaice/lsr.F |
189 |
LSR |
& * _recip_dxF(I ,J,bi,bj) |
|
./pkg/seaice/lsr.F |
191 |
LSR |
& * _recip_dxF(I-1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
193 |
LSR |
& * _recip_dxF(I ,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
195 |
LSR |
& * _recip_dxF(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
264 |
LSR |
AA2=(etaPlusZeta(I-1,J-1,bi,bj) * _recip_dxF(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
265 |
LSR |
& +etaPlusZeta(I-1,J ,bi,bj) * _recip_dxF(I-1,J ,bi,bj) |
|
./pkg/seaice/lsr.F |
269 |
LSR |
AA1=(etaPlusZeta(I ,J-1,bi,bj) * _recip_dxF(I ,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
270 |
LSR |
& +etaPlusZeta(I ,J ,bi,bj) * _recip_dxF(I ,J ,bi,bj) |
|
./pkg/seaice/diffus.F |
53 |
DIFFUS |
DELTXX=DELTXX1 * _recip_dxF(I,J,bi,bj)* _recip_dxF(I,J,bi,bj) |
|
./pkg/seaice/diffus.F |
55 |
DIFFUS |
& * _recip_dxF(I,J,bi,bj) |