Symbol Description Uses
rhoi density of ice [kg/m^3] 72


File Line number Procedure Code
./pkg/streamice/adstreamice_invert_surf_forthick.F 35 ADSTRMICE_H_INV 
      _RL rhoi, rhow, i_r, delta
./pkg/streamice/adstreamice_invert_surf_forthick.F 86 ADSTRMICE_H_INV 
      rhoi = streamice_density
./pkg/streamice/adstreamice_invert_surf_forthick.F 88 ADSTRMICE_H_INV 
      i_r = rhow/rhoi
./pkg/streamice/adstreamice_invert_surf_forthick.F 89 ADSTRMICE_H_INV 
      delta=1-rhoi/rhow
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 118 STREAMICE_UPD_FFRAC_UNCOUPLED 
            OD = -1.0 * rlo - rhoi/rhow *
./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 141 STREAMICE_UPD_FFRAC_UNCOUPLED 
     &      (1-rhoi/rhow)*h_streamice(i,j,bi,bj) +
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 142 STREAMICE_UPD_FFRAC_UNCOUPLED 
     &        rhoi/rhow*streamice_firn_correction
./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 31 STREAMICE_UPD_FFRAC_UNCOUPLED 
      _RL OD, rhoi, rhow, delta, r, h, hf, i_r, rlo
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 42 STREAMICE_UPD_FFRAC_UNCOUPLED 
      rhoi = streamice_density
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 44 STREAMICE_UPD_FFRAC_UNCOUPLED 
      r=rhoi/rhow
./pkg/thsice/THSICE_PARAMS.h 80 NO PROCEDURE 
     &  rhos, rhoi, rhosw, rhofw, floodFac,
./pkg/thsice/THSICE_PARAMS.h 96 NO PROCEDURE 
      _RL  rhoi
./pkg/thsice/thsice_advdiff.F 491 THSICE_ADVDIFF 
     &                             +rhoi*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 493 THSICE_ADVDIFF 
            oceSflx(i,j,bi,bj) =    rhoi*iceHeight(i,j,bi,bj)*saltIce
./pkg/thsice/thsice_advdiff.F 496 THSICE_ADVDIFF 
     &                             +rhoi*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_calc_thickn.F 1027 THSICE_CALC_THICKN 
         fsalt(i,j) = (msalt0(i,j) - rhoi*hIce(i,j)*saltIce)/dt
./pkg/thsice/thsice_calc_thickn.F 1032 THSICE_CALC_THICKN 
     &         (mwater0(i,j)-(rhos*hSnow1(i,j)+rhoi*hIce(i,j)))/dt,
./pkg/thsice/thsice_calc_thickn.F 1065 THSICE_CALC_THICKN 
          rq =  rhoi * 0.5 _d 0*(qicen(i,j,1)+qicen(i,j,2))
./pkg/thsice/thsice_calc_thickn.F 1068 THSICE_CALC_THICKN 
          freshe=(rhos*hSnow1(i,j)+rhoi*hIce(i,j))/dt
./pkg/thsice/thsice_calc_thickn.F 1069 THSICE_CALC_THICKN 
          salte=(rhoi*hIce(i,j)*saltIce)/dt
./pkg/thsice/thsice_calc_thickn.F 395 THSICE_CALC_THICKN 
         mwater0(i,j) = rhos*hSnow1(i,j) + rhoi*hIce(i,j)
./pkg/thsice/thsice_calc_thickn.F 396 THSICE_CALC_THICKN 
         msalt0 (i,j) = rhoi*hIce(i,j)*saltIce
./pkg/thsice/thsice_calc_thickn.F 537 THSICE_CALC_THICKN 
           rq =  rhoi * qicen(i,j,k)
./pkg/thsice/thsice_calc_thickn.F 570 THSICE_CALC_THICKN 
         dhi = -ebot(i,j) / (qbot * rhoi)
