Symbol Description Uses
SEAICE_rhoIce density of sea ice (kg/m^3) 41


File Line number Procedure Code
./pkg/seaice/SEAICE_PARAMS.h 464 NO PROCEDURE 
      _RL SEAICE_rhoAir, SEAICE_rhoIce, SEAICE_rhoSnow, ICE2WATR
./pkg/seaice/SEAICE_PARAMS.h 518 NO PROCEDURE 
     &    SEAICE_rhoAir, SEAICE_rhoIce, SEAICE_rhoSnow, ICE2WATR,
./pkg/seaice/dynsolver.F 66 DYNSOLVER 
      RHOICE=SEAICE_rhoIce
./pkg/seaice/seaice_advdiff.F 494 SEAICE_ADVDIFF 
     &  *HEFFM(I,J,bi,bj)/SEAICE_deltaTtherm*SEAICE_rhoIce
./pkg/seaice/seaice_calc_ice_strength.F 168 SEAICE_CALC_ICE_STRENGTH 
       tmpscal1 = SEAICE_cf*0.5*gravity*(rhoConst-SEAICE_rhoIce)
./pkg/seaice/seaice_calc_ice_strength.F 169 SEAICE_CALC_ICE_STRENGTH 
     &      * SEAICE_rhoIce/rhoConst
./pkg/seaice/seaice_dynsolver.F 116 SEAICE_DYNSOLVER 
          seaiceMassC(I,J,bi,bj)=SEAICE_rhoIce*HEFF(i,j,bi,bj)
./pkg/seaice/seaice_dynsolver.F 117 SEAICE_DYNSOLVER 
          seaiceMassU(I,J,bi,bj)=SEAICE_rhoIce*HALF*(
./pkg/seaice/seaice_dynsolver.F 119 SEAICE_DYNSOLVER 
          seaiceMassV(I,J,bi,bj)=SEAICE_rhoIce*HALF*(
./pkg/seaice/seaice_freedrift.F 89 SEAICE_FREEDRIFT 
           mIceCor=SEAICE_rhoIce*HEFF(i,j,bi,bj)*_fCori(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1705 SEAICE_GROWTH 
     &               +  tmpscal3*SEAICE_rhoIce)
./pkg/seaice/seaice_growth.F 1717 SEAICE_GROWTH 
     &              +HEFF(I,J,bi,bj)*SEAICE_rhoIce)*recip_rhoConst
./pkg/seaice/seaice_growth.F 1999 SEAICE_GROWTH 
     &            * recip_deltaTtherm * SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 2031 SEAICE_GROWTH 
     &            * recip_deltaTtherm * SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 2062 SEAICE_GROWTH 
     &            *tmpscal1*SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 2082 SEAICE_GROWTH 
     &            *tmpscal1*SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 2120 SEAICE_GROWTH 
     &            *tmpscal1*SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 2396 SEAICE_GROWTH 
     &     + a_FWbySublim(I,J) * SEAICE_rhoIce * recip_deltaTtherm
./pkg/seaice/seaice_growth.F 2431 SEAICE_GROWTH 
     &     - a_FWbySublim(I,J) * SEAICE_rhoIce * recip_deltaTtherm
./pkg/seaice/seaice_growth.F 2458 SEAICE_GROWTH 
           tmpscal1 = HEFF(I,J,bi,bj)*SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 2462 SEAICE_GROWTH 
           tmpscal2 = HEFF(I,J,bi,bj)*SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 2556 SEAICE_GROWTH 
     &       a_FWbySublim(I,J) * SEAICE_rhoIce * recip_deltaTtherm
./pkg/seaice/seaice_growth.F 2567 SEAICE_GROWTH 
     &       * SEAICE_rhoIce * recip_deltaTtherm
./pkg/seaice/seaice_growth.F 2571 SEAICE_GROWTH 
     &       * SEAICE_rhoIce * recip_deltaTtherm
./pkg/seaice/seaice_growth.F 340 SEAICE_GROWTH 
      recip_rhoIce      = ONE / SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 346 SEAICE_GROWTH 
      ICE2SNOW     = SEAICE_rhoIce/SEAICE_rhoSnow
./pkg/seaice/seaice_growth.F 350 SEAICE_GROWTH 
      QI           = SEAICE_rhoIce*SEAICE_lhFusion
./pkg/seaice/seaice_growth.F 366 SEAICE_GROWTH 
      convertPRECIP2HI=SEAICE_deltaTtherm*rhoConstFresh/SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 700 SEAICE_GROWTH 
     &           (HEFFITDpreTH(I,J,IT)*SEAICE_rhoIce +
./pkg/seaice/seaice_growth.F 714 SEAICE_GROWTH 
     &          (HEFFpreTH(I,J) * SEAICE_rhoIce +
./pkg/seaice/seaice_init_varia.F 594 SEAICE_INIT_VARIA 
     &            SEAICE_rhoIce*SEAICE_saltFrac
./pkg/seaice/seaice_init_varia.F 688 SEAICE_INIT_VARIA 
           sIceLoad(i,j,bi,bj) = HEFF(i,j,bi,bj)*SEAICE_rhoIce
./pkg/seaice/seaice_readparms.F 139 SEAICE_READPARMS 
     & SEAICE_rhoAir, SEAICE_rhoIce, SEAICE_rhoSnow, ICE2WATR,
./pkg/seaice/seaice_readparms.F 361 SEAICE_READPARMS 
      SEAICE_rhoIce      = 0.91   _d +03
./pkg/seaice/seaice_readparms.F 676 SEAICE_READPARMS 
      IF (ICE2WATR.EQ.UNSET_RL) ICE2WATR = SEAICE_rhoIce*recip_rhoConst
./pkg/seaice/seaice_summary.F 396 SEAICE_SUMMARY 
      CALL WRITE_0D_RL( SEAICE_rhoIce     ,INDEX_NONE,
./pkg/seaice/seaice_tracer_phys.F 196 SEAICE_TRACER_PHYS 
        tmpscal1=-ONE/SEAICE_deltaTtherm*SEAICE_rhoIce
./pkg/seaice/seaice_tracer_phys.F 208 SEAICE_TRACER_PHYS 
     &      *HEFFM(I,J,bi,bj)/SEAICE_deltaTtherm*SEAICE_rhoIce
./pkg/seaice/seaice_tracer_phys.F 223 SEAICE_TRACER_PHYS 
     &  *HEFFM(I,J,bi,bj)/SEAICE_deltaTtherm*SEAICE_rhoIce
./pkg/seaice/seaice_tracer_phys.F 245 SEAICE_TRACER_PHYS 
          DIAGarray(I,J,3+(iTr-1)*5) = HSALT(i,j,bi,bj)/SEAICE_rhoIce
./pkg/ecco/cost_gencost_seaicev4.F 436 GET_EXCONC_DECONC 
      const2=SEAICE_lhFusion*SEAICE_rhoIce