| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_dynsolver.F |
132 |
SEAICE_DYNSOLVER |
mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i-1,j ,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
134 |
SEAICE_DYNSOLVER |
& (mask_uice .GT. 1.5 _d 0) ) THEN |
|
./pkg/seaice/seaice_dynsolver.F |
63 |
SEAICE_DYNSOLVER |
_RL mask_uice, mask_vice |
|
./pkg/seaice/seaice_init_varia.F |
381 |
SEAICE_INIT_VARIA |
mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i-1,j ,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
382 |
SEAICE_INIT_VARIA |
IF(mask_uice.GT.1.5 _d 0) seaiceMaskU(i,j,bi,bj)=1.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
383 |
SEAICE_INIT_VARIA |
mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i ,j-1,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
384 |
SEAICE_INIT_VARIA |
IF(mask_uice.GT.1.5 _d 0) seaiceMaskV(i,j,bi,bj)=1.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
45 |
SEAICE_INIT_VARIA |
_RS mask_uice |
|
./pkg/seaice/seaice_init_varia.F |
79 |
SEAICE_INIT_VARIA |
mask_uice=HEFFM(i,j, bi,bj)+HEFFM(i-1,j-1,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
81 |
SEAICE_INIT_VARIA |
IF(mask_uice.GT.3.5 _d 0) UVM(i,j,bi,bj)=1. _d 0 |