Symbol Description Uses
H_streamice 145



File Line number Procedure Code
./pkg/shelfice/shelfice_step_icemass.F 60 SHELFICE_STEP_ICEMASS
     &        H_streamice(I,J,bi,bj) * streamice_density
./pkg/streamice/STREAMICE.h 386 NO PROCEDURE
     &     H_streamice,
./pkg/streamice/STREAMICE.h 477 NO PROCEDURE
      _RL H_streamice           (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./pkg/streamice/streamice_adv_front.F 166 STREAMICE_ADV_FRONT
              href = href + H_streamice(i-1,j,bi,bj)
./pkg/streamice/streamice_adv_front.F 178 STREAMICE_ADV_FRONT
              href = href + H_streamice(i+1,j,bi,bj)
./pkg/streamice/streamice_adv_front.F 190 STREAMICE_ADV_FRONT
              href = href + H_streamice(i,j-1,bi,bj)
./pkg/streamice/streamice_adv_front.F 202 STREAMICE_ADV_FRONT
              href = href + H_streamice(i,j+1,bi,bj)
./pkg/streamice/streamice_adv_front.F 211 STREAMICE_ADV_FRONT
              partial_vol = H_streamice (i,j,bi,bj) *
./pkg/streamice/streamice_adv_front.F 217 STREAMICE_ADV_FRONT
                H_streamice (i,j,bi,bj) = href
./pkg/streamice/streamice_adv_front.F 224 STREAMICE_ADV_FRONT
               H_streamice (i,j,bi,bj) = href
./pkg/streamice/streamice_adv_front.F 266 STREAMICE_ADV_FRONT
                H_streamice(i,j,bi,bj) = href + partial_vol *
./pkg/streamice/streamice_adv_front.F 269 STREAMICE_ADV_FRONT
                H_streamice(i,j,bi,bj) = href
./pkg/streamice/streamice_advect_thickness.F 218 STREAMICE_ADVECT_THICKNESS
     I   H_streamice ,
./pkg/streamice/streamice_advect_thickness.F 234 STREAMICE_ADVECT_THICKNESS
           h_after_uflux_SI (i,j,bi,bj) = H_streamice(i,j,bi,bj) -
./pkg/streamice/streamice_advect_thickness.F 299 STREAMICE_ADVECT_THICKNESS
           H_streamice (i,j,bi,bj) =
./pkg/streamice/streamice_advect_thickness.F 363 STREAMICE_ADVECT_THICKNESS
     &          H_streamice (i,j,bi,bj))) THEN
