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


File Line number Procedure Code
./pkg/seaice/seaice_growth_if.F 200 SEAICE_GROWTH_IF 
      QI = 1/rhoi/Li
./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 457 THSICE_ADVDIFF 
     &                             +rhoi*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 459 THSICE_ADVDIFF 
            oceSflx(i,j,bi,bj) =    rhoi*iceHeight(i,j,bi,bj)*saltIce
./pkg/thsice/thsice_advdiff.F 462 THSICE_ADVDIFF 
     &                             +rhoi*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_calc_thickn.F 378 THSICE_CALC_THICKN 
      mwater0 = rhos*hs + rhoi*hi
./pkg/thsice/thsice_calc_thickn.F 379 THSICE_CALC_THICKN 
      msalt0  = rhoi*hi*saltIce
./pkg/thsice/thsice_calc_thickn.F 494 THSICE_CALC_THICKN 
               rq =  rhoi * qicen(k)
./pkg/thsice/thsice_calc_thickn.F 521 THSICE_CALC_THICKN 
         dhi = -ebot / (qbot * rhoi)
./pkg/thsice/thsice_calc_thickn.F 549 THSICE_CALC_THICKN 
               rq =  rhoi * qicen(k)
./pkg/thsice/thsice_calc_thickn.F 596 THSICE_CALC_THICKN 
            esurp = esurp - rhoi*qicen(k)*hnew(k)
./pkg/thsice/thsice_calc_thickn.F 613 THSICE_CALC_THICKN 
      fresh = (mwater0 - (rhos*hs + rhoi*hi))/dt
./pkg/thsice/thsice_calc_thickn.F 676 THSICE_CALC_THICKN 
               dhi = evap/rhoi*dt
./pkg/thsice/thsice_calc_thickn.F 678 THSICE_CALC_THICKN 
                 evap=evap-hnew(k)*rhoi/dt
./pkg/thsice/thsice_calc_thickn.F 679 THSICE_CALC_THICKN 
                 esurp = esurp - hnew(k)*rhoi*(qicen(k)-Lfresh)
./pkg/thsice/thsice_calc_thickn.F 709 THSICE_CALC_THICKN 
         fresh = fresh + (rhos*hs + rhoi*hi)/dt
./pkg/thsice/thsice_calc_thickn.F 712 THSICE_CALC_THICKN 
            esurp = esurp - rhoi*qicen(k)*hnew(k)
./pkg/thsice/thsice_calc_thickn.F 748 THSICE_CALC_THICKN 
         dhs = (hs - hi*floodFac) * rhoi / rhosw
./pkg/thsice/thsice_calc_thickn.F 750 THSICE_CALC_THICKN 
         dhi = dhs * rhos / rhoi
./pkg/thsice/thsice_calc_thickn.F 754 THSICE_CALC_THICKN 
         rqh = rhoi*qicen(1)*hnew(1) + rhos*qsnow*dhs
./pkg/thsice/thsice_calc_thickn.F 756 THSICE_CALC_THICKN 
         qicen(1) = rqh / (rhoi*hnew(1))
./pkg/thsice/thsice_calc_thickn.F 771 THSICE_CALC_THICKN 
         fresh = fresh + chi*rhoi/dt
./pkg/thsice/thsice_calc_thickn.F 834 THSICE_CALC_THICKN 
      fsalt(i,j) = (msalt0 - rhoi*hi*saltIce)/dt
./pkg/thsice/thsice_calc_thickn.F 839 THSICE_CALC_THICKN 
     &   (mwater0-(rhos*hs+rhoi*hi))/dt,evap,fresh,fsalt(i,j)
./pkg/thsice/thsice_calc_thickn.F 854 THSICE_CALC_THICKN 
         rq =  rhoi * 0.5 _d 0*(qicen(1)+qicen(2))
./pkg/thsice/thsice_calc_thickn.F 857 THSICE_CALC_THICKN 
         freshe=(rhos*hs+rhoi*hi)/dt
./pkg/thsice/thsice_calc_thickn.F 858 THSICE_CALC_THICKN 
         salte=(rhoi*hi*saltIce)/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_extend.F 175 THSICE_EXTEND 
        qicAv = rhoi*(qicen(1)+qicen(2))*0.5 _d 0
./pkg/thsice/thsice_extend.F 208 THSICE_EXTEND 
        frw2oc(i,j)= -rhoi*iceFormed/deltaTice
./pkg/thsice/thsice_extend.F 209 THSICE_EXTEND 
        fsalt(i,j)= -(rhoi*saltIce)*iceFormed/deltaTice
./pkg/thsice/thsice_ini_vars.F 178 THSICE_INI_VARS 
     &          + iceHeight(i,j,bi,bj)*rhoi
./pkg/thsice/thsice_monitor.F 255 THSICE_MONITOR 
        theEnergy = theEnergy -rhoi*(theMean1+theMean2)*theVolG/2
./pkg/thsice/thsice_readparms.F 196 THSICE_READPARMS 
      floodFac = (rhosw - rhoi)/rhos
./pkg/thsice/thsice_readparms.F 257 THSICE_READPARMS 
      WRITE(iUnit,*) 'ThSI: rhoi      =',rhoi
./pkg/thsice/thsice_readparms.F 49 THSICE_READPARMS 
     &  rhos, rhoi, rhosw, rhofw,
./pkg/thsice/thsice_readparms.F 88 THSICE_READPARMS 
      rhoi     = 900. _d 0
./pkg/thsice/thsice_solve4temp.F 290 THSICE_SOLVE4TEMP 
      a10 = rhoi*cpIce *hi/(2. _d 0*dt) +
./pkg/thsice/thsice_solve4temp.F 291 THSICE_SOLVE4TEMP 
     &      k32 * (4. _d 0*dt*k32 + rhoi*cpIce *hi)
./pkg/thsice/thsice_solve4temp.F 292 THSICE_SOLVE4TEMP 
     &       / (6. _d 0*dt*k32 + rhoi*cpIce *hi)
./pkg/thsice/thsice_solve4temp.F 294 THSICE_SOLVE4TEMP 
     &      (rhoi*cpIce*Tice(1)+rhoi*Lfresh*Tmlt1/Tice(1))
./pkg/thsice/thsice_solve4temp.F 296 THSICE_SOLVE4TEMP 
     &      - k32 * (4. _d 0*dt*k32*Tf+rhoi*cpIce *hi*Tice(2))
./pkg/thsice/thsice_solve4temp.F 297 THSICE_SOLVE4TEMP 
     &       / (6. _d 0*dt*k32 + rhoi*cpIce *hi) - fswint
./pkg/thsice/thsice_solve4temp.F 298 THSICE_SOLVE4TEMP 
      c1 = rhoi*Lfresh*hi*Tmlt1 / (2. _d 0*dt)
./pkg/thsice/thsice_solve4temp.F 440 THSICE_SOLVE4TEMP 
     &        + rhoi*cpIce *hi*Tice(2))
./pkg/thsice/thsice_solve4temp.F 441 THSICE_SOLVE4TEMP 
     &         /(6. _d 0*dt*k32 + rhoi*cpIce *hi)
./pkg/thsice/thsice_step_fwd.F 366 THSICE_STEP_FWD 
     &                         + iceHeight(i,j,bi,bj)*rhoi
./pkg/aim_compon_interf/atm_store_seaice.F 64 ATM_STORE_SEAICE 
     &                    + iceHeight(i,j,bi,bj)*rhoi