./pkg/thsice/thsice_calc_thickn.F 581 THSICE_CALC_THICKN 
         frzSeaWat(i,j) = rhoi*dhi/dt
./pkg/thsice/thsice_calc_thickn.F 617 THSICE_CALC_THICKN 
          rq =  rhoi * qicen(i,j,k)
./pkg/thsice/thsice_calc_thickn.F 675 THSICE_CALC_THICKN 
     &         - rhoi*qicen(i,j,1)*hnew(i,j,1)
./pkg/thsice/thsice_calc_thickn.F 676 THSICE_CALC_THICKN 
     &         - rhoi*qicen(i,j,2)*hnew(i,j,2)
./pkg/thsice/thsice_calc_thickn.F 702 THSICE_CALC_THICKN 
     &        - (rhos*hSnow1(i,j)+rhoi*hIce(i,j)))/dt
./pkg/thsice/thsice_calc_thickn.F 793 THSICE_CALC_THICKN 
             dhi = evapLoc(i,j)/rhoi*dt
./pkg/thsice/thsice_calc_thickn.F 795 THSICE_CALC_THICKN 
              evapLoc(i,j)=evapLoc(i,j)-hnew(i,j,k)*rhoi/dt
./pkg/thsice/thsice_calc_thickn.F 797 THSICE_CALC_THICKN 
     &             - hnew(i,j,k)*rhoi*(qicen(i,j,k)-Lfresh)
./pkg/thsice/thsice_calc_thickn.F 842 THSICE_CALC_THICKN 
     &          + (rhos*hSnow1(i,j) + rhoi*hIce(i,j))/dt
./pkg/thsice/thsice_calc_thickn.F 844 THSICE_CALC_THICKN 
     &          - rhoi*qicen(i,j,1)*hnew(i,j,1)
./pkg/thsice/thsice_calc_thickn.F 845 THSICE_CALC_THICKN 
     &          - rhoi*qicen(i,j,2)*hnew(i,j,2)
./pkg/thsice/thsice_calc_thickn.F 911 THSICE_CALC_THICKN 
           dhs = (hSnow1(i,j) - hIce(i,j)*floodFac) * rhoi / rhosw
./pkg/thsice/thsice_calc_thickn.F 913 THSICE_CALC_THICKN 
           dhi = dhs * rhos / rhoi
./pkg/thsice/thsice_calc_thickn.F 914 THSICE_CALC_THICKN 
           rqh = rhoi*qicen(i,j,1)*hnew(i,j,1) + rhos*qsnow*dhs
./pkg/thsice/thsice_calc_thickn.F 916 THSICE_CALC_THICKN 
           qicen(i,j,1)   = rqh / (rhoi*hnew(i,j,1))
./pkg/thsice/thsice_calc_thickn.F 929 THSICE_CALC_THICKN 
           frw2oc(i,j) = frw2oc(i,j) + chi*rhoi/dt
./pkg/thsice/thsice_check_conserv.F 68 THSICE_CHECK_CONSERV 
     &            -rhoi*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_check_conserv.F 70 THSICE_CHECK_CONSERV 
          dWater = rhos*snowheight(i,j,bi,bj)+rhoi*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_check_conserv.F 71 THSICE_CHECK_CONSERV 
          dSalt =  rhoi*iceHeight(i,j,bi,bj)*saltice
./pkg/thsice/thsice_check_conserv.F 77 THSICE_CHECK_CONSERV 
     &               + rhoi*hIce*(qicen(1)+qicen(2))*0.5
./pkg/thsice/thsice_check_conserv.F 80 THSICE_CHECK_CONSERV 
     &     - compact*( rhos*hSnow + rhoi*hIce )
./pkg/thsice/thsice_check_conserv.F 82 THSICE_CHECK_CONSERV 
     &     - compact* rhoi*hIce*saltice
./pkg/thsice/thsice_diffusion.F 78 THSICE_DIFFUSION 
     &                    +rhoi*iceHeight(i,j,bi,bj) )
