| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_apply_uvice.F |
175 |
OBCS_APPLY_UVICE |
& *seaiceMaskU(Iobc,j,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
178 |
OBCS_APPLY_UVICE |
& *seaiceMaskU(Iobc,j,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
192 |
OBCS_APPLY_UVICE |
& *seaiceMaskU(Iobc+1,j,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
195 |
OBCS_APPLY_UVICE |
& *seaiceMaskU(Iobc+1,j,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
84 |
OBCS_APPLY_UVICE |
& *seaiceMaskU(i,Jobc,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
97 |
OBCS_APPLY_UVICE |
& *seaiceMaskU(i,Jobc,bi,bj) |
|
./pkg/seaice/SEAICE.h |
40 |
NO PROCEDURE |
COMMON/ARRAYC/ seaiceMaskU, seaiceMaskV |
|
./pkg/seaice/SEAICE.h |
41 |
NO PROCEDURE |
_RL seaiceMaskU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_dynsolver.F |
149 |
SEAICE_DYNSOLVER |
seaiceMaskU(I,J,bi,bj)=AREA(i,j,bi,bj)+AREA(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
151 |
SEAICE_DYNSOLVER |
IF ( (seaiceMaskU(I,J,bi,bj) .GT. 0. _d 0) .AND. |
|
./pkg/seaice/seaice_dynsolver.F |
153 |
SEAICE_DYNSOLVER |
seaiceMaskU(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
155 |
SEAICE_DYNSOLVER |
seaiceMaskU(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 |
876 |
SEAICE_EVP |
uIce(I,J,bi,bj) = seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
926 |
SEAICE_EVP |
uIcePm1(I,J,bi,bj) = seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_init_varia.F |
384 |
SEAICE_INIT_VARIA |
seaiceMaskU(i,j,bi,bj)= 0.0 _d 0 |
|
./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 |
406 |
SEAICE_INIT_VARIA |
seaiceMaskU(i,J_obc,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
414 |
SEAICE_INIT_VARIA |
seaiceMaskU(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 |
452 |
SEAICE_INIT_VARIA |
CALL PLOT_FIELD_XYRL( seaiceMaskU, 'Current seaiceMaskU', |
|
./pkg/seaice/seaice_init_varia.F |
493 |
SEAICE_INIT_VARIA |
uIce(i,j,bi,bj) = uIce(i,j,bi,bj)*seaiceMaskU(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1316 |
SEAICE_LSR_CALC_COEFFS |
& * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1319 |
SEAICE_LSR_CALC_COEFFS |
& * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1321 |
SEAICE_LSR_CALC_COEFFS |
BU(I,J,bi,bj)=(ONE - seaiceMaskU(I,J,bi,bj)) + |
|
./pkg/seaice/seaice_lsr.F |
1324 |
SEAICE_LSR_CALC_COEFFS |
& ) * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1337 |
SEAICE_LSR_CALC_COEFFS |
hFacM = seaiceMaskU(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1338 |
SEAICE_LSR_CALC_COEFFS |
hFacP = seaiceMaskU(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1342 |
SEAICE_LSR_CALC_COEFFS |
BU(I,J,bi,bj)=BU(I,J,bi,bj) + seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1360 |
SEAICE_LSR_CALC_COEFFS |
& + seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1576 |
SEAICE_LSR_RHSU |
& + recip_rAw(I,J,bi,bj) * seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1661 |
SEAICE_LSR_RHSV |
hFacM = seaiceMaskU(i,j,bi,bj) - seaiceMaskU(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1686 |
SEAICE_LSR_RHSV |
hFacM = seaiceMaskU(i,j,bi,bj) - seaiceMaskU(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1725 |
SEAICE_LSR_TRIDIAGU |
I AU, BU, CU, uRt1, uRt2, rhsU, uTmp, seaiceMaskU, WFAU, |
|
./pkg/seaice/seaice_lsr.F |
1763 |
SEAICE_LSR_TRIDIAGU |
_RL seaiceMaskU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_lsr.F |
1806 |
SEAICE_LSR_TRIDIAGU |
URT(I,J)=URT(I,J)* seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
428 |
SEAICE_LSR |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj)* seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
553 |
SEAICE_LSR |
& / ( 1. _d 0 - seaiceMaskU(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
705 |
SEAICE_LSR |
& )*seaiceMaskU(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
716 |
SEAICE_LSR |
& )*seaiceMaskU(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
786 |
SEAICE_LSR |
I AU, BU, CU, uRt1, uRt2, rhsU, uTmp, seaiceMaskU, WFAU, |
|
./pkg/seaice/seaice_lsr.F |
814 |
SEAICE_LSR |
& * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
925 |
SEAICE_LSR |
uIce(I,J,bi,bj)=uIce(I,J,bi,bj)* seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
334 |
SEAICE_PRECONDITIONER |
I AU, BU, CU, uRt1, uRt2, rhsU, uTmp, seaiceMaskU, WFAU, |
|
./pkg/seaice/seaice_preconditioner.F |
422 |
SEAICE_PRECONDITIONER |
duIce(I,J,bi,bj)=duIce(I,J,bi,bj)* seaiceMaskU(I,J,bi,bj) |