| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_evp.F |
127 |
SEAICE_EVP |
uIceC(I,J,bi,bj) = uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
176 |
SEAICE_EVP |
I uIceC, vIceC, |
|
./pkg/seaice/seaice_evp.F |
431 |
SEAICE_EVP |
& ( uIceC(I ,J,bi,bj)-uVel(I ,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
432 |
SEAICE_EVP |
& + uIceC(I+1,J,bi,bj)-uVel(I+1,J,kSrf,bi,bj))**2 |
|
./pkg/seaice/seaice_evp.F |
474 |
SEAICE_EVP |
& (uVel(I ,J ,kSrf,bi,bj)-uIceC(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
475 |
SEAICE_EVP |
& +uVel(I+1,J ,kSrf,bi,bj)-uIceC(I+1,J ,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
477 |
SEAICE_EVP |
& (uVel(I ,J-1,kSrf,bi,bj)-uIceC(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
478 |
SEAICE_EVP |
& +uVel(I+1,J-1,kSrf,bi,bj)-uIceC(I+1,J-1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
489 |
SEAICE_EVP |
& * 0.5 _d 0*( uIceC(I,J ,bi,bj)+uIceC(I+1, J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
491 |
SEAICE_EVP |
& * 0.5 _d 0*( uIceC(I,J-1,bi,bj)+uIceC(I+1,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
500 |
SEAICE_EVP |
uIceC(I,J,bi,bj) = seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
502 |
SEAICE_EVP |
& * uIceC(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
526 |
SEAICE_EVP |
CALL EXCH_UV_XY_RL(uIceC,vIceC,.TRUE.,myThid) |
|
./pkg/seaice/seaice_evp.F |
537 |
SEAICE_EVP |
uIce(I,J,bi,bj)=uIceC(I,J,bi,bj)* _maskW(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1038 |
SEAICE_LSR |
I uIceC, vIceC, |
|
./pkg/seaice/seaice_lsr.F |
1053 |
SEAICE_LSR |
& (uIceC(I ,J,bi,bj)-uVel(I ,J,1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1054 |
SEAICE_LSR |
& +uIceC(I+1,J,bi,bj)-uVel(I+1,J,1,bi,bj))**2 |
|
./pkg/seaice/seaice_lsr.F |
1096 |
SEAICE_LSR |
& 0.5 _d 0 * (uVel(I ,J ,1,bi,bj)-uIceC(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1097 |
SEAICE_LSR |
& +uVel(I+1,J ,1,bi,bj)-uIceC(I+1,J ,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
1099 |
SEAICE_LSR |
& 0.5 _d 0 * (uVel(I ,J-1,1,bi,bj)-uIceC(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1100 |
SEAICE_LSR |
& +uVel(I+1,J-1,1,bi,bj)-uIceC(I+1,J-1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
1520 |
SEAICE_LSR |
dUdx(I,J) = ( uIceC(I+1,J,bi,bj) - uIceC(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1526 |
SEAICE_LSR |
dUdy(I,J) = ( uIceC(I,J,bi,bj) - uIceC(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1539 |
SEAICE_LSR |
& + ( uIceC(I,J,bi,bj) + uIceC(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1549 |
SEAICE_LSR |
& 0.5 _d 0 * ( uIceC(I,J,bi,bj) + uIceC(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1558 |
SEAICE_LSR |
& + uIceC(I,J ,bi,bj) * seaiceMaskU(I,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
155 |
SEAICE_LSR |
uIceC(I,J,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1560 |
SEAICE_LSR |
& + uIceC(I,J-1,bi,bj) * seaiceMaskU(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1571 |
SEAICE_LSR |
& *0.5 _d 0*( uIceC(i ,j ,bi,bj)+uIceC(i+1, j,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1573 |
SEAICE_LSR |
& *0.5 _d 0*( uIceC(i ,j-1,bi,bj)+uIceC(i+1,j-1,bi,bj) ) ) |
|
./pkg/seaice/seaice_lsr.F |
175 |
SEAICE_LSR |
uIceC(I,J,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
207 |
SEAICE_LSR |
I uIceC, vIceC, |
|
./pkg/seaice/seaice_lsr.F |
222 |
SEAICE_LSR |
& (uIceC(I ,J,bi,bj)-uVel(I ,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
223 |
SEAICE_LSR |
& +uIceC(I+1,J,bi,bj)-uVel(I+1,J,kSrf,bi,bj))**2 |
|
./pkg/seaice/seaice_lsr.F |
265 |
SEAICE_LSR |
& (uVel(I ,J ,kSrf,bi,bj)-uIceC(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
266 |
SEAICE_LSR |
& +uVel(I+1,J ,kSrf,bi,bj)-uIceC(I+1,J ,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
268 |
SEAICE_LSR |
& (uVel(I ,J-1,kSrf,bi,bj)-uIceC(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
269 |
SEAICE_LSR |
& +uVel(I+1,J-1,kSrf,bi,bj)-uIceC(I+1,J-1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
698 |
SEAICE_LSR |
& * ( uIceC(I+1,J,bi,bj) - uIceC(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
701 |
SEAICE_LSR |
& * 0.5 _d 0 * ( uIceC(I+1,J,bi,bj) + uIceC(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
710 |
SEAICE_LSR |
& ( uIceC(I,J,bi,bj) - uIceC(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
713 |
SEAICE_LSR |
& * 0.5 _d 0 * ( uIceC(I,J,bi,bj) + uIceC(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
722 |
SEAICE_LSR |
& * ( uIceC(I,J,bi,bj) + uIceC(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
732 |
SEAICE_LSR |
& *0.5 _d 0*( uIceC(i ,j ,bi,bj)+uIceC(i+1, j,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
734 |
SEAICE_LSR |
& *0.5 _d 0*( uIceC(i ,j-1,bi,bj)+uIceC(i+1,j-1,bi,bj) ) ) |
|
./pkg/seaice/seaice_lsr.F |
978 |
SEAICE_LSR |
uIceC(I,J,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
998 |
SEAICE_LSR |
uIceC(I,J,bi,bj)=uIce(I,J,bi,bj) |