Symbol Description Uses
STREAMICE_hmask 102


File Line number Procedure Code
./pkg/streamice/STREAMICE.h 262 NO PROCEDURE 
     &     STREAMICE_hmask,
./pkg/streamice/STREAMICE.h 273 NO PROCEDURE 
      _RS STREAMICE_hmask (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./pkg/streamice/streamice_adv_flux_fl_x.F 104 STREAMICE_ADV_FLUX_FL_X 
              IF ((STREAMICE_hmask(i,j,bi,bj).eq.1.0) .and.
./pkg/streamice/streamice_adv_flux_fl_x.F 105 STREAMICE_ADV_FLUX_FL_X 
     &            (STREAMICE_hmask(i-2,j,bi,bj).eq.1.0))
./pkg/streamice/streamice_adv_flux_fl_x.F 108 STREAMICE_ADV_FLUX_FL_X 
              IF (((Gi.eq.1).and.(STREAMICE_hmask(i-1,j,bi,bj).eq.3.0))
./pkg/streamice/streamice_adv_flux_fl_x.F 158 STREAMICE_ADV_FLUX_FL_X 
              IF ((STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) .and.
./pkg/streamice/streamice_adv_flux_fl_x.F 159 STREAMICE_ADV_FLUX_FL_X 
     &            (STREAMICE_hmask(i+1,j,bi,bj).eq.1.0))
./pkg/streamice/streamice_adv_flux_fl_x.F 162 STREAMICE_ADV_FLUX_FL_X 
              IF (((Gi.eq.Nx).and.(STREAMICE_hmask(i+1,j,bi,bj).eq.3.0))
./pkg/streamice/streamice_adv_flux_fl_x.F 78 STREAMICE_ADV_FLUX_FL_X 
           IF ((STREAMICE_hmask(i,j,bi,bj).eq.1.0) .or.
./pkg/streamice/streamice_adv_flux_fl_x.F 79 STREAMICE_ADV_FLUX_FL_X 
     &         ((STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) .and.
./pkg/streamice/streamice_adv_flux_fl_x.F 80 STREAMICE_ADV_FLUX_FL_X 
     &          (STREAMICE_hmask(i,j,bi,bj).ne.1.0))) THEN
./pkg/streamice/streamice_adv_flux_fl_x.F 91 STREAMICE_ADV_FLUX_FL_X 
     &          STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_adv_flux_fl_x.F 96 STREAMICE_ADV_FLUX_FL_X 
     &          STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_adv_flux_fl_y.F 109 STREAMICE_ADV_FLUX_FL_Y 
              IF ((STREAMICE_hmask(i,j,bi,bj).eq.1.0) .and.
./pkg/streamice/streamice_adv_flux_fl_y.F 110 STREAMICE_ADV_FLUX_FL_Y 
     &            (STREAMICE_hmask(i,j-2,bi,bj).eq.1.0))
./pkg/streamice/streamice_adv_flux_fl_y.F 113 STREAMICE_ADV_FLUX_FL_Y 
              IF (((Gj.eq.1).and.(STREAMICE_hmask(i,j-1,bi,bj).eq.3.0))
./pkg/streamice/streamice_adv_flux_fl_y.F 162 STREAMICE_ADV_FLUX_FL_Y 
              IF ((STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) .and.
./pkg/streamice/streamice_adv_flux_fl_y.F 163 STREAMICE_ADV_FLUX_FL_Y 
     &            (STREAMICE_hmask(i,j+1,bi,bj).eq.1.0))
./pkg/streamice/streamice_adv_flux_fl_y.F 166 STREAMICE_ADV_FLUX_FL_Y 
              IF (((Gj.eq.Ny).and.(STREAMICE_hmask(i,j+1,bi,bj).eq.3.0))
./pkg/streamice/streamice_adv_flux_fl_y.F 81 STREAMICE_ADV_FLUX_FL_Y 
           IF ((STREAMICE_hmask(i,j,bi,bj).eq.1.0) .or.
./pkg/streamice/streamice_adv_flux_fl_y.F 82 STREAMICE_ADV_FLUX_FL_Y 
     &         ((STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) .and.
./pkg/streamice/streamice_adv_flux_fl_y.F 83 STREAMICE_ADV_FLUX_FL_Y 
     &          (STREAMICE_hmask(i,j,bi,bj).ne.1.0))) THEN
./pkg/streamice/streamice_adv_flux_fl_y.F 94 STREAMICE_ADV_FLUX_FL_Y 
     &          STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_adv_flux_fl_y.F 99 STREAMICE_ADV_FLUX_FL_Y 
     &          STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_adv_front.F 215 STREAMICE_ADV_FRONT 
                STREAMICE_hmask (i,j,bi,bj) = 1.0
./pkg/streamice/streamice_adv_front.F 223 STREAMICE_ADV_FRONT 
               STREAMICE_hmask (i,j,bi,bj) = 2.0
./pkg/streamice/streamice_adv_front.F 230 STREAMICE_ADV_FRONT 
               STREAMICE_hmask (i,j,bi,bj) = 1.0
./pkg/streamice/streamice_adv_front.F 251 STREAMICE_ADV_FRONT 
                ELSEIF (STREAMICE_hmask(i+2*k-3,j,bi,bj).eq.0 _d 0) THEN ! adjacent cell is completely ice free
./pkg/streamice/streamice_adv_front.F 262 STREAMICE_ADV_FRONT 
                ELSEIF (STREAMICE_hmask(i,j+2*k-3,bi,bj).eq.0 _d 0) THEN
./pkg/streamice/streamice_advect_2dtracer.F 129 STREAMICE_ADVECT_2DTRACER 
          IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0 .or.
./pkg/streamice/streamice_advect_2dtracer.F 130 STREAMICE_ADVECT_2DTRACER 
     &        STREAMICE_hmask(i,j,bi,bj).eq.2.0) THEN
./pkg/streamice/streamice_advect_2dtracer.F 180 STREAMICE_ADVECT_2DTRACER 
          IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0 .or.
./pkg/streamice/streamice_advect_2dtracer.F 181 STREAMICE_ADVECT_2DTRACER 
     &        STREAMICE_hmask(i,j,bi,bj).eq.2.0) THEN
./pkg/streamice/streamice_advect_thickness.F 113 STREAMICE_ADVECT_THICKNESS 
           IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_advect_thickness.F 118 STREAMICE_ADVECT_THICKNESS 
           ELSEIF (STREAMICE_hmask(i,j+1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_advect_thickness.F 129 STREAMICE_ADVECT_THICKNESS 
     &     STREAMICE_hmask(i,j,bi,bj).eq.1.0.OR.
./pkg/streamice/streamice_advect_thickness.F 130 STREAMICE_ADVECT_THICKNESS 
     &     STREAMICE_hmask(i,j-1,bi,bj).eq.1.0)) THEN
./pkg/streamice/streamice_advect_thickness.F 217 STREAMICE_ADVECT_THICKNESS 
          IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_advect_thickness.F 262 STREAMICE_ADVECT_THICKNESS 
          IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_advect_thickness.F 284 STREAMICE_ADVECT_THICKNESS 
          IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_advect_thickness.F 329 STREAMICE_ADVECT_THICKNESS 
          IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0 .or.
./pkg/streamice/streamice_advect_thickness.F 330 STREAMICE_ADVECT_THICKNESS 
     &       STREAMICE_hmask(i,j,bi,bj).eq.2.0) THEN
./pkg/streamice/streamice_advect_thickness.F 341 STREAMICE_ADVECT_THICKNESS 
                STREAMICE_hmask(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_advect_thickness.F 83 STREAMICE_ADVECT_THICKNESS 
           IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_advect_thickness.F 88 STREAMICE_ADVECT_THICKNESS 
           ELSEIF (STREAMICE_hmask(i+1,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_advect_thickness.F 95 STREAMICE_ADVECT_THICKNESS 
     &     STREAMICE_hmask(i,j,bi,bj).eq.1.0.OR.
./pkg/streamice/streamice_advect_thickness.F 96 STREAMICE_ADVECT_THICKNESS 
     &     STREAMICE_hmask(i-1,j,bi,bj).eq.1.0)) THEN
./pkg/streamice/streamice_cg_functions.F 278 STREAMICE_CG_MAKE_A 
          IF (STREAMICE_hmask (i,j,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_cg_functions.F 684 STREAMICE_CG_ADIAG 
          IF (STREAMICE_hmask (i,j,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_cg_functions.F 83 STREAMICE_CG_ACTION 
          IF (STREAMICE_hmask (i,j,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_cg_functions.F 852 STREAMICE_CG_BOUND_VALS 
          IF ((STREAMICE_hmask (i,j,bi,bj) .eq. 1.0) .AND.
./pkg/streamice/streamice_diagnostics_state.F 52 STREAMICE_DIAGNOSTICS_STATE 
       CALL DIAGNOSTICS_FILL_RS(STREAMICE_hmask,'SI_hmask',
./pkg/streamice/streamice_driving_stress_ppm.F 112 STREAMICE_DRIVING_STRESS_PPM 
            IF (STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 140 STREAMICE_DRIVING_STRESS_PPM 
            IF (STREAMICE_hmask(i+1,j,bi,bj).eq.1.0 .and.
./pkg/streamice/streamice_driving_stress_ppm.F 141 STREAMICE_DRIVING_STRESS_PPM 
     &          STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 172 STREAMICE_DRIVING_STRESS_PPM 
             IF (STREAMICE_hmask(i+1,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 177 STREAMICE_DRIVING_STRESS_PPM 
             ELSEIF (STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 209 STREAMICE_DRIVING_STRESS_PPM 
            IF (STREAMICE_hmask(i,j+1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 237 STREAMICE_DRIVING_STRESS_PPM 
            IF (STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 266 STREAMICE_DRIVING_STRESS_PPM 
            IF (STREAMICE_hmask(i,j+1,bi,bj).eq.1.0 .and.
./pkg/streamice/streamice_driving_stress_ppm.F 267 STREAMICE_DRIVING_STRESS_PPM 
     &          STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 298 STREAMICE_DRIVING_STRESS_PPM 
             IF (STREAMICE_hmask(i,j+1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 303 STREAMICE_DRIVING_STRESS_PPM 
             ELSEIF (STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 362 STREAMICE_DRIVING_STRESS_PPM 
     &      .OR. (STREAMICE_hmask(i-1,j,bi,bj) .eq. 0)
./pkg/streamice/streamice_driving_stress_ppm.F 363 STREAMICE_DRIVING_STRESS_PPM 
     &      .OR. (STREAMICE_hmask(i-1,j,bi,bj) .eq. 2) ) THEN ! left face of the cell is at a stress boundary
./pkg/streamice/streamice_driving_stress_ppm.F 377 STREAMICE_DRIVING_STRESS_PPM 
     &      .OR. (STREAMICE_hmask(i+1,j,bi,bj) .eq. 0)
./pkg/streamice/streamice_driving_stress_ppm.F 378 STREAMICE_DRIVING_STRESS_PPM 
     &      .OR. (STREAMICE_hmask(i+1,j,bi,bj) .eq. 2) ) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 387 STREAMICE_DRIVING_STRESS_PPM 
     &      .OR. (STREAMICE_hmask(i,j-1,bi,bj) .eq. 0)
./pkg/streamice/streamice_driving_stress_ppm.F 388 STREAMICE_DRIVING_STRESS_PPM 
     &      .OR. (STREAMICE_hmask(i,j-1,bi,bj) .eq. 2) ) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 397 STREAMICE_DRIVING_STRESS_PPM 
     &      .OR. (STREAMICE_hmask(i,j+1,bi,bj) .eq. 0)
./pkg/streamice/streamice_driving_stress_ppm.F 398 STREAMICE_DRIVING_STRESS_PPM 
     &      .OR. (STREAMICE_hmask(i,j+1,bi,bj) .eq. 2) ) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 76 STREAMICE_DRIVING_STRESS_PPM 
          IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 84 STREAMICE_DRIVING_STRESS_PPM 
            IF (STREAMICE_hmask(i+1,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_init_varia.F 156 STREAMICE_INIT_VARIA 
          STREAMICE_hmask(i,j,bi,bj) = -1.0
./pkg/streamice/streamice_init_varia.F 212 STREAMICE_INIT_VARIA 
              STREAMICE_hmask(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 228 STREAMICE_INIT_VARIA 
                STREAMICE_hmask(i,j,bi,bj) = 2.0
./pkg/streamice/streamice_init_varia.F 230 STREAMICE_INIT_VARIA 
                STREAMICE_hmask(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_varia.F 235 STREAMICE_INIT_VARIA 
               STREAMICE_hmask(i,j,bi,bj) = 1.0
./pkg/streamice/streamice_init_varia.F 264 STREAMICE_INIT_VARIA 
              STREAMICE_hmask(i,j,bi,bj) = 1.0
./pkg/streamice/streamice_init_varia.F 267 STREAMICE_INIT_VARIA 
              STREAMICE_hmask(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 306 STREAMICE_INIT_VARIA 
      CALL READ_FLD_XY_RS( STREAMICEhMaskFile, ' ', STREAMICE_hmask,
./pkg/streamice/streamice_init_varia.F 552 STREAMICE_INIT_VARIA 
      _EXCH_XY_RS(STREAMICE_hmask, myThid )
./pkg/streamice/streamice_init_varia.F 596 STREAMICE_INIT_VARIA 
     & STREAMICE_hmask, 0, myThid )
./pkg/streamice/streamice_invert_surf_forthick.F 42 STREAMICE_INVERT_SURF_FORTHICK 
            IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_invert_surf_forthick.F 58 STREAMICE_INVERT_SURF_FORTHICK 
     &           ( STREAMICE_hmask(i,j,bi,bj).eq.1.0)) THEN
./pkg/streamice/streamice_read_pickup.F 137 STREAMICE_READ_PICKUP 
        CALL READ_MFLDS_LEV_RS('SI_hmask', STREAMICE_hmask,
./pkg/streamice/streamice_taub.F 49 STREAMICE_TAUB 
          IF (STREAMICE_hmask(i,j,bi,bj).eq.1) THEN
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 53 STREAMICE_UPD_FFRAC_UNCOUPLED 
          if (STREAMICE_hmask(i,j,bi,bj).eq.1.0 .or.
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 54 STREAMICE_UPD_FFRAC_UNCOUPLED 
     &        STREAMICE_hmask(i,j,bi,bj).eq.2.0) THEN
./pkg/streamice/streamice_velmask_upd.F 157 STREAMICE_VELMASK_UPD 
            IF ((STREAMICE_hmask(i+1,j,bi,bj) .eq. 0.0) .OR.
./pkg/streamice/streamice_velmask_upd.F 158 STREAMICE_VELMASK_UPD 
     &          (STREAMICE_hmask(i+1,j,bi,bj) .eq. 2.0))  THEN
./pkg/streamice/streamice_velmask_upd.F 165 STREAMICE_VELMASK_UPD 
            IF ((STREAMICE_hmask(i-1,j,bi,bj) .eq. 0.0) .OR.
./pkg/streamice/streamice_velmask_upd.F 166 STREAMICE_VELMASK_UPD 
     &          (STREAMICE_hmask(i-1,j,bi,bj) .eq. 2.0))  THEN
./pkg/streamice/streamice_velmask_upd.F 173 STREAMICE_VELMASK_UPD 
            IF ((STREAMICE_hmask(i,j+1,bi,bj) .eq. 0.0) .OR.
./pkg/streamice/streamice_velmask_upd.F 174 STREAMICE_VELMASK_UPD 
     &          (STREAMICE_hmask(i,j+1,bi,bj) .eq. 2.0))  THEN
./pkg/streamice/streamice_velmask_upd.F 181 STREAMICE_VELMASK_UPD 
            IF ((STREAMICE_hmask(i,j-1,bi,bj) .eq. 0.0) .OR.
./pkg/streamice/streamice_velmask_upd.F 182 STREAMICE_VELMASK_UPD 
     &          (STREAMICE_hmask(i,j-1,bi,bj) .eq. 2.0))  THEN
./pkg/streamice/streamice_velmask_upd.F 54 STREAMICE_VELMASK_UPD 
      _EXCH_XY_RS( STREAMICE_hmask, myThid )
./pkg/streamice/streamice_velmask_upd.F 73 STREAMICE_VELMASK_UPD 
          IF (STREAMICE_hmask(i,j,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_visc_beta.F 44 STREAMICE_VISC_BETA 
          IF (STREAMICE_hmask(i,j,bi,bj).eq.1) THEN
./pkg/streamice/streamice_visc_beta_hybrid.F 53 STREAMICE_VISC_BETA_HYBRID 
          IF (STREAMICE_hmask(i,j,bi,bj).eq.1) THEN
./pkg/streamice/streamice_write_pickup.F 93 STREAMICE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RS( fn, fp, 1, STREAMICE_hmask,