| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_dynsolver.F |
118 |
SEAICE_DYNSOLVER |
mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i-1,j ,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
120 |
SEAICE_DYNSOLVER |
& (mask_uice .GT. 1.5 _d 0) ) THEN |
|
./pkg/seaice/seaice_dynsolver.F |
54 |
SEAICE_DYNSOLVER |
_RL mask_uice, mask_vice |
|
./pkg/seaice/seaice_init_fixed.F |
36 |
SEAICE_INIT_FIXED |
_RS mask_uice |
|
./pkg/seaice/seaice_init_fixed.F |
96 |
SEAICE_INIT_FIXED |
mask_uice=HEFFM(i,j, bi,bj)+HEFFM(i-1,j-1,bi,bj) |
|
./pkg/seaice/seaice_init_fixed.F |
98 |
SEAICE_INIT_FIXED |
IF(mask_uice.GT.3.5 _d 0) UVM(i,j,bi,bj)=1. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
179 |
SEAICE_INIT_VARIA |
mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i-1,j ,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
180 |
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 |
181 |
SEAICE_INIT_VARIA |
mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i ,j-1,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
182 |
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 |
44 |
SEAICE_INIT_VARIA |
_RS mask_uice |