| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_init.F |
102 |
SEAICE_INIT |
mask_uice=HEFFM(I,J, bi,bj)+HEFFM(I-1,J-1,bi,bj) |
|
./pkg/seaice/seaice_init.F |
104 |
SEAICE_INIT |
IF(mask_uice.GT.3.5) UVM(I,J,bi,bj)=ONE |
|
./pkg/seaice/seaice_init.F |
108 |
SEAICE_INIT |
mask_uice=HEFFM(I,J,bi,bj)+HEFFM(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_init.F |
109 |
SEAICE_INIT |
IF(mask_uice.GT.1.5) seaiceMaskU(I,J,bi,bj)=ONE |
|
./pkg/seaice/seaice_init.F |
110 |
SEAICE_INIT |
mask_uice=HEFFM(I,J,bi,bj)+HEFFM(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_init.F |
111 |
SEAICE_INIT |
IF(mask_uice.GT.1.5) seaiceMaskV(I,J,bi,bj)=ONE |
|
./pkg/seaice/seaice_init.F |
38 |
SEAICE_INIT |
_RS mask_uice |