| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_evp.F |
114 |
SEAICE_EVP |
_RL locMaskU, locMaskV |
|
./pkg/seaice/seaice_evp.F |
482 |
SEAICE_EVP |
locMaskU = seaiceMassU(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
484 |
SEAICE_EVP |
IF ( locMaskU .NE. 0. _d 0 ) locMaskU = 1. _d 0 |
|
./pkg/seaice/seaice_evp.F |
501 |
SEAICE_EVP |
& )*locMaskU |
|
./pkg/seaice/seaice_evp.F |
565 |
SEAICE_EVP |
locMaskU = maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
567 |
SEAICE_EVP |
uIce(i,j,bi,bj) = uIce(i,j,bi,bj)*locMaskU |
|
./pkg/seaice/seaice_evp.F |
568 |
SEAICE_EVP |
& + uIceNm1(i,j,bi,bj)*(ONE-locMaskU) |