| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE_GRID.h |
43 |
NO PROCEDURE |
_RL RECIP_CSUICE (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/SEAICE_GRID.h |
51 |
NO PROCEDURE |
& RECIP_CSTICE, RECIP_CSUICE, |
|
./pkg/seaice/lsr.F |
134 |
LSR |
& *RECIP_CSTICE(I-1,J,bi,bj))*RECIP_CSUICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
138 |
LSR |
& *RECIP_CSTICE(I-1,J,bi,bj))*RECIP_CSUICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
175 |
LSR |
3 *RECIP_CSUICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
188 |
LSR |
4 *RECIP_CSUICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
210 |
LSR |
6 *RECIP_CSUICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
214 |
LSR |
6 *DELXR(I,J,bi,bj)*RECIP_CSUICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
219 |
LSR |
7 *RECIP_CSUICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
269 |
LSR |
& *RECIP_CSTICE(I-1,J,bi,bj))*RECIP_CSUICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
275 |
LSR |
& *RECIP_CSTICE(I-1,J,bi,bj))*RECIP_CSUICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
362 |
LSR |
AA3=(ETA(I,J-1,bi,bj)*RECIP_CSUICE(I,J,bi,bj)+ETA(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
363 |
LSR |
& *RECIP_CSUICE(I,J,bi,bj))*RECIP_CSUICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
365 |
LSR |
& *RECIP_CSUICE(I,J,bi,bj)*RECIP_CSUICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
404 |
LSR |
3 *RECIP_CSUICE(I,J,bi,bj)+HALF*ZETAMEAN(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
406 |
LSR |
3 -UICEC(I-1,J+1,bi,bj))*RECIP_CSUICE(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
408 |
LSR |
3 *RECIP_CSUICE(I,J-1,bi,bj))*DELXY(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
413 |
LSR |
4 *RECIP_CSUICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
415 |
LSR |
4 -UICEC(I-1,J+1,bi,bj))*RECIP_CSUICE(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
417 |
LSR |
4 *RECIP_CSUICE(I,J-1,bi,bj))*DELXY(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
430 |
LSR |
5 *DELXY(I,J,bi,bj)*RECIP_CSUICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
435 |
LSR |
6 *DELXR(I,J,bi,bj)*RECIP_CSUICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
438 |
LSR |
6 *DELXR(I,J,bi,bj)*RECIP_CSUICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
442 |
LSR |
7 *DELXR(I,J,bi,bj)*RECIP_CSUICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
443 |
LSR |
UVRT1(I,J,bi,bj)=(ETA(I-1,J-1,bi,bj)*RECIP_CSUICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
444 |
LSR |
& +ETA(I-1,J,bi,bj)*RECIP_CSUICE(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 |
446 |
LSR |
UVRT2(I,J,bi,bj)=(ETA(I,J-1,bi,bj)*RECIP_CSUICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
447 |
LSR |
& +ETA(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/seaice_init.F |
105 |
SEAICE_INIT |
RECIP_CSUICE(I,J,bi,bj) = 1./CSUICE(I,J,bi,bj) |
|
./pkg/seaice/seaice_init.F |
107 |
SEAICE_INIT |
RECIP_CSUICE(I,J,bi,bj) =0. _d 0 |
|
./pkg/seaice/seaice_init.F |
113 |
SEAICE_INIT |
TNGICE(i,j,bi,bj) =SINEICE(i,j,bi,bj)*RECIP_CSUICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_init.F |
115 |
SEAICE_INIT |
DXUICE(i,j,bi,bj)=dxV(i,j,bi,bj)*RECIP_CSUICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_init.F |
145 |
SEAICE_INIT |
RECIP_CSUICE(I,J,bi,bj) = ONE |