| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/lsr.F |
244 |
LSR |
UVRT1(I,J,bi,bj)= |
|
./pkg/seaice/lsr.F |
302 |
LSR |
& +UVRT1(I,J,bi,bj)*UICE(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
483 |
LSR |
UVRT1(I,J,bi,bj)= 0.5 _d 0 * ( |
|
./pkg/seaice/lsr.F |
551 |
LSR |
VRT(J)=FXY(I,J,bi,bj)+AA3+UVRT1(I,J,bi,bj)*VICE(I-1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
72 |
LSR |
_RL UVRT1 (1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
|
./pkg/seaice/seaice_lsr.F |
1216 |
SEAICE_LSR |
UVRT1(I,J,bi,bj)= AA3 - AA5 - AA8 |
|
./pkg/seaice/seaice_lsr.F |
1232 |
SEAICE_LSR |
& ( UVRT1(I,J,bi,bj)*( 1. _d 0 - hFacM )*seaiceSlipFactor |
|
./pkg/seaice/seaice_lsr.F |
1236 |
SEAICE_LSR |
UVRT1(I,J,bi,bj)=UVRT1(I,J,bi,bj) * hFacM |
|
./pkg/seaice/seaice_lsr.F |
1358 |
SEAICE_LSR |
& + UVRT1(I,J,bi,bj)*uTmp(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1361 |
SEAICE_LSR |
& + UVRT1(I,J,bi,bj)*uIce(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1486 |
SEAICE_LSR |
UVRT1(I,J,bi,bj)= AA4 |
|
./pkg/seaice/seaice_lsr.F |
1502 |
SEAICE_LSR |
& ( UVRT1(I,J,bi,bj)*( 1. _d 0 - hFacM )*seaiceSlipFactor |
|
./pkg/seaice/seaice_lsr.F |
1506 |
SEAICE_LSR |
UVRT1(I,J,bi,bj)=UVRT1(I,J,bi,bj) * hFacM |
|
./pkg/seaice/seaice_lsr.F |
1661 |
SEAICE_LSR |
& + UVRT1(I,J,bi,bj)*vTmp(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1664 |
SEAICE_LSR |
& + UVRT1(I,J,bi,bj)*vIce(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
386 |
SEAICE_LSR |
UVRT1(I,J,bi,bj)= UYY(I,J ,bi,bj) + UYM(I,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
408 |
SEAICE_LSR |
UVRT1(I,J,bi,bj)=UVRT1(I,J,bi,bj) * hFacM |
|
./pkg/seaice/seaice_lsr.F |
424 |
SEAICE_LSR |
UVRT1(I,J,bi,bj) = UVRT1(I,J,bi,bj) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
533 |
SEAICE_LSR |
& + UVRT1(I,J,bi,bj)*uTmp(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
536 |
SEAICE_LSR |
& + UVRT1(I,J,bi,bj)*uIce(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
644 |
SEAICE_LSR |
UVRT1(I,J,bi,bj) = VXX(I ,J,bi,bj) + VXM(I ,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
666 |
SEAICE_LSR |
UVRT1(I,J,bi,bj)=UVRT1(I,J,bi,bj) * hFacM |
|
./pkg/seaice/seaice_lsr.F |
682 |
SEAICE_LSR |
UVRT1(I,J,bi,bj) = UVRT1(I,J,bi,bj) * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
793 |
SEAICE_LSR |
& + UVRT1(I,J,bi,bj)*vTmp(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
796 |
SEAICE_LSR |
& + UVRT1(I,J,bi,bj)*vIce(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
91 |
SEAICE_LSR |
_RL UVRT1(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
|
./pkg/seaice/seaice_lsr.F |
923 |
SEAICE_LSR |
_RL UVRT1 (1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |