| 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 |
139 |
SEAICE_DYNSOLVER |
seaiceMaskV(I,J,bi,bj)=AREA(i,j,bi,bj)+AREA(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
141 |
SEAICE_DYNSOLVER |
IF ( (seaiceMaskV(I,J,bi,bj) .GT. 0. _d 0) .AND. |
|
./pkg/seaice/seaice_dynsolver.F |
143 |
SEAICE_DYNSOLVER |
seaiceMaskV(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
145 |
SEAICE_DYNSOLVER |
seaiceMaskV(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
151 |
SEAICE_DYNSOLVER |
CALL EXCH_UV_XY_RL( seaiceMaskU, seaiceMaskV, .FALSE., myThid ) |
|
./pkg/seaice/seaice_evp.F |
544 |
SEAICE_EVP |
vIce(I,J,bi,bj) = seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
551 |
SEAICE_EVP |
& /( 1. _d 0 - seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
380 |
SEAICE_INIT_VARIA |
seaiceMaskV(i,j,bi,bj)= 0.0 _d 0 |
|
./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 |
402 |
SEAICE_INIT_VARIA |
seaiceMaskV(i,J_obc,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
410 |
SEAICE_INIT_VARIA |
seaiceMaskV(I_obc,j,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
437 |
SEAICE_INIT_VARIA |
CALL EXCH_UV_XY_RL(seaiceMaskU,seaiceMaskV,.FALSE.,myThid) |
|
./pkg/seaice/seaice_init_varia.F |
449 |
SEAICE_INIT_VARIA |
CALL PLOT_FIELD_XYRL( seaiceMaskV, 'Current seaiceMaskV', |
|
./pkg/seaice/seaice_init_varia.F |
489 |
SEAICE_INIT_VARIA |
vIce(i,j,bi,bj) = vIce(i,j,bi,bj)*seaiceMaskV(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1306 |
SEAICE_LSR_CALC_COEFFS |
& ) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1309 |
SEAICE_LSR_CALC_COEFFS |
& ) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1311 |
SEAICE_LSR_CALC_COEFFS |
BV(I,J,bi,bj)= (ONE - seaiceMaskV(I,J,bi,bj)) + |
|
./pkg/seaice/seaice_lsr.F |
1314 |
SEAICE_LSR_CALC_COEFFS |
& ) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1327 |
SEAICE_LSR_CALC_COEFFS |
hFacM = seaiceMaskV(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1328 |
SEAICE_LSR_CALC_COEFFS |
hFacP = seaiceMaskV(i+1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1332 |
SEAICE_LSR_CALC_COEFFS |
BV(I,J,bi,bj)=BV(I,J,bi,bj) + seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1349 |
SEAICE_LSR_CALC_COEFFS |
& + seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1434 |
SEAICE_LSR_RHSU |
hFacM = seaiceMaskV(I,J,bi,bj) - seaiceMaskV(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1560 |
SEAICE_LSR_RHSV |
& + recip_rAs(I,J,bi,bj) * seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1731 |
SEAICE_LSR_TRIDIAGV |
I AV, BV, CV, vRt1, vRt2, rhsV, vTmp, seaiceMaskV, WFAV, |
|
./pkg/seaice/seaice_lsr.F |
1772 |
SEAICE_LSR_TRIDIAGV |
_RL seaiceMaskV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_lsr.F |
1831 |
SEAICE_LSR_TRIDIAGV |
VRT(I,J)=VRT(I,J)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
372 |
SEAICE_LSR |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
477 |
SEAICE_LSR |
& / ( 1. _d 0 - seaiceMaskV(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
711 |
SEAICE_LSR |
I AV, BV, CV, vRt1, vRt2, rhsV, vTmp, seaiceMaskV, WFAV, |
|
./pkg/seaice/seaice_lsr.F |
756 |
SEAICE_LSR |
& * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
843 |
SEAICE_LSR |
vIce(I,J,bi,bj)=vIce(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
365 |
SEAICE_PRECONDITIONER |
I AV, BV, CV, vRt1, vRt2, rhsV, vTmp, seaiceMaskV, WFAV, |
|
./pkg/seaice/seaice_preconditioner.F |
416 |
SEAICE_PRECONDITIONER |
dvIce(I,J,bi,bj)=dvIce(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
490 |
SEAICE_PRECOND_RHSU |
hFacM = seaiceMaskV(I,J,bi,bj) - seaiceMaskV(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
635 |
SEAICE_PRECOND_RHSV |
& + recip_rAs(I,J,bi,bj) * seaiceMaskV(I,J,bi,bj) * |