File |
Line number |
Procedure |
Code |
./pkg/seaice/SEAICE.h |
200 |
NO PROCEDURE |
& stressDivergenceX, stressDivergenceY |
./pkg/seaice/SEAICE.h |
202 |
NO PROCEDURE |
_RL stressDivergenceY(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 |
153 |
SEAICE_CALC_LHS |
& *vIceLoc(I,J,bi,bj) - stressDivergenceY(I,J,bi,bj) |
./pkg/seaice/seaice_calc_stressdiv.F |
19 |
SEAICE_CALC_STRESSDIV |
O stressDivergenceX, stressDivergenceY, |
./pkg/seaice/seaice_calc_stressdiv.F |
64 |
SEAICE_CALC_STRESSDIV |
_RL stressDivergenceY(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/seaice/seaice_calc_stressdiv.F |
90 |
SEAICE_CALC_STRESSDIV |
stressDivergenceY(i,j,bi,bj) = |
./pkg/seaice/seaice_dynsolver.F |
185 |
SEAICE_DYNSOLVER |
stressDivergenceY(I,J,bi,bj) = 0. _d 0 |
./pkg/seaice/seaice_dynsolver.F |
286 |
SEAICE_DYNSOLVER |
stressDivergenceY(i,j,bi,bj) = 0. _d 0 |
./pkg/seaice/seaice_evp.F |
668 |
SEAICE_EVP |
stressDivergenceY(I,J,bi,bj) = |
./pkg/seaice/seaice_evp.F |
738 |
SEAICE_EVP |
CALL ZERO_ADJ( 1, stressDivergenceY, myThid) |
./pkg/seaice/seaice_evp.F |
889 |
SEAICE_EVP |
& + stressDivergenceY(I,J,bi,bj) ) / denomV |
./pkg/seaice/seaice_init_varia.F |
286 |
SEAICE_INIT_VARIA |
stressDivergenceY(i,j,bi,bj) = 0. _d 0 |
./pkg/seaice/seaice_lsr.F |
994 |
SEAICE_LSR |
O stressDivergenceX, stressDivergenceY, |
./pkg/seaice/seaice_ocean_stress.F |
79 |
SEAICE_OCEAN_STRESS |
& + stressDivergenceY(I,J,bi,bj) * SEAICEstressFactor |
./pkg/autodiff/autodiff_restore.F |
467 |
AUTODIFF_RESTORE |
stressDivergenceY(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,15) |
./pkg/autodiff/autodiff_store.F |
574 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,15) = stressDivergenceY(I,J,bi,bj) |