| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_apply_uvice.F |
111 |
OBCS_APPLY_UVICE |
& *seaiceMaskV(Iobc,j,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
124 |
OBCS_APPLY_UVICE |
& *seaiceMaskV(Iobc,j,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
140 |
OBCS_APPLY_UVICE |
& *seaiceMaskV(i,Jobc,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
143 |
OBCS_APPLY_UVICE |
& *seaiceMaskV(i,Jobc,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
157 |
OBCS_APPLY_UVICE |
& *seaiceMaskV(i,Jobc+1,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
160 |
OBCS_APPLY_UVICE |
& *seaiceMaskV(i,Jobc+1,bi,bj) |
|
./pkg/seaice/SEAICE.h |
40 |
NO PROCEDURE |
COMMON/ARRAYC/ seaiceMaskU, seaiceMaskV |
|
./pkg/seaice/SEAICE.h |
42 |
NO PROCEDURE |
_RL seaiceMaskV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_dynsolver.F |
157 |
SEAICE_DYNSOLVER |
seaiceMaskV(I,J,bi,bj)=AREA(i,j,bi,bj)+AREA(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
159 |
SEAICE_DYNSOLVER |
IF ( (seaiceMaskV(I,J,bi,bj) .GT. 0. _d 0) .AND. |
|
./pkg/seaice/seaice_dynsolver.F |
161 |
SEAICE_DYNSOLVER |
seaiceMaskV(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
163 |
SEAICE_DYNSOLVER |
seaiceMaskV(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
169 |
SEAICE_DYNSOLVER |
CALL EXCH_UV_XY_RL( seaiceMaskU, seaiceMaskV, .FALSE., myThid ) |
|
./pkg/seaice/seaice_evp.F |
883 |
SEAICE_EVP |
vIce(I,J,bi,bj) = seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
929 |
SEAICE_EVP |
vIcePm1(I,J,bi,bj) = seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_init_varia.F |
385 |
SEAICE_INIT_VARIA |
seaiceMaskV(i,j,bi,bj)= 0.0 _d 0 |
|
./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 |
407 |
SEAICE_INIT_VARIA |
seaiceMaskV(i,J_obc,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
415 |
SEAICE_INIT_VARIA |
seaiceMaskV(I_obc,j,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
442 |
SEAICE_INIT_VARIA |
CALL EXCH_UV_XY_RL(seaiceMaskU,seaiceMaskV,.FALSE.,myThid) |
|
./pkg/seaice/seaice_init_varia.F |
454 |
SEAICE_INIT_VARIA |
CALL PLOT_FIELD_XYRL( seaiceMaskV, 'Current seaiceMaskV', |
|
./pkg/seaice/seaice_init_varia.F |
494 |
SEAICE_INIT_VARIA |
vIce(i,j,bi,bj) = vIce(i,j,bi,bj)*seaiceMaskV(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1379 |
SEAICE_LSR_CALC_COEFFS |
& ) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1382 |
SEAICE_LSR_CALC_COEFFS |
& ) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1384 |
SEAICE_LSR_CALC_COEFFS |
BV(I,J,bi,bj)= (ONE - seaiceMaskV(I,J,bi,bj)) + |
|
./pkg/seaice/seaice_lsr.F |
1387 |
SEAICE_LSR_CALC_COEFFS |
& ) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1400 |
SEAICE_LSR_CALC_COEFFS |
hFacM = seaiceMaskV(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1401 |
SEAICE_LSR_CALC_COEFFS |
hFacP = seaiceMaskV(i+1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1405 |
SEAICE_LSR_CALC_COEFFS |
BV(I,J,bi,bj)=BV(I,J,bi,bj) + seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1423 |
SEAICE_LSR_CALC_COEFFS |
& + seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1529 |
SEAICE_LSR_RHSU |
hFacM = seaiceMaskV(I,J,bi,bj) - seaiceMaskV(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1554 |
SEAICE_LSR_RHSU |
hFacM = seaiceMaskV(I,J,bi,bj) - seaiceMaskV(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1708 |
SEAICE_LSR_RHSV |
& + recip_rAs(I,J,bi,bj) * seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1870 |
SEAICE_LSR_TRIDIAGV |
I AV, BV, CV, vRt1, vRt2, rhsV, vTmp, seaiceMaskV, WFAV, |
|
./pkg/seaice/seaice_lsr.F |
1908 |
SEAICE_LSR_TRIDIAGV |
_RL seaiceMaskV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_lsr.F |
1956 |
SEAICE_LSR_TRIDIAGV |
VRT(I,J)=VRT(I,J)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
429 |
SEAICE_LSR |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
559 |
SEAICE_LSR |
& / ( 1. _d 0 - seaiceMaskV(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
794 |
SEAICE_LSR |
I AV, BV, CV, vRt1, vRt2, rhsV, vTmp, seaiceMaskV, WFAV, |
|
./pkg/seaice/seaice_lsr.F |
839 |
SEAICE_LSR |
& * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
926 |
SEAICE_LSR |
vIce(I,J,bi,bj)=vIce(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
372 |
SEAICE_PRECONDITIONER |
I AV, BV, CV, vRt1, vRt2, rhsV, vTmp, seaiceMaskV, WFAV, |
|
./pkg/seaice/seaice_preconditioner.F |
423 |
SEAICE_PRECONDITIONER |
dvIce(I,J,bi,bj)=dvIce(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj) |