| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE_GRID.h |
42 |
NO PROCEDURE |
_RL RECIP_CSTICE (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 |
132 |
LSR |
& *RECIP_CSTICE(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
134 |
LSR |
& *RECIP_CSTICE(I-1,J,bi,bj))*RECIP_CSUICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
136 |
LSR |
& *RECIP_CSTICE(I-1,J-1,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 |
190 |
LSR |
5 +HALF*(ETA(I,J,bi,bj)*RECIP_CSTICE(I-1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
193 |
LSR |
5 +ETA(I-1,J,bi,bj)*RECIP_CSTICE(I-1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
197 |
LSR |
5 +ETA(I,J-1,bi,bj)*RECIP_CSTICE(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
200 |
LSR |
5 +ETA(I-1,J-1,bi,bj)*RECIP_CSTICE(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
267 |
LSR |
& *RECIP_CSTICE(I-1,J-1,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 |
273 |
LSR |
& *RECIP_CSTICE(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
275 |
LSR |
& *RECIP_CSTICE(I-1,J,bi,bj))*RECIP_CSUICE(I,J,bi,bj) |
|
./pkg/seaice/seaice_init.F |
100 |
SEAICE_INIT |
RECIP_CSTICE(I,J,bi,bj) = 1./CSTICE(I,J,bi,bj) |
|
./pkg/seaice/seaice_init.F |
102 |
SEAICE_INIT |
RECIP_CSTICE(I,J,bi,bj) =0. _d 0 |
|
./pkg/seaice/seaice_init.F |
111 |
SEAICE_INIT |
TNGTICE(i,j,bi,bj)=SINEICE(i,j,bi,bj)*RECIP_CSTICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_init.F |
114 |
SEAICE_INIT |
DXTICE(i,j,bi,bj)=dxF(i,j,bi,bj)*RECIP_CSTICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_init.F |
144 |
SEAICE_INIT |
RECIP_CSTICE(I,J,bi,bj) = ONE |