File |
Line number |
Procedure |
Code |
./pkg/seaice/seaice_evp.F |
148 |
SEAICE_EVP |
_RL evpAlphaC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/seaice/seaice_evp.F |
259 |
SEAICE_EVP |
evpAlphaC(I,J,bi,bj) = SEAICE_evpAlpha |
./pkg/seaice/seaice_evp.F |
436 |
SEAICE_EVP |
evpAlphaC(I,J,bi,bj) = SQRT(zetaC(I,J) |
./pkg/seaice/seaice_evp.F |
439 |
SEAICE_EVP |
evpAlphaC(I,J,bi,bj) = |
./pkg/seaice/seaice_evp.F |
440 |
SEAICE_EVP |
& MAX(evpAlphaC(I,J,bi,bj),SEAICEaEVPalphaMin) |
./pkg/seaice/seaice_evp.F |
590 |
SEAICE_EVP |
denom1(I,J,bi,bj) = 1. _d 0 / evpAlphaC(I,J,bi,bj) |
./pkg/seaice/seaice_evp.F |
599 |
SEAICE_EVP |
& * ( evpAlphaC(I,J,bi,bj) - evpRevFac ) |
./pkg/seaice/seaice_evp.F |
604 |
SEAICE_EVP |
& * ( evpAlphaC(I,J,bi,bj) - evpRevFac ) |
./pkg/seaice/seaice_evp.F |
638 |
SEAICE_EVP |
& ( evpAlphaC(I, J,bi,bj)+evpAlphaC(I-1,J-1,bi,bj) |
./pkg/seaice/seaice_evp.F |
639 |
SEAICE_EVP |
& + evpAlphaC(I-1,J,bi,bj)+evpAlphaC(I, J-1,bi,bj) ) |
./pkg/seaice/seaice_evp.F |
693 |
SEAICE_EVP |
& evpAlphaC(I,J,bi,bj) * sig11Pm1(i,j,bi,bj) |
./pkg/seaice/seaice_evp.F |
695 |
SEAICE_EVP |
& evpAlphaC(I,J,bi,bj) * sig22Pm1(i,j,bi,bj) |
./pkg/seaice/seaice_evp.F |
847 |
SEAICE_EVP |
evpBetaU(I,J,bi,bj) = 0.5 _d 0*(evpAlphaC(I-1,J,bi,bj) |
./pkg/seaice/seaice_evp.F |
848 |
SEAICE_EVP |
& +evpAlphaC(I, J,bi,bj)) |
./pkg/seaice/seaice_evp.F |
849 |
SEAICE_EVP |
evpBetaV(I,J,bi,bj) = 0.5 _d 0*(evpAlphaC(I,J-1,bi,bj) |
./pkg/seaice/seaice_evp.F |
850 |
SEAICE_EVP |
& +evpAlphaC(I,J, bi,bj)) |