| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_evp.F |
149 |
SEAICE_EVP |
_RL evpAlphaZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_evp.F |
260 |
SEAICE_EVP |
evpAlphaZ(I,J,bi,bj) = SEAICE_evpAlpha |
|
./pkg/seaice/seaice_evp.F |
637 |
SEAICE_EVP |
evpAlphaZ(I,J,bi,bj) = 0.25 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
640 |
SEAICE_EVP |
denom2(I,J,bi,bj) = 1. _d 0 / evpAlphaZ(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
647 |
SEAICE_EVP |
& * ( evpAlphaZ(I,J,bi,bj) - evpRevFac ) |
|
./pkg/seaice/seaice_evp.F |
697 |
SEAICE_EVP |
& evpAlphaZ(I,J,bi,bj) * sig12Pm1(i,j,bi,bj) |