| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_lsr.F |
113 |
SEAICE_LSR |
I uIceC, vIceC, zMin, zMax, hEffM, press0, |
|
./pkg/seaice/seaice_lsr.F |
126 |
SEAICE_LSR |
& (uIceC(I ,J,bi,bj)-GWATX(I ,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
127 |
SEAICE_LSR |
& +uIceC(I+1,J,bi,bj)-GWATX(I+1,J,bi,bj))**2 |
|
./pkg/seaice/seaice_lsr.F |
156 |
SEAICE_LSR |
& 0.5 _d 0 * (GWATX(I ,J ,bi,bj)-uIceC(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
157 |
SEAICE_LSR |
& +GWATX(I+1,J ,bi,bj)-uIceC(I+1,J ,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
159 |
SEAICE_LSR |
& 0.5 _d 0 * (GWATX(I ,J-1,bi,bj)-uIceC(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
160 |
SEAICE_LSR |
& +GWATX(I+1,J-1,bi,bj)-uIceC(I+1,J-1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
488 |
SEAICE_LSR |
dUdx(I,J) = ( uIceC(I+1,J,bi,bj) - uIceC(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
490 |
SEAICE_LSR |
dUdy(I,J) = ( uIceC(I,J+1,bi,bj) - uIceC(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
499 |
SEAICE_LSR |
& *0.5*( uIceC(i ,j ,bi,bj)+uIceC(i+1, j,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
501 |
SEAICE_LSR |
& *0.5*( uIceC(i ,j-1,bi,bj)+uIceC(i+1,j-1,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_lsr.F |
525 |
SEAICE_LSR |
& * ( uIceC(I+1,J,bi,bj)+uIceC(I+1,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
526 |
SEAICE_LSR |
& - uIceC(I ,J,bi,bj)-uIceC(I ,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_dynsolver.F |
243 |
SEAICE_DYNSOLVER |
uIceC(I,J,bi,bj)=uIce(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
264 |
SEAICE_DYNSOLVER |
uIceC(I,J,bi,bj)=uIce(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
118 |
SEAICE_EVP |
I uIceC, vIceC, zMin, zMax, hEffM, press0, |
|
./pkg/seaice/seaice_evp.F |
131 |
SEAICE_EVP |
& (uIceC(I ,J,bi,bj)-GWATX(I ,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
132 |
SEAICE_EVP |
& +uIceC(I+1,J,bi,bj)-GWATX(I+1,J,bi,bj))**2 |
|
./pkg/seaice/seaice_evp.F |
161 |
SEAICE_EVP |
& 0.5 _d 0 * (GWATX(I ,J ,bi,bj)-uIceC(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
162 |
SEAICE_EVP |
& +GWATX(I+1,J ,bi,bj)-uIceC(I+1,J ,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
164 |
SEAICE_EVP |
& 0.5 _d 0 * (GWATX(I ,J-1,bi,bj)-uIceC(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
165 |
SEAICE_EVP |
& +GWATX(I+1,J-1,bi,bj)-uIceC(I+1,J-1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
182 |
SEAICE_EVP |
& * 0.5*( uIceC(i ,j ,bi,bj)+uIceC(i+1, j,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
184 |
SEAICE_EVP |
& * 0.5*( uIceC(i ,j-1,bi,bj)+uIceC(i+1,j-1,bi,bj) ) ) |
|
./pkg/seaice/seaice_evp.F |
256 |
SEAICE_EVP |
uIceC(I,J,bi,bj) = seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
258 |
SEAICE_EVP |
& * uIceC(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
280 |
SEAICE_EVP |
CALL EXCH_UV_XY_RL(uIceC,vIceC,.TRUE.,myThid) |
|
./pkg/seaice/seaice_evp.F |
290 |
SEAICE_EVP |
uIce(I,J,1,bi,bj)=uIceC(I,J,bi,bj)* _maskW(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
98 |
SEAICE_EVP |
uIceC(I,J,bi,bj) = uIce(I,J,1,bi,bj) |