| 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 |
131 |
SEAICE_DYNSOLVER |
seaiceMaskU(I,J,bi,bj)=AREA(i,j,bi,bj)+AREA(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
133 |
SEAICE_DYNSOLVER |
IF ( (seaiceMaskU(I,J,bi,bj) .GT. 0. _d 0) .AND. |
|
./pkg/seaice/seaice_dynsolver.F |
135 |
SEAICE_DYNSOLVER |
seaiceMaskU(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
137 |
SEAICE_DYNSOLVER |
seaiceMaskU(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 |
533 |
SEAICE_EVP |
uIce(I,J,bi,bj) = seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
540 |
SEAICE_EVP |
& /( 1. _d 0 - seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
379 |
SEAICE_INIT_VARIA |
seaiceMaskU(i,j,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
382 |
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 |
401 |
SEAICE_INIT_VARIA |
seaiceMaskU(i,J_obc,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
409 |
SEAICE_INIT_VARIA |
seaiceMaskU(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 |
447 |
SEAICE_INIT_VARIA |
CALL PLOT_FIELD_XYRL( seaiceMaskU, 'Current seaiceMaskU', |
|
./pkg/seaice/seaice_init_varia.F |
488 |
SEAICE_INIT_VARIA |
uIce(i,j,bi,bj) = uIce(i,j,bi,bj)*seaiceMaskU(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1244 |
SEAICE_LSR_CALC_COEFFS |
& * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1247 |
SEAICE_LSR_CALC_COEFFS |
& * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1249 |
SEAICE_LSR_CALC_COEFFS |
BU(I,J,bi,bj)=(ONE - seaiceMaskU(I,J,bi,bj)) + |
|
./pkg/seaice/seaice_lsr.F |
1252 |
SEAICE_LSR_CALC_COEFFS |
& ) * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1265 |
SEAICE_LSR_CALC_COEFFS |
hFacM = seaiceMaskU(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1266 |
SEAICE_LSR_CALC_COEFFS |
hFacP = seaiceMaskU(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1270 |
SEAICE_LSR_CALC_COEFFS |
BU(I,J,bi,bj)=BU(I,J,bi,bj) + seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1287 |
SEAICE_LSR_CALC_COEFFS |
& + seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1457 |
SEAICE_LSR_RHSU |
& + recip_rAw(I,J,bi,bj) * seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1537 |
SEAICE_LSR_RHSV |
hFacM = seaiceMaskU(i,j,bi,bj) - seaiceMaskU(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1577 |
SEAICE_LSR_TRIDIAGU |
I AU, BU, CU, uRt1, uRt2, rhsU, uTmp, seaiceMaskU, WFAU, |
|
./pkg/seaice/seaice_lsr.F |
1618 |
SEAICE_LSR_TRIDIAGU |
_RL seaiceMaskU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_lsr.F |
1662 |
SEAICE_LSR_TRIDIAGU |
URT(I,J)=URT(I,J)* seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
371 |
SEAICE_LSR |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj)* seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
472 |
SEAICE_LSR |
& / ( 1. _d 0 - seaiceMaskU(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
622 |
SEAICE_LSR |
& )*seaiceMaskU(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
633 |
SEAICE_LSR |
& )*seaiceMaskU(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
703 |
SEAICE_LSR |
I AU, BU, CU, uRt1, uRt2, rhsU, uTmp, seaiceMaskU, WFAU, |
|
./pkg/seaice/seaice_lsr.F |
731 |
SEAICE_LSR |
& * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
842 |
SEAICE_LSR |
uIce(I,J,bi,bj)=uIce(I,J,bi,bj)* seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
328 |
SEAICE_PRECONDITIONER |
I AU, BU, CU, uRt1, uRt2, rhsU, uTmp, seaiceMaskU, WFAU, |
|
./pkg/seaice/seaice_preconditioner.F |
415 |
SEAICE_PRECONDITIONER |
duIce(I,J,bi,bj)=duIce(I,J,bi,bj)* seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
513 |
SEAICE_PRECOND_RHSU |
& + recip_rAw(I,J,bi,bj) * seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_preconditioner.F |
612 |
SEAICE_PRECOND_RHSV |
hFacM = seaiceMaskU(i,j,bi,bj) - seaiceMaskU(i,j-1,bi,bj) |