| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_evp.F |
114 |
SEAICE_EVP |
_RL locMaskU, locMaskV |
|
./pkg/seaice/seaice_evp.F |
483 |
SEAICE_EVP |
locMaskV = seaiceMassV(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
485 |
SEAICE_EVP |
IF ( locMaskV .NE. 0. _d 0 ) locMaskV = 1. _d 0 |
|
./pkg/seaice/seaice_evp.F |
512 |
SEAICE_EVP |
& )*locMaskV |
|
./pkg/seaice/seaice_evp.F |
566 |
SEAICE_EVP |
locMaskV = maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
569 |
SEAICE_EVP |
vIce(i,j,bi,bj) = vIce(i,j,bi,bj)*locMaskV |
|
./pkg/seaice/seaice_evp.F |
570 |
SEAICE_EVP |
& + vIceNm1(i,j,bi,bj)*(ONE-locMaskV) |