| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_evp.F |
146 |
SEAICE_EVP |
_RL locMaskU, locMaskV |
|
./pkg/seaice/seaice_evp.F |
773 |
SEAICE_EVP |
locMaskU = seaiceMassU(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
775 |
SEAICE_EVP |
IF ( locMaskU .NE. 0. _d 0 ) locMaskU = 1. _d 0 |
|
./pkg/seaice/seaice_evp.F |
792 |
SEAICE_EVP |
& )*locMaskU ) * areaW(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
900 |
SEAICE_EVP |
locMaskU = maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
902 |
SEAICE_EVP |
uIce(i,j,bi,bj) = uIce(i,j,bi,bj)*locMaskU |
|
./pkg/seaice/seaice_evp.F |
903 |
SEAICE_EVP |
& + uIceNm1(i,j,bi,bj)*(ONE-locMaskU) |