| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/lsr.F |
116 |
LSR |
DELX2(I,J,bi,bj)=HALF/(DXUICE(I,J,bi,bj)*DXUICE(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
144 |
LSR |
AU(I,J,bi,bj)=-AA2*DELX2(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
145 |
LSR |
BU(I,J,bi,bj)=((AA1+AA2)*DELX2(I,J,bi,bj)+(AA3+AA4) |
|
./pkg/seaice/lsr.F |
150 |
LSR |
CU(I,J,bi,bj)=-AA1*DELX2(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
270 |
LSR |
AA3=AA2*DELX2(I,J,bi,bj)*UICE(I-1,J,1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
276 |
LSR |
AA3=AA1*DELX2(I,J,bi,bj)*UICE(I+1,J,1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
379 |
LSR |
& +(AA3+AA4)*DELX2(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
445 |
LSR |
& *DELX2(I,J,bi,bj)*RECIP_CSUICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
448 |
LSR |
& *DELX2(I,J,bi,bj)*RECIP_CSUICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
64 |
LSR |
_RL DELX2 (1:sNx,1:sNy,nSx,nSy) |