| 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 |
282 |
SEAICE_LSR |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
449 |
SEAICE_LSR |
hFacM = seaiceMaskV(I,J,bi,bj) - seaiceMaskV(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
631 |
SEAICE_LSR |
& ) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
634 |
SEAICE_LSR |
& ) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
636 |
SEAICE_LSR |
BV(I,J,bi,bj)= (ONE - seaiceMaskV(I,J,bi,bj)) + |
|
./pkg/seaice/seaice_lsr.F |
641 |
SEAICE_LSR |
& ) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
654 |
SEAICE_LSR |
hFacM = seaiceMaskV(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
655 |
SEAICE_LSR |
hFacP = seaiceMaskV(i+1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
659 |
SEAICE_LSR |
BV(I,J,bi,bj)=BV(I,J,bi,bj) + seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
678 |
SEAICE_LSR |
& + seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
736 |
SEAICE_LSR |
& + recip_rAs(I,J,bi,bj) * seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
781 |
SEAICE_LSR |
& ) * vIce(I,J-1,bi,bj) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
784 |
SEAICE_LSR |
& ) * vIce(I,J+1,bi,bj) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
798 |
SEAICE_LSR |
VRT(I,J)=VRT(I,J)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
832 |
SEAICE_LSR |
& * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
872 |
SEAICE_LSR |
vIce(I,J,bi,bj)=vIce(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj) |