File |
Line number |
Procedure |
Code |
./pkg/seaice/SEAICE.h |
200 |
NO PROCEDURE |
& stressDivergenceX, stressDivergenceY |
./pkg/seaice/SEAICE.h |
201 |
NO PROCEDURE |
_RL stressDivergenceX(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/seaice/seaice_calc_lhs.F |
133 |
SEAICE_CALC_LHS |
O stressDivergenceX, stressDivergenceY, |
./pkg/seaice/seaice_calc_lhs.F |
149 |
SEAICE_CALC_LHS |
& *uIceLoc(I,J,bi,bj) - stressDivergenceX(I,J,bi,bj) |
./pkg/seaice/seaice_calc_stressdiv.F |
19 |
SEAICE_CALC_STRESSDIV |
O stressDivergenceX, stressDivergenceY, |
./pkg/seaice/seaice_calc_stressdiv.F |
63 |
SEAICE_CALC_STRESSDIV |
_RL stressDivergenceX(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/seaice/seaice_calc_stressdiv.F |
84 |
SEAICE_CALC_STRESSDIV |
stressDivergenceX(i,j,bi,bj) = |
./pkg/seaice/seaice_dynsolver.F |
184 |
SEAICE_DYNSOLVER |
stressDivergenceX(I,J,bi,bj) = 0. _d 0 |
./pkg/seaice/seaice_dynsolver.F |
285 |
SEAICE_DYNSOLVER |
stressDivergenceX(i,j,bi,bj) = 0. _d 0 |
./pkg/seaice/seaice_evp.F |
662 |
SEAICE_EVP |
stressDivergenceX(I,J,bi,bj) = |
./pkg/seaice/seaice_evp.F |
737 |
SEAICE_EVP |
CALL ZERO_ADJ( 1, stressDivergenceX, myThid) |
./pkg/seaice/seaice_evp.F |
882 |
SEAICE_EVP |
& + stressDivergenceX(I,J,bi,bj) ) / denomU |
./pkg/seaice/seaice_init_varia.F |
285 |
SEAICE_INIT_VARIA |
stressDivergenceX(i,j,bi,bj) = 0. _d 0 |
./pkg/seaice/seaice_lsr.F |
994 |
SEAICE_LSR |
O stressDivergenceX, stressDivergenceY, |
./pkg/seaice/seaice_ocean_stress.F |
69 |
SEAICE_OCEAN_STRESS |
& + stressDivergenceX(I,J,bi,bj) * SEAICEstressFactor |
./pkg/autodiff/autodiff_restore.F |
466 |
AUTODIFF_RESTORE |
stressDivergenceX(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,14) |
./pkg/autodiff/autodiff_store.F |
573 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,14) = stressDivergenceX(I,J,bi,bj) |