| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
33 |
NO PROCEDURE |
& ETA,ZETA,DRAGS,DRAGA,AMASS,FORCEX,FORCEY,UICEC,VICEC |
|
./pkg/seaice/SEAICE.h |
45 |
NO PROCEDURE |
_RL VICEC (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/dynsolver.F |
177 |
DYNSOLVER |
VICEC(I,J,bi,bj)=VICE(I,J,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
284 |
DYNSOLVER |
VICEC(I,J,bi,bj)=VICE(I,J,1,bi,bj) |
|
./pkg/seaice/lsr.F |
162 |
LSR |
FXY(I,J,bi,bj)=DRAGA(I,J,bi,bj)*VICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
164 |
LSR |
3 +HALF*(ZETA(I,J,bi,bj)*(VICEC(I+1,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
165 |
LSR |
3 +VICEC(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
166 |
LSR |
3 -VICEC(I+1,J,bi,bj)-VICEC(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
167 |
LSR |
3 +ZETA(I,J-1,bi,bj)*(VICEC(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
168 |
LSR |
3 +VICEC(I,J,bi,bj)-VICEC(I+1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
169 |
LSR |
3 -VICEC(I,J-1,bi,bj))+ZETA(I-1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
170 |
LSR |
3 *(VICEC(I,J,bi,bj)+VICEC(I-1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
171 |
LSR |
3 -VICEC(I,J+1,bi,bj)-VICEC(I-1,J+1,bi,bj)) |
|
./pkg/seaice/lsr.F |
172 |
LSR |
3 +ZETA(I-1,J-1,bi,bj)*(VICEC(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
173 |
LSR |
3 +VICEC(I-1,J-1,bi,bj)-VICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
174 |
LSR |
3 -VICEC(I-1,J,bi,bj)))*DELXY(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
177 |
LSR |
4 -HALF*(ETA(I,J,bi,bj)*(VICEC(I+1,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
178 |
LSR |
4 +VICEC(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
179 |
LSR |
4 -VICEC(I+1,J,bi,bj)-VICEC(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
180 |
LSR |
4 +ETA(I,J-1,bi,bj)*(VICEC(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
181 |
LSR |
4 +VICEC(I,J,bi,bj)-VICEC(I+1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
182 |
LSR |
4 -VICEC(I,J-1,bi,bj))+ETA(I-1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
183 |
LSR |
4 *(VICEC(I,J,bi,bj)+VICEC(I-1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
184 |
LSR |
4 -VICEC(I,J+1,bi,bj)-VICEC(I-1,J+1,bi,bj)) |
|
./pkg/seaice/lsr.F |
185 |
LSR |
4 +ETA(I-1,J-1,bi,bj)*(VICEC(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
186 |
LSR |
4 +VICEC(I-1,J-1,bi,bj)-VICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
187 |
LSR |
4 -VICEC(I-1,J,bi,bj)))*DELXY(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
191 |
LSR |
5 *(VICEC(I+1,J+1,bi,bj)+VICEC(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
192 |
LSR |
5 -VICEC(I,J+1,bi,bj)-VICEC(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
194 |
LSR |
5 *(VICEC(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
195 |
LSR |
5 +VICEC(I,J,bi,bj)-VICEC(I-1,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
196 |
LSR |
5 -VICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
198 |
LSR |
5 *(VICEC(I,J,bi,bj)+VICEC(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
199 |
LSR |
5 -VICEC(I+1,J,bi,bj)-VICEC(I+1,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
201 |
LSR |
5 *(VICEC(I-1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
202 |
LSR |
5 +VICEC(I-1,J-1,bi,bj)-VICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
203 |
LSR |
5 -VICEC(I,J-1,bi,bj)))*DELXY(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
209 |
LSR |
6 *TNGICE(I,J,bi,bj)*VICEC(I,J,bi,bj)*DELXR(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
213 |
LSR |
6 *(VICEC(I+1,J,bi,bj)-VICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
217 |
LSR |
7 *(VICEC(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
218 |
LSR |
7 -VICEC(I-1,J,bi,bj))*DELXR(I,J,bi,bj) |
|
./pkg/seaice/seaice_init.F |
217 |
SEAICE_INIT |
VICEC(I,J,bi,bj)=ZERO |
|
./pkg/seaice/ostres.F |
58 |
OSTRES |
& -SINWAT*(GWATY(I,J,bi,bj)-VICEC(I,J,bi,bj))) |
|
./pkg/seaice/ostres.F |
63 |
OSTRES |
& *GWATY(I,J,bi,bj)-COR_ICE(I,J,bi,bj)*VICEC(I,J,bi,bj)) |