| File |
Line number |
Procedure |
Code |
|
./pkg/mom_fluxform/mom_u_metric_sphere.F |
55 |
MOM_U_METRIC_SPHERE |
& )*_tanPhiAtU(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
226 |
SEAICE_LSR |
& * 0.5 _d 0 * _tanPhiAtU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
230 |
SEAICE_LSR |
& * _tanPhiAtU(I,J,bi,bj) * _tanPhiAtU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
243 |
SEAICE_LSR |
& - _tanPhiAtU(I,J ,bi,bj) * 0.5 _d 0 * recip_rSphere ) |
|
./pkg/seaice/seaice_lsr.F |
244 |
SEAICE_LSR |
& + TWO*etaMeanU(I,J,bi,bj) * _tanPhiAtU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
251 |
SEAICE_LSR |
& + _tanPhiAtU(I,J+1,bi,bj) * 0.5 _d 0 * recip_rSphere ) |
|
./pkg/seaice/seaice_lsr.F |
252 |
SEAICE_LSR |
& - TWO*etaMeanU(I,J,bi,bj) * _tanPhiAtU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
298 |
SEAICE_LSR |
& * 0.5 _d 0 * ( _tanPhiAtU(I ,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
299 |
SEAICE_LSR |
& + _tanPhiAtU(I+1,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
302 |
SEAICE_LSR |
& * 0.5 _d 0 * ( _tanPhiAtU(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
303 |
SEAICE_LSR |
& + _tanPhiAtU(I ,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
516 |
SEAICE_LSR |
& ( uIceC(I+1,J ,bi,bj) * _tanPhiAtU(I+1,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
517 |
SEAICE_LSR |
& + uIceC(I+1,J-1,bi,bj) * _tanPhiAtU(I+1,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
519 |
SEAICE_LSR |
& ( uIceC(I ,J ,bi,bj) * _tanPhiAtU(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
520 |
SEAICE_LSR |
& + uIceC(I ,J-1,bi,bj) * _tanPhiAtU(I ,J ,bi,bj) ) |
|
./pkg/seaice/seaice_ocean_stress.F |
134 |
SEAICE_OCEAN_STRESS |
& * 0.5 _d 0 * _tanPhiAtU(I,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
139 |
SEAICE_OCEAN_STRESS |
& * _tanPhiAtU(I,J,bi,bj) * _tanPhiAtU(I,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
158 |
SEAICE_OCEAN_STRESS |
& * 0.5 * ( _tanPhiAtU(I ,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
159 |
SEAICE_OCEAN_STRESS |
& + _tanPhiAtU(I+1,J,bi,bj) ) |
|
./pkg/seaice/seaice_ocean_stress.F |
162 |
SEAICE_OCEAN_STRESS |
& * 0.5 * ( _tanPhiAtU(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
163 |
SEAICE_OCEAN_STRESS |
& + _tanPhiAtU(I ,J,bi,bj) ) |
|
./pkg/seaice/seaice_ocean_stress.F |
210 |
SEAICE_OCEAN_STRESS |
& ( uIce(I+1,J ,1,bi,bj) * _tanPhiAtU(I+1,J ,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
211 |
SEAICE_OCEAN_STRESS |
& + uIce(I+1,J-1,1,bi,bj) * _tanPhiAtU(I+1,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_ocean_stress.F |
213 |
SEAICE_OCEAN_STRESS |
& ( uIce(I ,J ,1,bi,bj) * _tanPhiAtU(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
214 |
SEAICE_OCEAN_STRESS |
& + uIce(I ,J-1,1,bi,bj) * _tanPhiAtU(I ,J ,bi,bj) ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
126 |
SEAICE_CALC_VISCOSITIES |
& * ( _tanPhiAtU(I,J,bi,bj) + _tanPhiAtU(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
80 |
SEAICE_CALC_VISCOSITIES |
& * _tanPhiAtU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/seaice_calc_viscosities.F |
94 |
SEAICE_CALC_VISCOSITIES |
& * _tanPhiAtU(I,J,bi,bj)*recip_rSphere) |
|
./pkg/seaice/dynsolver.F |
206 |
DYNSOLVER |
& * _tanPhiAtU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/dynsolver.F |
219 |
DYNSOLVER |
& * _tanPhiAtU(I,J,bi,bj)*recip_rSphere) |
|
./pkg/seaice/dynsolver.F |
317 |
DYNSOLVER |
& * _tanPhiAtU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/dynsolver.F |
330 |
DYNSOLVER |
& * _tanPhiAtU(I,J,bi,bj)*recip_rSphere) |
|
./pkg/seaice/seaice_evp.F |
234 |
SEAICE_EVP |
& * _tanPhiAtU(I,J,bi,bj) * recip_rSphere |
|
./pkg/seaice/seaice_evp.F |
237 |
SEAICE_EVP |
& * _tanPhiAtU(I,J,bi,bj) * recip_rSphere |