| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
130 |
NO PROCEDURE |
& DWATN, PRESS0, FORCEX0, FORCEY0, ZMAX, ZMIN, tensileStrFac |
|
./pkg/seaice/SEAICE.h |
139 |
NO PROCEDURE |
_RL tensileStrFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_calc_residual.F |
102 |
SEAICE_CALC_RESIDUAL |
I e11, e22, e12, zMin, zMax, hEffM, press0, tensileStrFac, |
|
./pkg/seaice/seaice_diagnostics_state.F |
139 |
SEAICE_DIAGNOSTICS_STATE |
IF ( tensileStrFac(I,J,bi,bj) .EQ. 1. _d 0) THEN |
|
./pkg/seaice/seaice_diagnostics_state.F |
148 |
SEAICE_DIAGNOSTICS_STATE |
tIce(I,J,bi,bj) = tensileStrFac(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
149 |
SEAICE_DIAGNOSTICS_STATE |
& *press(I,J,bi,bj)/(1. _d 0 - tensileStrFac(I,J,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
427 |
SEAICE_EVP |
& * ( 1. _d 0 + tensileStrFac(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
491 |
SEAICE_EVP |
& /(1. _d 0 + tensileStrFac(I,J,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
492 |
SEAICE_EVP |
& ) * (1. _d 0 - tensileStrFac(I,J,bi,bj)) |
|
./pkg/seaice/seaice_init_varia.F |
312 |
SEAICE_INIT_VARIA |
tensileStrFac(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
708 |
SEAICE_INIT_VARIA |
tensileStrFac(i,j,bi,bj) = SEAICE_tensilFac*HEFFM(i,j,bi,bj) |
|
./pkg/seaice/seaice_krylov.F |
224 |
SEAICE_KRYLOV |
I e11, e22, e12, zMin, zMax, hEffM, press0, tensileStrFac, |
|
./pkg/seaice/seaice_lsr.F |
329 |
SEAICE_LSR |
I e11, e22, e12, zMin, zMax, hEffM, press0, tensileStrFac, |