Symbol Description Uses
rhoi density of ice (kg/m^3) 49


File Line number Procedure Code
./pkg/thsice/thsice_solve4temp.F 166 THSICE_SOLVE4TEMP 
      a10 = rhoi*cpice *hi/(2. _d 0*dt) +
./pkg/thsice/thsice_solve4temp.F 167 THSICE_SOLVE4TEMP 
     &      k32 * (4. _d 0*dt*k32 + rhoi*cpice *hi)
./pkg/thsice/thsice_solve4temp.F 168 THSICE_SOLVE4TEMP 
     &       / (6. _d 0*dt*k32 + rhoi*cpice *hi)
./pkg/thsice/thsice_solve4temp.F 170 THSICE_SOLVE4TEMP 
     &      (rhoi*cpice*Tice(1)+rhoi*Lfresh*Tmlt1/Tice(1))
./pkg/thsice/thsice_solve4temp.F 172 THSICE_SOLVE4TEMP 
     &      - k32 * (4. _d 0*dt*k32*Tf+rhoi*cpice *hi*Tice(2))
./pkg/thsice/thsice_solve4temp.F 173 THSICE_SOLVE4TEMP 
     &       / (6. _d 0*dt*k32 + rhoi*cpice *hi) - fswint
./pkg/thsice/thsice_solve4temp.F 174 THSICE_SOLVE4TEMP 
      c1 = rhoi*Lfresh*hi*Tmlt1 / (2. _d 0*dt)
./pkg/thsice/thsice_solve4temp.F 275 THSICE_SOLVE4TEMP 
     &        + rhoi*cpice *hi*Tice(2))
./pkg/thsice/thsice_solve4temp.F 276 THSICE_SOLVE4TEMP 
     &         /(6. _d 0*dt*k32 + rhoi*cpice *hi)
./pkg/thsice/THSICE_PARAMS.h 69 NO PROCEDURE 
     &  rhos, rhoi, rhosw, rhofw, rhoiw,
./pkg/thsice/THSICE_PARAMS.h 83 NO PROCEDURE 
      _RL  rhoi
./pkg/thsice/thsice_calc_thickn.F 162 THSICE_CALC_THICKN 
      mwater0 = rhos*hs + rhoi*hi
./pkg/thsice/thsice_calc_thickn.F 163 THSICE_CALC_THICKN 
      msalt0  = rhoi*hi*saltice
./pkg/thsice/thsice_calc_thickn.F 245 THSICE_CALC_THICKN 
               rq =  rhoi * qicen(k)
./pkg/thsice/thsice_calc_thickn.F 272 THSICE_CALC_THICKN 
         dhi = -ebot / (qbot * rhoi)
./pkg/thsice/thsice_calc_thickn.F 280 THSICE_CALC_THICKN 
               rq =  rhoi * qicen(k)
./pkg/thsice/thsice_calc_thickn.F 325 THSICE_CALC_THICKN 
            esurp = esurp - rhoi*qicen(k)*hnew(k)
./pkg/thsice/thsice_calc_thickn.F 339 THSICE_CALC_THICKN 
      fresh = (mwater0 - (rhos*hs + rhoi*hi))/dt
./pkg/thsice/thsice_calc_thickn.F 380 THSICE_CALC_THICKN 
               dhi = evap/rhoi*dt
./pkg/thsice/thsice_calc_thickn.F 382 THSICE_CALC_THICKN 
                 evap=evap-hnew(k)*rhoi/dt
./pkg/thsice/thsice_calc_thickn.F 383 THSICE_CALC_THICKN 
                 esurp = esurp - hnew(k)*rhoi*(qicen(k)-Lfresh)
./pkg/thsice/thsice_calc_thickn.F 410 THSICE_CALC_THICKN 
         fresh = fresh + (rhos*hs + rhoi*hi)/dt
./pkg/thsice/thsice_calc_thickn.F 413 THSICE_CALC_THICKN 
            esurp = esurp - rhoi*qicen(k)*hnew(k)
./pkg/thsice/thsice_calc_thickn.F 434 THSICE_CALC_THICKN 
         dhs = dhi * rhoi / rhos
./pkg/thsice/thsice_calc_thickn.F 435 THSICE_CALC_THICKN 
         rqh = rhoi*qicen(1)*hnew(1) + rhos*qsnow*dhs
./pkg/thsice/thsice_calc_thickn.F 437 THSICE_CALC_THICKN 
         qicen(1) = rqh / (rhoi*hnew(1))
./pkg/thsice/thsice_calc_thickn.F 452 THSICE_CALC_THICKN 
         fresh = fresh + chi*rhoi/dt
./pkg/thsice/thsice_calc_thickn.F 506 THSICE_CALC_THICKN 
      fsalt = (msalt0 - rhoi*hi*saltice)/dt
./pkg/thsice/thsice_calc_thickn.F 509 THSICE_CALC_THICKN 
     &   (mwater0-(rhos*hs+rhoi*hi))/dt,evap,fresh,fsalt
./pkg/thsice/thsice_calc_thickn.F 519 THSICE_CALC_THICKN 
         rq =  rhoi * 0.5 _d 0*(qicen(1)+qicen(2))
./pkg/thsice/thsice_calc_thickn.F 522 THSICE_CALC_THICKN 
         freshe=(rhos*hs+rhoi*hi)/dt
./pkg/thsice/thsice_calc_thickn.F 523 THSICE_CALC_THICKN 
         salte=(rhoi*hi*saltice)/dt
./pkg/thsice/thsice_monitor.F 151 THSICE_MONITOR 
        theEnergy = theEnergy -rhoi*(theMean1+theMean2)*theVolG/2
./pkg/thsice/thsice_check_conserv.F 58 THSICE_CHECK_CONSERV 
     &            -rhoi*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_check_conserv.F 60 THSICE_CHECK_CONSERV 
          dWater = rhos*snowheight(i,j,bi,bj)+rhoi*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_check_conserv.F 61 THSICE_CHECK_CONSERV 
          dSalt =  rhoi*iceHeight(i,j,bi,bj)*saltice
./pkg/thsice/thsice_check_conserv.F 67 THSICE_CHECK_CONSERV 
     &               + rhoi*hIce*(qicen(1)+qicen(2))*0.5
./pkg/thsice/thsice_check_conserv.F 70 THSICE_CHECK_CONSERV 
     &     - compact*( rhos*hSnow + rhoi*hIce )
./pkg/thsice/thsice_check_conserv.F 72 THSICE_CHECK_CONSERV 
     &     - compact* rhoi*hIce*saltice
./pkg/thsice/thsice_readparms.F 171 THSICE_READPARMS 
      rhoiw = rhosw - rhoi
./pkg/thsice/thsice_readparms.F 198 THSICE_READPARMS 
      WRITE(iUnit,*) 'ThSI: rhoi    =',rhoi
./pkg/thsice/thsice_readparms.F 48 THSICE_READPARMS 
     &  rhos, rhoi, rhosw, rhofw,
./pkg/thsice/thsice_readparms.F 86 THSICE_READPARMS 
      rhoi     = 900. _d 0
./pkg/thsice/thsice_extend.F 110 THSICE_EXTEND 
        fresh=-(rhoi*iceThick)*newIceFrac/deltaTice
./pkg/thsice/thsice_extend.F 111 THSICE_EXTEND 
        fsalt=-(rhoi*iceThick*saltice)*newIceFrac/deltaTice
./pkg/thsice/thsice_extend.F 88 THSICE_EXTEND 
        qicAv = rhoi*(qicen(1)+qicen(2))*0.5 _d 0
./pkg/thsice/thsice_step_fwd.F 359 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