File |
Line number |
Procedure |
Code |
./pkg/seaice/SEAICE.h |
116 |
NO PROCEDURE |
COMMON/SEAICE_DYNVARS_BGRID/ AMASS, DAIRN, uIceC, vIceC |
./pkg/seaice/SEAICE.h |
119 |
NO PROCEDURE |
_RL uIceC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/seaice/lsr.F |
175 |
LSR |
& + uIceC(I+1,J,bi,bj) + uIceC(I+1,J+1,bi,bj) |
./pkg/seaice/lsr.F |
176 |
LSR |
& + uIceC(I ,J,bi,bj) + uIceC(I, J+1,bi,bj) ) |
./pkg/seaice/lsr.F |
185 |
LSR |
& (uIceC(I+1,J+1,bi,bj)+uIceC(I+1,J,bi,bj) |
./pkg/seaice/lsr.F |
186 |
LSR |
& -uIceC(I, J+1,bi,bj)-uIceC(I, J,bi,bj)) |
./pkg/seaice/lsr.F |
194 |
LSR |
& (uIceC(I+1,J+1,bi,bj)+uIceC(I,J+1,bi,bj) |
./pkg/seaice/lsr.F |
195 |
LSR |
& -uIceC(I+1,J, bi,bj)-uIceC(I,J, bi,bj)) |
./pkg/seaice/lsr.F |
432 |
LSR |
& * 0.5 _d 0 * (uIceC(I,J,bi,bj)+uIceC(I+1,J,bi,bj)) |
./pkg/seaice/lsr.F |
443 |
LSR |
& * 0.5 _d 0 * (uIceC(I,J,bi,bj)+uIceC(I,J+1,bi,bj)) |
./pkg/seaice/lsr.F |
461 |
LSR |
rhsV(I,J,bi,bj) = - DRAGA(I,J,bi,bj)*uIceC(I,J,bi,bj) |
./pkg/seaice/seaice_init_varia.F |
293 |
SEAICE_INIT_VARIA |
uIceC(i,j,bi,bj) = 0. _d 0 |
./pkg/seaice/seaice_lsr.F |
125 |
SEAICE_LSR |
_RL uIceC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/seaice/seaice_lsr.F |
1463 |
SEAICE_LSR_RHSU |
I uIceC, vIceC, |
./pkg/seaice/seaice_lsr.F |
1494 |
SEAICE_LSR_RHSU |
_RL uIceC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/seaice/seaice_lsr.F |
1556 |
SEAICE_LSR_RHSU |
& ( uIceC(I,J,bi,bj) - uIceC(I,J-1,bi,bj) ) |
./pkg/seaice/seaice_lsr.F |
1566 |
SEAICE_LSR_RHSU |
& * ( uIceC(I,J,bi,bj) + uIceC(I,J-1,bi,bj) ) |
./pkg/seaice/seaice_lsr.F |
1594 |
SEAICE_LSR_RHSV |
I uIceC, vIceC, |
./pkg/seaice/seaice_lsr.F |
1625 |
SEAICE_LSR_RHSV |
_RL uIceC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/seaice/seaice_lsr.F |
1651 |
SEAICE_LSR_RHSV |
& * ( uIceC(I+1,J,bi,bj) - uIceC(I,J,bi,bj) ) |
./pkg/seaice/seaice_lsr.F |
1654 |
SEAICE_LSR_RHSV |
& * 0.5 _d 0 * ( uIceC(I+1,J,bi,bj) + uIceC(I,J,bi,bj) ) |
./pkg/seaice/seaice_lsr.F |
1663 |
SEAICE_LSR_RHSV |
& ( uIceC(I,J,bi,bj) - uIceC(I,J-1,bi,bj) ) |
./pkg/seaice/seaice_lsr.F |
1666 |
SEAICE_LSR_RHSV |
& * 0.5 _d 0 * ( uIceC(I,J,bi,bj) + uIceC(I,J-1,bi,bj) ) |
./pkg/seaice/seaice_lsr.F |
1675 |
SEAICE_LSR_RHSV |
& * ( uIceC(I,J,bi,bj) + uIceC(I,J-1,bi,bj) ) |
./pkg/seaice/seaice_lsr.F |
189 |
SEAICE_LSR |
uIceC (i,j,bi,bj) = 0. _d 0 |
./pkg/seaice/seaice_lsr.F |
279 |
SEAICE_LSR |
uIceC (I,J,bi,bj) = uIce(I,J,bi,bj) |
./pkg/seaice/seaice_lsr.F |
293 |
SEAICE_LSR |
uIceC(I,J,bi,bj)=uIce(I,J,bi,bj) |
./pkg/seaice/seaice_lsr.F |
324 |
SEAICE_LSR |
I uIceC, vIceC, |
./pkg/seaice/seaice_lsr.F |
334 |
SEAICE_LSR |
I uIceC, vIceC, |
./pkg/seaice/seaice_lsr.F |
340 |
SEAICE_LSR |
I uIceC, vIceC, |
./pkg/seaice/seaice_lsr.F |
396 |
SEAICE_LSR |
& (uVel(I ,J ,kSrf,bi,bj)-uIceC(I ,J ,bi,bj) |
./pkg/seaice/seaice_lsr.F |
397 |
SEAICE_LSR |
& +uVel(I+1,J ,kSrf,bi,bj)-uIceC(I+1,J ,bi,bj)) |
./pkg/seaice/seaice_lsr.F |
399 |
SEAICE_LSR |
& (uVel(I ,J-1,kSrf,bi,bj)-uIceC(I ,J-1,bi,bj) |
./pkg/seaice/seaice_lsr.F |
400 |
SEAICE_LSR |
& +uVel(I+1,J-1,kSrf,bi,bj)-uIceC(I+1,J-1,bi,bj)) |
./pkg/seaice/seaice_lsr.F |
414 |
SEAICE_LSR |
& *0.5 _d 0*( uIceC(i ,j ,bi,bj)+uIceC(i+1, j,bi,bj) ) |
./pkg/seaice/seaice_lsr.F |
416 |
SEAICE_LSR |
& *0.5 _d 0*( uIceC(i ,j-1,bi,bj)+uIceC(i+1,j-1,bi,bj) ) ) |
./pkg/seaice/seaice_lsr.F |
443 |
SEAICE_LSR |
I uIceC, vIceC, |
./pkg/seaice/seaice_lsr.F |
456 |
SEAICE_LSR |
I uIceC, vIceC, |
./pkg/seaice/seaice_lsr.F |
470 |
SEAICE_LSR |
I uIceC, vIceC, |