./pkg/thsice/thsice_do_advect.F 116 THSICE_DO_ADVECT 
     &                           + iceHeight(i,j,bi,bj)*rhoi
./pkg/thsice/thsice_extend.F 190 THSICE_EXTEND 
        qicAv = rhoi*(qicen(1)+qicen(2))*0.5 _d 0
./pkg/thsice/thsice_extend.F 223 THSICE_EXTEND 
        frw2oc(i,j)= -rhoi*iceFormed/deltaTice
./pkg/thsice/thsice_extend.F 224 THSICE_EXTEND 
        fsalt(i,j)= -(rhoi*saltIce)*iceFormed/deltaTice
./pkg/thsice/thsice_ini_vars.F 180 THSICE_INI_VARS 
     &          + iceHeight(i,j,bi,bj)*rhoi
./pkg/thsice/thsice_main.F 231 THSICE_MAIN 
     &                             + iceHeight(i,j,bi,bj)*rhoi
./pkg/thsice/thsice_monitor.F 256 THSICE_MONITOR 
        theEnergy = theEnergy -rhoi*(theMean1+theMean2)*theVolG/2
./pkg/thsice/thsice_readparms.F 109 THSICE_READPARMS 
      rhoi     = 900. _d 0
./pkg/thsice/thsice_readparms.F 234 THSICE_READPARMS 
      floodFac = (rhosw - rhoi)/rhos
./pkg/thsice/thsice_readparms.F 292 THSICE_READPARMS 
      WRITE(iUnit,fmtR) 'ThSI:', 'rhoi        =', rhoi
./pkg/thsice/thsice_readparms.F 52 THSICE_READPARMS 
     &  rhos, rhoi, rhosw, rhofw,
./pkg/thsice/thsice_solve4temp.F 324 THSICE_SOLVE4TEMP 
          a10(i,j) = rhoi*cpIce *hIce(i,j)/(2. _d 0*dt) +
./pkg/thsice/thsice_solve4temp.F 325 THSICE_SOLVE4TEMP 
     &          k32*( 4. _d 0*dt*k32 + rhoi*cpIce *hIce(i,j) )
./pkg/thsice/thsice_solve4temp.F 326 THSICE_SOLVE4TEMP 
     &           / ( 6. _d 0*dt*k32 + rhoi*cpIce *hIce(i,j) )
./pkg/thsice/thsice_solve4temp.F 328 THSICE_SOLVE4TEMP 
     &          ( rhoi*cpIce*tIc1(i,j) + rhoi*Lfresh*Tmlt1/tIc1(i,j) )
./pkg/thsice/thsice_solve4temp.F 331 THSICE_SOLVE4TEMP 
     &               +rhoi*cpIce*hIce(i,j)*tIc2(i,j) )
./pkg/thsice/thsice_solve4temp.F 332 THSICE_SOLVE4TEMP 
     &           / ( 6. _d 0*dt*k32 + rhoi*cpIce *hIce(i,j) )
./pkg/thsice/thsice_solve4temp.F 334 THSICE_SOLVE4TEMP 
          c10(i,j) = rhoi*Lfresh*hIce(i,j)*Tmlt1 / (2. _d 0*dt)
./pkg/thsice/thsice_solve4temp.F 577 THSICE_SOLVE4TEMP 
     &                 + rhoi*cpIce*hIce(i,j)*tIc2(i,j))
./pkg/thsice/thsice_solve4temp.F 578 THSICE_SOLVE4TEMP 
     &               /(6. _d 0*dt*k32 + rhoi*cpIce*hIce(i,j))
./pkg/thsice/thsice_step_fwd.F 417 THSICE_STEP_FWD 
     &                           + iceHeight(i,j,bi,bj)*rhoi
./pkg/atm_compon_interf/atm_store_thsice.F 67 ATM_STORE_THSICE 
     &                    + iceHeight(i,j,bi,bj)*rhoi