| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_evp.F |
146 |
SEAICE_EVP |
_RL locMaskU, locMaskV |
|
./pkg/seaice/seaice_evp.F |
774 |
SEAICE_EVP |
locMaskV = seaiceMassV(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
776 |
SEAICE_EVP |
IF ( locMaskV .NE. 0. _d 0 ) locMaskV = 1. _d 0 |
|
./pkg/seaice/seaice_evp.F |
803 |
SEAICE_EVP |
& )*locMaskV ) * areaS(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
901 |
SEAICE_EVP |
locMaskV = maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
904 |
SEAICE_EVP |
vIce(i,j,bi,bj) = vIce(i,j,bi,bj)*locMaskV |
|
./pkg/seaice/seaice_evp.F |
905 |
SEAICE_EVP |
& + vIceNm1(i,j,bi,bj)*(ONE-locMaskV) |