./pkg/streamice/streamice_advect_thickness.F 364 STREAMICE_ADVECT_THICKNESS
                H_streamice (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_advect_thickness.F 368 STREAMICE_ADVECT_THICKNESS
               H_streamice (i,j,bi,bj) =
./pkg/streamice/streamice_advect_thickness.F 369 STREAMICE_ADVECT_THICKNESS
     &          H_streamice (i,j,bi,bj) + TMB * time_step_loc
./pkg/streamice/streamice_advect_thickness.F 378 STREAMICE_ADVECT_THICKNESS
      _EXCH_XY_RL(H_streamice,myThid)
./pkg/streamice/streamice_advect_thickness.F 74 STREAMICE_ADVECT_THICKNESS
     O            H_streamice,
./pkg/streamice/streamice_advect_thickness.F 86 STREAMICE_ADVECT_THICKNESS
     &     H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F 95 STREAMICE_ADVECT_THICKNESS
           h_after_uflux_SI(i,j,bi,bj) = H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F 96 STREAMICE_ADVECT_THICKNESS
           h_after_vflux_SI(i,j,bi,bj) = H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_cost_surf_accum.F 94 STREAMICE_COST_SURF_ACCUM
     &        streamice_wgt_drift * (H_streamice(i,j,bi,bj)-
./pkg/streamice/streamice_diagnostics_state.F 109 STREAMICE_DIAGNOSTICS_STATE
       CALL DIAGNOSTICS_FILL(H_streamice,'SI_Thick',
./pkg/streamice/streamice_diagnostics_state.F 58 STREAMICE_DIAGNOSTICS_STATE
           h_streamice_diag(i,j,bi,bj) = H_streamice(i,j,bi,bj)v
./pkg/streamice/streamice_driving_stress.F 119 STREAMICE_DRIVING_STRESS
     &       (H_streamice(i,j,bi,bj)*avg_density(i,j,bi,bj)+
./pkg/streamice/streamice_driving_stress.F 120 STREAMICE_DRIVING_STRESS
     &        H_streamice(i-1,j,bi,bj)*avg_density(i-1,j,bi,bj)) *
./pkg/streamice/streamice_driving_stress.F 128 STREAMICE_DRIVING_STRESS
     &       (H_streamice(i-1,j,bi,bj) + H_streamice(i,j,bi,bj))
./pkg/streamice/streamice_driving_stress.F 148 STREAMICE_DRIVING_STRESS
     &        (avg_density(i-1,j,bi,bj) * H_streamice(i-1,j,bi,bj)**2-
./pkg/streamice/streamice_driving_stress.F 162 STREAMICE_DRIVING_STRESS
             if (H_streamice(i-1,j,bi,bj).lt.firn_depth) then
./pkg/streamice/streamice_driving_stress.F 167 STREAMICE_DRIVING_STRESS
     &         H_streamice(i-1,j,bi,bj)**2 
./pkg/streamice/streamice_driving_stress.F 186 STREAMICE_DRIVING_STRESS
     &         H_streamice(i-1,j,bi,bj)**2 
./pkg/streamice/streamice_driving_stress.F 211 STREAMICE_DRIVING_STRESS
     &        (avg_density(i,j,bi,bj) * H_streamice(i,j,bi,bj)**2 -
./pkg/streamice/streamice_driving_stress.F 225 STREAMICE_DRIVING_STRESS
             if (H_streamice(i,j,bi,bj).lt.firn_depth) then
./pkg/streamice/streamice_driving_stress.F 230 STREAMICE_DRIVING_STRESS
     &         H_streamice(i,j,bi,bj)**2 
./pkg/streamice/streamice_driving_stress.F 249 STREAMICE_DRIVING_STRESS
     &         H_streamice(i,j,bi,bj)**2 
./pkg/streamice/streamice_driving_stress.F 269 STREAMICE_DRIVING_STRESS
     &       (H_streamice(i,j-1,bi,bj)*avg_density(i,j-1,bi,bj)+
./pkg/streamice/streamice_driving_stress.F 270 STREAMICE_DRIVING_STRESS
     &        H_streamice(i-1,j-1,bi,bj)*avg_density(i-1,j-1,bi,bj)) *
./pkg/streamice/streamice_driving_stress.F 277 STREAMICE_DRIVING_STRESS
     &       (H_streamice(i-1,j-1,bi,bj) + H_streamice(i,j-1,bi,bj))
./pkg/streamice/streamice_driving_stress.F 296 STREAMICE_DRIVING_STRESS
     &        (avg_density(i-1,j-1,bi,bj)*H_streamice(i-1,j-1,bi,bj)**2-
./pkg/streamice/streamice_driving_stress.F 310 STREAMICE_DRIVING_STRESS
             if (H_streamice(i-1,j-1,bi,bj).lt.firn_depth) then
./pkg/streamice/streamice_driving_stress.F 315 STREAMICE_DRIVING_STRESS
     &         H_streamice(i-1,j-1,bi,bj)**2 
./pkg/streamice/streamice_driving_stress.F 334 STREAMICE_DRIVING_STRESS
     &         H_streamice(i-1,j-1,bi,bj)**2 
./pkg/streamice/streamice_driving_stress.F 360 STREAMICE_DRIVING_STRESS
     &        (avg_density(i,j-1,bi,bj) * H_streamice(i,j-1,bi,bj)**2 -
./pkg/streamice/streamice_driving_stress.F 373 STREAMICE_DRIVING_STRESS
             if (H_streamice(i,j-1,bi,bj).lt.firn_depth) then
./pkg/streamice/streamice_driving_stress.F 378 STREAMICE_DRIVING_STRESS
     &         H_streamice(i,j-1,bi,bj)**2 
./pkg/streamice/streamice_driving_stress.F 397 STREAMICE_DRIVING_STRESS
     &         H_streamice(i,j-1,bi,bj)**2 
./pkg/streamice/streamice_driving_stress.F 420 STREAMICE_DRIVING_STRESS
     &       (H_streamice(i,j,bi,bj)*avg_density(i,j,bi,bj)+
./pkg/streamice/streamice_driving_stress.F 421 STREAMICE_DRIVING_STRESS
     &        H_streamice(i,j-1,bi,bj)*avg_density(i,j-1,bi,bj))*
./pkg/streamice/streamice_driving_stress.F 428 STREAMICE_DRIVING_STRESS
     &       (H_streamice(i,j-1,bi,bj) + H_streamice(i,j,bi,bj))
./pkg/streamice/streamice_driving_stress.F 447 STREAMICE_DRIVING_STRESS
     &        (avg_density(i,j-1,bi,bj) * H_streamice(i,j-1,bi,bj)**2 -
./pkg/streamice/streamice_driving_stress.F 460 STREAMICE_DRIVING_STRESS
             if (H_streamice(i,j-1,bi,bj).lt.firn_depth) then
./pkg/streamice/streamice_driving_stress.F 465 STREAMICE_DRIVING_STRESS
     &         H_streamice(i,j-1,bi,bj)**2 
./pkg/streamice/streamice_driving_stress.F 484 STREAMICE_DRIVING_STRESS
     &         H_streamice(i,j-1,bi,bj)**2 
./pkg/streamice/streamice_driving_stress.F 509 STREAMICE_DRIVING_STRESS
     &        (avg_density(i,j,bi,bj) * H_streamice(i,j,bi,bj)**2 -
./pkg/streamice/streamice_driving_stress.F 523 STREAMICE_DRIVING_STRESS
             if (H_streamice(i,j,bi,bj).lt.firn_depth) then
./pkg/streamice/streamice_driving_stress.F 528 STREAMICE_DRIVING_STRESS
     &         H_streamice(i,j,bi,bj)**2 
./pkg/streamice/streamice_driving_stress.F 547 STREAMICE_DRIVING_STRESS
     &         H_streamice(i,j,bi,bj)**2 
./pkg/streamice/streamice_driving_stress.F 567 STREAMICE_DRIVING_STRESS
     &       (H_streamice(i-1,j,bi,bj)*avg_density(i-1,j,bi,bj)+
./pkg/streamice/streamice_driving_stress.F 568 STREAMICE_DRIVING_STRESS
     &        H_streamice(i-1,j-1,bi,bj)*avg_density(i-1,j-1,bi,bj))*
./pkg/streamice/streamice_driving_stress.F 575 STREAMICE_DRIVING_STRESS
     &       (H_streamice(i-1,j-1,bi,bj) + H_streamice(i-1,j,bi,bj))
./pkg/streamice/streamice_driving_stress.F 595 STREAMICE_DRIVING_STRESS
     &        (avg_density(i-1,j-1,bi,bj)*H_streamice(i-1,j-1,bi,bj)**2-
./pkg/streamice/streamice_driving_stress.F 608 STREAMICE_DRIVING_STRESS
             if (H_streamice(i-1,j-1,bi,bj).lt.firn_depth) then
./pkg/streamice/streamice_driving_stress.F 613 STREAMICE_DRIVING_STRESS
     &         H_streamice(i-1,j-1,bi,bj)**2 
./pkg/streamice/streamice_driving_stress.F 631 STREAMICE_DRIVING_STRESS
     &         H_streamice(i-1,j-1,bi,bj)**2 
./pkg/streamice/streamice_driving_stress.F 657 STREAMICE_DRIVING_STRESS
     &        (avg_density(i-1,j,bi,bj) * H_streamice(i-1,j,bi,bj)**2 -
./pkg/streamice/streamice_driving_stress.F 670 STREAMICE_DRIVING_STRESS
             if (H_streamice(i-1,j,bi,bj).lt.firn_depth) then
./pkg/streamice/streamice_driving_stress.F 675 STREAMICE_DRIVING_STRESS
     &         H_streamice(i-1,j,bi,bj)**2 
./pkg/streamice/streamice_driving_stress.F 693 STREAMICE_DRIVING_STRESS
     &         H_streamice(i-1,j,bi,bj)**2 
./pkg/streamice/streamice_driving_stress_fd.F 174 STREAMICE_DRIVING_STRESS_FD
     &       H_streamice (i,j,bi,bj) * dsdx (i,j,bi,bj) * 
./pkg/streamice/streamice_driving_stress_fd.F 180 STREAMICE_DRIVING_STRESS_FD
     &       H_streamice (i,j,bi,bj) * dsdx (i+1,j,bi,bj) * 
./pkg/streamice/streamice_driving_stress_fd.F 190 STREAMICE_DRIVING_STRESS_FD
     &       H_streamice (i,j,bi,bj) * dsdx (i+1,j,bi,bj) * 
./pkg/streamice/streamice_driving_stress_fd.F 196 STREAMICE_DRIVING_STRESS_FD
     &       H_streamice (i,j,bi,bj) * dsdx (i,j,bi,bj) * 
./pkg/streamice/streamice_driving_stress_fd.F 206 STREAMICE_DRIVING_STRESS_FD
     &       H_streamice (i,j,bi,bj) * dsdx (i,j,bi,bj) * 
./pkg/streamice/streamice_driving_stress_fd.F 212 STREAMICE_DRIVING_STRESS_FD
     &       H_streamice (i,j,bi,bj) * dsdx (i+1,j,bi,bj) * 
./pkg/streamice/streamice_driving_stress_fd.F 222 STREAMICE_DRIVING_STRESS_FD
     &       H_streamice (i,j,bi,bj) * dsdx (i+1,j,bi,bj) * 
./pkg/streamice/streamice_driving_stress_fd.F 228 STREAMICE_DRIVING_STRESS_FD
     &       H_streamice (i,j,bi,bj) * dsdx (i,j,bi,bj) * 
./pkg/streamice/streamice_driving_stress_fd.F 255 STREAMICE_DRIVING_STRESS_FD
     &        streamice_density * H_streamice(i,j,bi,bj)**2-
./pkg/streamice/streamice_driving_stress_fd.F 270 STREAMICE_DRIVING_STRESS_FD
     &         H_streamice(i,j,bi,bj)**2 
./pkg/streamice/streamice_driving_stress_fd.F 292 STREAMICE_DRIVING_STRESS_FD
     &        streamice_density * H_streamice(i,j,bi,bj)**2-
./pkg/streamice/streamice_driving_stress_fd.F 307 STREAMICE_DRIVING_STRESS_FD
     &         H_streamice(i,j,bi,bj)**2 
./pkg/streamice/streamice_driving_stress_fd.F 325 STREAMICE_DRIVING_STRESS_FD
     &       H_streamice (i,j,bi,bj) * dsdy (i,j,bi,bj) * 
./pkg/streamice/streamice_driving_stress_fd.F 331 STREAMICE_DRIVING_STRESS_FD
     &       H_streamice (i,j,bi,bj) * dsdy (i,j+1,bi,bj) * 
./pkg/streamice/streamice_driving_stress_fd.F 341 STREAMICE_DRIVING_STRESS_FD
     &       H_streamice (i,j,bi,bj) * dsdy (i,j+1,bi,bj) * 
./pkg/streamice/streamice_driving_stress_fd.F 347 STREAMICE_DRIVING_STRESS_FD
     &       H_streamice (i,j,bi,bj) * dsdy (i,j,bi,bj) * 
./pkg/streamice/streamice_driving_stress_fd.F 357 STREAMICE_DRIVING_STRESS_FD
     &       H_streamice (i,j,bi,bj) * dsdy (i,j,bi,bj) * 
./pkg/streamice/streamice_driving_stress_fd.F 363 STREAMICE_DRIVING_STRESS_FD
     &       H_streamice (i,j,bi,bj) * dsdy (i,j+1,bi,bj) * 
./pkg/streamice/streamice_driving_stress_fd.F 373 STREAMICE_DRIVING_STRESS_FD
     &       H_streamice (i,j,bi,bj) * dsdy (i,j+1,bi,bj) * 
./pkg/streamice/streamice_driving_stress_fd.F 379 STREAMICE_DRIVING_STRESS_FD
     &       H_streamice (i,j,bi,bj) * dsdy (i,j,bi,bj) * 
./pkg/streamice/streamice_driving_stress_fd.F 406 STREAMICE_DRIVING_STRESS_FD
     &        streamice_density * H_streamice(i,j,bi,bj)**2-
./pkg/streamice/streamice_driving_stress_fd.F 421 STREAMICE_DRIVING_STRESS_FD
     &         H_streamice(i,j,bi,bj)**2 
./pkg/streamice/streamice_driving_stress_fd.F 443 STREAMICE_DRIVING_STRESS_FD
     &        streamice_density * H_streamice(i,j,bi,bj)**2-
./pkg/streamice/streamice_driving_stress_fd.F 458 STREAMICE_DRIVING_STRESS_FD
     &         H_streamice(i,j,bi,bj)**2 
./pkg/streamice/streamice_driving_stress_ppm.F 103 STREAMICE_DRIVING_STRESS_PPM
     &          H_streamice(i,j,bi,bj) * rA(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F 131 STREAMICE_DRIVING_STRESS_PPM
     &          H_streamice(i,j,bi,bj) * rA(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F 152 STREAMICE_DRIVING_STRESS_PPM
     &          H_streamice(i,j,bi,bj) * .5 * dyF(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F 165 STREAMICE_DRIVING_STRESS_PPM
     &          H_streamice(i,j,bi,bj) * .5 * dyF(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F 194 STREAMICE_DRIVING_STRESS_PPM
     &           H_streamice(i,j,bi,bj) * rA(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F 228 STREAMICE_DRIVING_STRESS_PPM
     &          H_streamice(i,j,bi,bj) * rA(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F 257 STREAMICE_DRIVING_STRESS_PPM
     &          H_streamice(i,j,bi,bj) * rA(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F 278 STREAMICE_DRIVING_STRESS_PPM
     &          H_streamice(i,j,bi,bj) * .5 * dxF(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F 291 STREAMICE_DRIVING_STRESS_PPM
     &          H_streamice(i,j,bi,bj) * .5 * dxF(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F 320 STREAMICE_DRIVING_STRESS_PPM
     &           H_streamice(i,j,bi,bj) * rA(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F 348 STREAMICE_DRIVING_STRESS_PPM
     &       (streamice_density * H_streamice (i,j,bi,bj) ** 2 - 
./pkg/streamice/streamice_driving_stress_ppm.F 352 STREAMICE_DRIVING_STRESS_PPM
     &       (streamice_density * H_streamice (i,j,bi,bj) ** 2 - 
./pkg/streamice/streamice_driving_stress_ppm.F 358 STREAMICE_DRIVING_STRESS_PPM
     &        streamice_density * H_streamice(i,j,bi,bj) ** 2 
./pkg/streamice/streamice_forced_buttress.F 108 STREAMICE_FORCED_BUTTRESS
             if (H_streamice(i,j,bi,bj).lt.firn_depth) then
./pkg/streamice/streamice_forced_buttress.F 112 STREAMICE_FORCED_BUTTRESS
     &         H_streamice(i,j,bi,bj)**2 
./pkg/streamice/streamice_forced_buttress.F 129 STREAMICE_FORCED_BUTTRESS
     &          H_streamice(i,j,bi,bj)**2
./pkg/streamice/streamice_forced_buttress.F 96 STREAMICE_FORCED_BUTTRESS
     &         (avg_density(i,j,bi,bj) * H_streamice(i,j,bi,bj)**2 -
./pkg/streamice/streamice_init_varia.F 214 STREAMICE_INIT_VARIA
               H_streamice (i,j,bi,bj) = shelf_min_draft
./pkg/streamice/streamice_init_varia.F 216 STREAMICE_INIT_VARIA
               H_streamice (i,j,bi,bj) = (shelf_min_draft +
./pkg/streamice/streamice_init_varia.F 229 STREAMICE_INIT_VARIA
                H_streamice(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_varia.F 249 STREAMICE_INIT_VARIA
        CALL READ_FLD_XY_RL( STREAMICEthickFile, ' ', H_streamice,
./pkg/streamice/streamice_init_varia.F 259 STREAMICE_INIT_VARIA
             IF (H_streamice(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/streamice/streamice_init_varia.F 293 STREAMICE_INIT_VARIA
      CALL READ_FLD_XY_RL( STREAMICEthickFile, ' ', H_streamice,
./pkg/streamice/streamice_init_varia.F 544 STREAMICE_INIT_VARIA
      _EXCH_XY_RL(H_streamice, myThid )
./pkg/streamice/streamice_read_pickup.F 143 STREAMICE_READ_PICKUP
        CALL READ_MFLDS_3D_RL( 'SI_thick', H_streamice,
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 124 STREAMICE_UPD_FFRAC_UNCOUPLED
     &     H_streamice(i,j,bi,bj) * rhoi/rhow
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 147 STREAMICE_UPD_FFRAC_UNCOUPLED
     &      (1-rhoi/rhow)*H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 158 STREAMICE_UPD_FFRAC_UNCOUPLED
     &      + H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 67 STREAMICE_UPD_FFRAC_UNCOUPLED
           h = H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_velmask_upd.F 55 STREAMICE_VELMASK_UPD
      _EXCH_XY_RL( H_streamice, myThid )
./pkg/streamice/streamice_visc_beta.F 100 STREAMICE_VISC_BETA
     &      second_inv**((1-n_glen)/n_glen) * H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F 169 STREAMICE_VISC_BETA_HYBRID
     &       H_streamice(i,j,bi,bj) * streamice_delsigma (m) *
./pkg/streamice/streamice_visc_beta_hybrid.F 186 STREAMICE_VISC_BETA_HYBRID
     &       H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F 190 STREAMICE_VISC_BETA_HYBRID
     &       H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F 201 STREAMICE_VISC_BETA_HYBRID
     &       * H_streamice(i,j,bi,bj)**2
./pkg/streamice/streamice_visc_beta_hybrid.F 218 STREAMICE_VISC_BETA_HYBRID
     &      streamice_omega(i,j,bi,bj) / H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F 223 STREAMICE_VISC_BETA_HYBRID
     &      streamice_omega(i,j,bi,bj) / H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F 236 STREAMICE_VISC_BETA_HYBRID
     &       (1+fb*streamice_omega(i,j,bi,bj)/H_streamice(i,j,bi,bj))
./pkg/streamice/streamice_visc_beta_hybrid.F 243 STREAMICE_VISC_BETA_HYBRID
     &      H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_write_pickup.F 111 STREAMICE_WRITE_PICKUP
        CALL WRITE_REC_3D_RL( fn, fp, 1, H_streamice,
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F 100 CTRL_MAP_INI_GENARR
     &                  H_streamice(i,j,bi,bj)
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F 128 CTRL_MAP_INI_GENARR
       _EXCH_XY_RL( H_streamice, myThid )
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F 99 CTRL_MAP_INI_GENARR
                  H_streamice(i,j,bi,bj) =
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F 100 CTRL_MAP_INI_GENARR
     &                  H_streamice(i,j,bi,bj)
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F 128 CTRL_MAP_INI_GENARR
       _EXCH_XY_RL( H_streamice, myThid )
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F 99 CTRL_MAP_INI_GENARR
                  H_streamice(i,j,bi,bj) =