File |
Line number |
Procedure |
Code |
./pkg/ggl90/ggl90_idemix.F |
164 |
GGL90_IDEMIX |
fxb = 0.5*min( _dxF(i,j,bi,bj), _dyF(i,j,bi,bj) )*fxa |
./pkg/mom_fluxform/mom_u_del2u.F |
56 |
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 |
194 |
ADVECT |
DIFFA(i,j,bi,bj) = MIN( _dxF(i,j,bi,bj), _dyF(i,j,bi,bj) ) |
./pkg/seaice/seaice_calc_stressdiv.F |
85 |
SEAICE_CALC_STRESSDIV |
& ( sig11(i ,j ) * _dyF(i ,j,bi,bj) |
./pkg/seaice/seaice_calc_stressdiv.F |
86 |
SEAICE_CALC_STRESSDIV |
& - sig11(i-1,J ) * _dyF(i-1,J,bi,bj) |
./pkg/seaice/seaice_evp.F |
663 |
SEAICE_EVP |
& ( sig11(I ,J ) * _dyF(I ,J,bi,bj) |
./pkg/seaice/seaice_evp.F |
664 |
SEAICE_EVP |
& - sig11(I-1,J ) * _dyF(I-1,J,bi,bj) |
./pkg/seaice/seaice_init_varia.F |
185 |
SEAICE_INIT_VARIA |
& * ( _dyF(I,J,bi,bj) - _dyF(I-1,J,bi,bj) ) |
./pkg/seaice/seaice_lsr.F |
1267 |
SEAICE_LSR_CALC_COEFFS |
UXX(I,J) = _dyF(I,J,bi,bj) * etaPlusZeta(I,J,bi,bj) |
./pkg/seaice/seaice_lsr.F |
1270 |
SEAICE_LSR_CALC_COEFFS |
UXM(I,J) = _dyF(I,J,bi,bj) * zetaMinusEta(I,J,bi,bj) |
./pkg/seaice/seaice_lsr.F |
1577 |
SEAICE_LSR_RHSU |
& ( _dyF(I ,J ,bi,bj)*sig11(I ,J ) |
./pkg/seaice/seaice_lsr.F |
1578 |
SEAICE_LSR_RHSU |
& - _dyF(I-1,J ,bi,bj)*sig11(I-1,J ) |