| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/lsr.F |
251 |
LSR |
UVRT2(I,J,bi,bj)= |
|
./pkg/seaice/lsr.F |
303 |
LSR |
& +UVRT2(I,J,bi,bj)*UICE(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
487 |
LSR |
UVRT2(I,J,bi,bj)= 0.5 _d 0 * ( |
|
./pkg/seaice/lsr.F |
552 |
LSR |
& +UVRT2(I,J,bi,bj)*VICE(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
73 |
LSR |
_RL UVRT2 (1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
|
./pkg/seaice/seaice_lsr.F |
1218 |
SEAICE_LSR |
UVRT2(I,J,bi,bj)= AA4 + AA6 + AA8 |
|
./pkg/seaice/seaice_lsr.F |
1233 |
SEAICE_LSR |
& + UVRT2(I,J,bi,bj)*( 1. _d 0 - hFacP )*seaiceSlipFactor |
|
./pkg/seaice/seaice_lsr.F |
1237 |
SEAICE_LSR |
UVRT2(I,J,bi,bj)=UVRT2(I,J,bi,bj) * hFacP |
|
./pkg/seaice/seaice_lsr.F |
1359 |
SEAICE_LSR |
& + UVRT2(I,J,bi,bj)*uTmp(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1362 |
SEAICE_LSR |
& + UVRT2(I,J,bi,bj)*uIce(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1488 |
SEAICE_LSR |
UVRT2(I,J,bi,bj)= AA3 |
|
./pkg/seaice/seaice_lsr.F |
1503 |
SEAICE_LSR |
& + UVRT2(I,J,bi,bj)*( 1. _d 0 - hFacP )*seaiceSlipFactor |
|
./pkg/seaice/seaice_lsr.F |
1507 |
SEAICE_LSR |
UVRT2(I,J,bi,bj)=UVRT2(I,J,bi,bj) * hFacP |
|
./pkg/seaice/seaice_lsr.F |
1662 |
SEAICE_LSR |
& + UVRT2(I,J,bi,bj)*vTmp(I+1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1665 |
SEAICE_LSR |
& + UVRT2(I,J,bi,bj)*vIce(I+1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
388 |
SEAICE_LSR |
UVRT2(I,J,bi,bj)= UYY(I,J+1,bi,bj) - UYM(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
409 |
SEAICE_LSR |
UVRT2(I,J,bi,bj)=UVRT2(I,J,bi,bj) * hFacP |
|
./pkg/seaice/seaice_lsr.F |
425 |
SEAICE_LSR |
UVRT2(I,J,bi,bj) = UVRT2(I,J,bi,bj) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
534 |
SEAICE_LSR |
& + UVRT2(I,J,bi,bj)*uTmp(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
537 |
SEAICE_LSR |
& + UVRT2(I,J,bi,bj)*uIce(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
646 |
SEAICE_LSR |
UVRT2(I,J,bi,bj) = VXX(I+1,J,bi,bj) - VXM(I+1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
667 |
SEAICE_LSR |
UVRT2(I,J,bi,bj)=UVRT2(I,J,bi,bj) * hFacP |
|
./pkg/seaice/seaice_lsr.F |
683 |
SEAICE_LSR |
UVRT2(I,J,bi,bj) = UVRT2(I,J,bi,bj) * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
794 |
SEAICE_LSR |
& + UVRT2(I,J,bi,bj)*vTmp(I+1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
797 |
SEAICE_LSR |
& + UVRT2(I,J,bi,bj)*vIce(I+1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
924 |
SEAICE_LSR |
_RL UVRT2 (1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
|
./pkg/seaice/seaice_lsr.F |
92 |
SEAICE_LSR |
_RL UVRT2(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |