| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
48 |
NO PROCEDURE |
COMMON/ARRAYC/ seaiceMaskU, seaiceMaskV |
|
./pkg/seaice/SEAICE.h |
50 |
NO PROCEDURE |
_RL seaiceMaskV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_dynsolver.F |
125 |
SEAICE_DYNSOLVER |
seaiceMaskV(I,J,bi,bj)=AREA(i,j,bi,bj)+AREA(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
127 |
SEAICE_DYNSOLVER |
IF ( (seaiceMaskV(I,J,bi,bj) .GT. 0. _d 0) .AND. |
|
./pkg/seaice/seaice_dynsolver.F |
129 |
SEAICE_DYNSOLVER |
seaiceMaskV(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
131 |
SEAICE_DYNSOLVER |
seaiceMaskV(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
137 |
SEAICE_DYNSOLVER |
CALL EXCH_UV_XY_RL( seaiceMaskU, seaiceMaskV, .FALSE., myThid ) |
|
./pkg/seaice/seaice_evp.F |
508 |
SEAICE_EVP |
vIceC(I,J,bi,bj) = seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
513 |
SEAICE_EVP |
& /( 1. _d 0 - seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
178 |
SEAICE_INIT_VARIA |
seaiceMaskV(i,j,bi,bj)= 0.0 _d 0 |
|
./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 |
203 |
SEAICE_INIT_VARIA |
seaiceMaskV(i,J_obc,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
217 |
SEAICE_INIT_VARIA |
seaiceMaskV(I_obc,j,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
280 |
SEAICE_INIT_VARIA |
CALL EXCH_UV_XY_RL(seaiceMaskU,seaiceMaskV,.FALSE.,myThid) |
|
./pkg/seaice/seaice_init_varia.F |
293 |
SEAICE_INIT_VARIA |
CALL PLOT_FIELD_XYRL( seaiceMaskV, 'Current seaiceMaskV', |
|
./pkg/seaice/seaice_lsr.F |
1121 |
SEAICE_LSR |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1267 |
SEAICE_LSR |
hFacM = seaiceMaskV(I,J,bi,bj) - seaiceMaskV(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1473 |
SEAICE_LSR |
& )* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1478 |
SEAICE_LSR |
& )* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1479 |
SEAICE_LSR |
BV(I,J,bi,bj)= (ONE - seaiceMaskV(I,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
1484 |
SEAICE_LSR |
& )* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1495 |
SEAICE_LSR |
hFacM = seaiceMaskV(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1496 |
SEAICE_LSR |
hFacP = seaiceMaskV(i+1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1501 |
SEAICE_LSR |
& - seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1643 |
SEAICE_LSR |
& ) * vIce(I,J-1,bi,bj) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1653 |
SEAICE_LSR |
& ) * vIce(I,J+1,bi,bj) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1667 |
SEAICE_LSR |
VRT(I,J)=VRT(I,J)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1701 |
SEAICE_LSR |
& * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1739 |
SEAICE_LSR |
vIce(I,J,bi,bj)=vIce(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
283 |
SEAICE_LSR |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
450 |
SEAICE_LSR |
hFacM = seaiceMaskV(I,J,bi,bj) - seaiceMaskV(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
632 |
SEAICE_LSR |
& ) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
635 |
SEAICE_LSR |
& ) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
637 |
SEAICE_LSR |
BV(I,J,bi,bj)= (ONE - seaiceMaskV(I,J,bi,bj)) + |
|
./pkg/seaice/seaice_lsr.F |
642 |
SEAICE_LSR |
& ) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
655 |
SEAICE_LSR |
hFacM = seaiceMaskV(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
656 |
SEAICE_LSR |
hFacP = seaiceMaskV(i+1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
660 |
SEAICE_LSR |
BV(I,J,bi,bj)=BV(I,J,bi,bj) + seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
679 |
SEAICE_LSR |
& + seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
737 |
SEAICE_LSR |
& + recip_rAs(I,J,bi,bj) * seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
782 |
SEAICE_LSR |
& ) * vIce(I,J-1,bi,bj) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
785 |
SEAICE_LSR |
& ) * vIce(I,J+1,bi,bj) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
799 |
SEAICE_LSR |
VRT(I,J)=VRT(I,J)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
833 |
SEAICE_LSR |
& * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
873 |
SEAICE_LSR |
vIce(I,J,bi,bj)=vIce(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj) |