File |
Line number |
Procedure |
Code |
./pkg/seaice/seaice_dynsolver.F |
150 |
SEAICE_DYNSOLVER |
mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i-1,j ,bi,bj) |
./pkg/seaice/seaice_dynsolver.F |
152 |
SEAICE_DYNSOLVER |
& (mask_uice .GT. 1.5 _d 0) ) THEN |
./pkg/seaice/seaice_dynsolver.F |
65 |
SEAICE_DYNSOLVER |
_RL mask_uice, mask_vice |
./pkg/seaice/seaice_init_varia.F |
386 |
SEAICE_INIT_VARIA |
mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i-1,j ,bi,bj) |
./pkg/seaice/seaice_init_varia.F |
387 |
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 |
388 |
SEAICE_INIT_VARIA |
mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i ,j-1,bi,bj) |
./pkg/seaice/seaice_init_varia.F |
389 |
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 |
./pkg/seaice/seaice_init_varia.F |
81 |
SEAICE_INIT_VARIA |
mask_uice=HEFFM(i,j, bi,bj)+HEFFM(i-1,j-1,bi,bj) |
./pkg/seaice/seaice_init_varia.F |
83 |
SEAICE_INIT_VARIA |
IF(mask_uice.GT.3.5 _d 0) UVM(i,j,bi,bj)=1. _d 0 |