| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_lsr.F |
180 |
SEAICE_LSR |
& *uIce(I,J,2,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
339 |
SEAICE_LSR |
uIce(I,J,3,bi,bj)=uIce(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
349 |
SEAICE_LSR |
AA3=AA2*uIce(I-1,J,1,bi,bj)* _maskW(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
354 |
SEAICE_LSR |
AA3=AA1*uIce(I+1,J,1,bi,bj) * _maskW(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
359 |
SEAICE_LSR |
& +UVRT1(I,J,bi,bj)*uIce(I,J-1,1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
360 |
SEAICE_LSR |
& +UVRT2(I,J,bi,bj)*uIce(I,J+1,1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
380 |
SEAICE_LSR |
uIce(I,J,1,bi,bj)=uIce(I,J,3,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
381 |
SEAICE_LSR |
& +WFAU*(URT(I)-uIce(I,J,3,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
395 |
SEAICE_LSR |
UERR(I,J,bi,bj)=(uIce(I,J,1,bi,bj)-uIce(I,J,3,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
414 |
SEAICE_LSR |
CALL SEAICE_EXCH_UV ( uIce, vIce, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
642 |
SEAICE_LSR |
CALL SEAICE_EXCH_UV ( uIce, vIce, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
663 |
SEAICE_LSR |
uIce(I,J,1,bi,bj)=uIce(I,J,1,bi,bj)* _maskW(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
108 |
SEAICE_OCEAN_STRESS |
dUdx(I,J) = ( uIce(I+1,J,1,bi,bj) - uIce(I,J,1,bi,bj) ) |
|
./pkg/seaice/seaice_ocean_stress.F |
110 |
SEAICE_OCEAN_STRESS |
dUdy(I,J) = ( uIce(I,J+1,1,bi,bj) - uIce(I,J,1,bi,bj) ) |
|
./pkg/seaice/seaice_ocean_stress.F |
131 |
SEAICE_OCEAN_STRESS |
& * ( uIce(I,J+1,1,bi,bj)+uIce(I,J,1,bi,bj) ) |
|
./pkg/seaice/seaice_ocean_stress.F |
133 |
SEAICE_OCEAN_STRESS |
& * ( uIce(I,J-1,1,bi,bj)+uIce(I,J,1,bi,bj) ) ) |
|
./pkg/seaice/seaice_ocean_stress.F |
137 |
SEAICE_OCEAN_STRESS |
FX = FX - TWO * uIce(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
210 |
SEAICE_OCEAN_STRESS |
& ( uIce(I+1,J ,1,bi,bj) * _tanPhiAtU(I+1,J ,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
211 |
SEAICE_OCEAN_STRESS |
& + uIce(I+1,J-1,1,bi,bj) * _tanPhiAtU(I+1,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_ocean_stress.F |
213 |
SEAICE_OCEAN_STRESS |
& ( uIce(I ,J ,1,bi,bj) * _tanPhiAtU(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
214 |
SEAICE_OCEAN_STRESS |
& + uIce(I ,J-1,1,bi,bj) * _tanPhiAtU(I ,J ,bi,bj) ) |
|
./pkg/seaice/seaice_ocean_stress.F |
219 |
SEAICE_OCEAN_STRESS |
& * ( uIce(I+1,J,1,bi,bj)+uIce(I+1,J-1,1,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
220 |
SEAICE_OCEAN_STRESS |
& - uIce(I ,J,1,bi,bj)-uIce(I ,J-1,1,bi,bj) ) |
|
./pkg/seaice/seaice_ocean_stress.F |
283 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(uIce(I ,J ,1,bi,bj)-GWATX(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
284 |
SEAICE_OCEAN_STRESS |
& +uIce(I+1,J ,1,bi,bj)-GWATX(I+1,J ,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
286 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(uIce(I ,J-1,1,bi,bj)-GWATX(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
287 |
SEAICE_OCEAN_STRESS |
& +uIce(I+1,J-1,1,bi,bj)-GWATX(I+1,J-1,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
87 |
SEAICE_OCEAN_STRESS |
I uIce(1-Olx,1-Oly,1,1,1), vIce(1-Olx,1-Oly,1,1,1), |
|
./pkg/seaice/seaice_dynsolver.F |
241 |
SEAICE_DYNSOLVER |
uIce(I,J,2,bi,bj)=uIce(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
243 |
SEAICE_DYNSOLVER |
uIceC(I,J,bi,bj)=uIce(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
262 |
SEAICE_DYNSOLVER |
uIce(I,J,1,bi,bj)=HALF*(uIce(I,J,1,bi,bj)+uIce(I,J,2,bi,bj)) |
|
./pkg/seaice/seaice_dynsolver.F |
264 |
SEAICE_DYNSOLVER |
uIceC(I,J,bi,bj)=uIce(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
302 |
SEAICE_DYNSOLVER |
uIce(i,j,1,bi,bj)= |
|
./pkg/seaice/seaice_dynsolver.F |
303 |
SEAICE_DYNSOLVER |
& MAX(MIN(uIce(i,j,1,bi,bj),0.40 _d +00),-0.40 _d +00) |
|
./pkg/seaice/seaice_evp.F |
290 |
SEAICE_EVP |
uIce(I,J,1,bi,bj)=uIceC(I,J,bi,bj)* _maskW(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
86 |
SEAICE_EVP |
uIce (I,J,2,bi,bj) = uIce(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
98 |
SEAICE_EVP |
uIceC(I,J,bi,bj) = uIce(I,J,1,bi,bj) |