| File |
Line number |
Procedure |
Code |
|
./pkg/mom_fluxform/mom_u_del2u.F |
53 |
MOM_U_DEL2U |
& *_dyF(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
57 |
MOM_U_XVISCFLUX |
& _dyF(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/seaice/advect.F |
174 |
ADVECT |
& DIFF1*MIN( _dxF(I,J,bi,bj), _dyF(I,J,bi,bj)) |
|
./pkg/seaice/advect.F |
186 |
ADVECT |
& -(MIN( _dxF(I,J,bi,bj), _dyF(I,J,bi,bj)))**2/DELTT |
|
./pkg/seaice/seaice_diffusion.F |
98 |
SEAICE_DIFFUSION |
& *MIN( _dxF(I,J,bi,bj), _dyF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
390 |
SEAICE_EVP |
& ( sig11(I ,J ) * _dyF(I ,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
391 |
SEAICE_EVP |
& - sig11(I-1,J ) * _dyF(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1472 |
SEAICE_LSR |
& - AA7*1.0 _d 0 / ( _dyF(I,J,bi,bj) + _dyF(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1477 |
SEAICE_LSR |
& + AA7*1.0 _d 0 / ( _dyF(I,J,bi,bj) + _dyF(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1642 |
SEAICE_LSR |
& *1.0 _d 0 / ( _dyF(I,J,bi,bj) + _dyF(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1652 |
SEAICE_LSR |
& *1.0 _d 0 / ( _dyF(I,J,bi,bj) + _dyF(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1787 |
SEAICE_LSR |
& ( sig11(I ,J ) * _dyF(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1788 |
SEAICE_LSR |
& - sig11(I-1,J ) * _dyF(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
324 |
SEAICE_LSR |
UXX(I,J,bi,bj) = _dyF(I,J,bi,bj) * etaPlusZeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
327 |
SEAICE_LSR |
UXM(I,J,bi,bj) = _dyF(I,J,bi,bj) * zetaMinusEta(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
480 |
SEAICE_LSR |
& ( _dyF(I ,J ,bi,bj)*sig11(I ,J ) |
|
./pkg/seaice/seaice_lsr.F |
481 |
SEAICE_LSR |
& - _dyF(I-1,J ,bi,bj)*sig11(I-1,J ) |