| 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/dynsolver.F |
270 |
DYNSOLVER |
& * _tanPhiAtU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/dynsolver.F |
283 |
DYNSOLVER |
& * _tanPhiAtU(I,J,bi,bj)*recip_rSphere) |
|
./pkg/seaice/dynsolver.F |
389 |
DYNSOLVER |
& * _tanPhiAtU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/dynsolver.F |
402 |
DYNSOLVER |
& * _tanPhiAtU(I,J,bi,bj)*recip_rSphere) |
|
./pkg/seaice/seaice_calc_strainrates.F |
150 |
SEAICE_CALC_STRAINRATES |
& * _tanPhiAtU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/seaice_calc_strainrates.F |
166 |
SEAICE_CALC_STRAINRATES |
& * ( _tanPhiAtU(I,J,bi,bj) + _tanPhiAtU(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_calc_strainrates.F |
189 |
SEAICE_CALC_STRAINRATES |
& * ( _tanPhiAtU(I,J,bi,bj) + _tanPhiAtU(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_init_fixed.F |
125 |
SEAICE_INIT_FIXED |
k2AtC(I,J,bi,bj) = - _tanPhiAtU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/seaice_lsr.F |
1187 |
SEAICE_LSR |
& * _tanPhiAtU(I,J,bi,bj) * _tanPhiAtU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1189 |
SEAICE_LSR |
AA8 = - TWO*etaMeanU(I,J,bi,bj) * _tanPhiAtU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1296 |
SEAICE_LSR |
& etaPlusZeta(I ,J,bi,bj) * _tanPhiAtU(I ,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1298 |
SEAICE_LSR |
& - etaPlusZeta(I-1,J,bi,bj) * _tanPhiAtU(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1304 |
SEAICE_LSR |
& * _tanPhiAtU(I,J,bi,bj) * recip_rSphere |
|
./pkg/seaice/seaice_lsr.F |
1461 |
SEAICE_LSR |
AA5= zetaMinusEta(I,J ,bi,bj) * _tanPhiAtU(I,J, bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1463 |
SEAICE_LSR |
AA6= zetaMinusEta(I,J-1,bi,bj) * _tanPhiAtU(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1638 |
SEAICE_LSR |
& + zetaMinusEta(I,J-1,bi,bj) * _tanPhiAtU(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1648 |
SEAICE_LSR |
& - zetaMinusEta(I,J ,bi,bj) * _tanPhiAtU(I,J, bi,bj) |