Symbol Description Uses
firn_depth 46


File Line number Procedure Code
./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 171 STREAMICE_DRIVING_STRESS 
     &         streamice_density_firn * firn_depth**2 +
./pkg/streamice/streamice_driving_stress.F 172 STREAMICE_DRIVING_STRESS 
     &         (h_streamice(i-1,j,bi,bj)-firn_depth) *
./pkg/streamice/streamice_driving_stress.F 173 STREAMICE_DRIVING_STRESS 
     &          (streamice_density_firn*firn_depth+streamice_density*
./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 234 STREAMICE_DRIVING_STRESS 
     &         streamice_density_firn *  firn_depth**2 +
./pkg/streamice/streamice_driving_stress.F 235 STREAMICE_DRIVING_STRESS 
     &         (h_streamice(i,j,bi,bj)-firn_depth) *
./pkg/streamice/streamice_driving_stress.F 236 STREAMICE_DRIVING_STRESS 
     &          (streamice_density_firn*firn_depth+streamice_density*
./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 319 STREAMICE_DRIVING_STRESS 
     &         streamice_density_firn * firn_depth**2 +
./pkg/streamice/streamice_driving_stress.F 320 STREAMICE_DRIVING_STRESS 
     &         (h_streamice(i-1,j-1,bi,bj)-firn_depth) *
./pkg/streamice/streamice_driving_stress.F 321 STREAMICE_DRIVING_STRESS 
     &          (streamice_density_firn*firn_depth+streamice_density*
./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 382 STREAMICE_DRIVING_STRESS 
     &         streamice_density_firn * firn_depth**2 +
./pkg/streamice/streamice_driving_stress.F 383 STREAMICE_DRIVING_STRESS 
     &         (h_streamice(i,j-1,bi,bj)-firn_depth) *
./pkg/streamice/streamice_driving_stress.F 384 STREAMICE_DRIVING_STRESS 
     &          (streamice_density_firn*firn_depth+streamice_density*
./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 469 STREAMICE_DRIVING_STRESS 
     &         streamice_density_firn * firn_depth**2 +
./pkg/streamice/streamice_driving_stress.F 470 STREAMICE_DRIVING_STRESS 
     &         (h_streamice(i,j-1,bi,bj)-firn_depth) *
./pkg/streamice/streamice_driving_stress.F 471 STREAMICE_DRIVING_STRESS 
     &          (streamice_density_firn*firn_depth+streamice_density*
./pkg/streamice/streamice_driving_stress.F 48 STREAMICE_DRIVING_STRESS 
      _RL firn_depth, h
./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 532 STREAMICE_DRIVING_STRESS 
     &         streamice_density_firn * firn_depth**2 +
./pkg/streamice/streamice_driving_stress.F 533 STREAMICE_DRIVING_STRESS 
     &         (h_streamice(i,j,bi,bj)-firn_depth) *
./pkg/streamice/streamice_driving_stress.F 534 STREAMICE_DRIVING_STRESS 
     &          (streamice_density_firn*firn_depth+streamice_density*
./pkg/streamice/streamice_driving_stress.F 59 STREAMICE_DRIVING_STRESS 
      firn_depth = streamice_density *
./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 617 STREAMICE_DRIVING_STRESS 
     &         streamice_density_firn * firn_depth**2 +
./pkg/streamice/streamice_driving_stress.F 618 STREAMICE_DRIVING_STRESS 
     &         (h_streamice(i-1,j-1,bi,bj)-firn_depth) *
./pkg/streamice/streamice_driving_stress.F 619 STREAMICE_DRIVING_STRESS 
     &          (streamice_density_firn*firn_depth+streamice_density*
./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 679 STREAMICE_DRIVING_STRESS 
     &         streamice_density_firn * firn_depth**2 +
./pkg/streamice/streamice_driving_stress.F 680 STREAMICE_DRIVING_STRESS 
     &         (h_streamice(i-1,j,bi,bj)-firn_depth) *
./pkg/streamice/streamice_driving_stress.F 681 STREAMICE_DRIVING_STRESS 
     &          (streamice_density_firn*firn_depth+streamice_density*
./pkg/streamice/streamice_driving_stress.F 75 STREAMICE_DRIVING_STRESS 
            if (h.lt.firn_depth) then
./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 115 STREAMICE_FORCED_BUTTRESS 
     &         streamice_density_firn * firn_depth**2 +
./pkg/streamice/streamice_forced_buttress.F 116 STREAMICE_FORCED_BUTTRESS 
     &         (h_streamice(i,j,bi,bj)-firn_depth) *
./pkg/streamice/streamice_forced_buttress.F 117 STREAMICE_FORCED_BUTTRESS 
     &          (streamice_density_firn*firn_depth+streamice_density*
./pkg/streamice/streamice_forced_buttress.F 45 STREAMICE_FORCED_BUTTRESS 
      _RL firn_depth, h
./pkg/streamice/streamice_forced_buttress.F 51 STREAMICE_FORCED_BUTTRESS 
      firn_depth = streamice_density *
./pkg/streamice/streamice_forced_buttress.F 64 STREAMICE_FORCED_BUTTRESS 
            if (h.lt.firn_depth) then
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 114 STREAMICE_UPD_FFRAC_UNCOUPLED 
          if (h_streamice(i,j,bi,bj).lt.firn_depth) then
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 136 STREAMICE_UPD_FFRAC_UNCOUPLED 
           if (h_streamice(i,j,bi,bj).lt.firn_depth) then
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 39 STREAMICE_UPD_FFRAC_UNCOUPLED 
      _RL firn_depth
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 48 STREAMICE_UPD_FFRAC_UNCOUPLED 
      firn_depth = streamice_density *