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


File Line number Procedure Code
./pkg/seaice/SEAICE_PARAMS.h 394 NO PROCEDURE 
      _RL SEAICE_rhoAir, SEAICE_rhoIce, SEAICE_rhoSnow, ICE2WATR
./pkg/seaice/SEAICE_PARAMS.h 441 NO PROCEDURE 
     &    SEAICE_rhoAir, SEAICE_rhoIce, SEAICE_rhoSnow, ICE2WATR,
./pkg/seaice/dynsolver.F 63 DYNSOLVER 
      RHOICE=SEAICE_rhoIce
./pkg/seaice/seaice_advdiff.F 491 SEAICE_ADVDIFF 
     &  *HEFFM(I,J,bi,bj)/SEAICE_deltaTtherm*SEAICE_rhoIce
./pkg/seaice/seaice_calc_ice_strength.F 165 SEAICE_CALC_ICE_STRENGTH 
       tmpscal1 = SEAICE_cf*0.5*gravity*(rhoConst-SEAICE_rhoIce)
./pkg/seaice/seaice_calc_ice_strength.F 166 SEAICE_CALC_ICE_STRENGTH 
     &      * SEAICE_rhoIce/rhoConst
./pkg/seaice/seaice_dynsolver.F 114 SEAICE_DYNSOLVER 
          seaiceMassC(I,J,bi,bj)=SEAICE_rhoIce*HEFF(i,j,bi,bj)
./pkg/seaice/seaice_dynsolver.F 115 SEAICE_DYNSOLVER 
          seaiceMassU(I,J,bi,bj)=SEAICE_rhoIce*HALF*(
./pkg/seaice/seaice_dynsolver.F 117 SEAICE_DYNSOLVER 
          seaiceMassV(I,J,bi,bj)=SEAICE_rhoIce*HALF*(
./pkg/seaice/seaice_freedrift.F 86 SEAICE_FREEDRIFT 
           mIceCor=SEAICE_rhoIce*HEFF(i,j,bi,bj)*_fCori(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1683 SEAICE_GROWTH 
     &               +  tmpscal3*SEAICE_rhoIce)
./pkg/seaice/seaice_growth.F 1695 SEAICE_GROWTH 
     &              +HEFF(I,J,bi,bj)*SEAICE_rhoIce)*recip_rhoConst
./pkg/seaice/seaice_growth.F 1961 SEAICE_GROWTH 
     &            * recip_deltaTtherm * SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 1993 SEAICE_GROWTH 
     &            * recip_deltaTtherm * SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 2024 SEAICE_GROWTH 
     &            *tmpscal1*SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 2044 SEAICE_GROWTH 
     &            *tmpscal1*SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 2082 SEAICE_GROWTH 
     &            *tmpscal1*SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 2358 SEAICE_GROWTH 
     &     + a_FWbySublim(I,J) * SEAICE_rhoIce * recip_deltaTtherm
./pkg/seaice/seaice_growth.F 2393 SEAICE_GROWTH 
     &     - a_FWbySublim(I,J) * SEAICE_rhoIce * recip_deltaTtherm
./pkg/seaice/seaice_growth.F 2418 SEAICE_GROWTH 
           tmpscal1 = HEFF(I,J,bi,bj)*SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 2422 SEAICE_GROWTH 
           tmpscal2 = HEFF(I,J,bi,bj)*SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 2516 SEAICE_GROWTH 
     &       a_FWbySublim(I,J) * SEAICE_rhoIce * recip_deltaTtherm
./pkg/seaice/seaice_growth.F 2527 SEAICE_GROWTH 
     &       * SEAICE_rhoIce * recip_deltaTtherm
./pkg/seaice/seaice_growth.F 2531 SEAICE_GROWTH 
     &       * SEAICE_rhoIce * recip_deltaTtherm
./pkg/seaice/seaice_growth.F 335 SEAICE_GROWTH 
      recip_rhoIce      = ONE / SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 341 SEAICE_GROWTH 
      ICE2SNOW     = SEAICE_rhoIce/SEAICE_rhoSnow
./pkg/seaice/seaice_growth.F 345 SEAICE_GROWTH 
      QI           = SEAICE_rhoIce*SEAICE_lhFusion
./pkg/seaice/seaice_growth.F 361 SEAICE_GROWTH 
      convertPRECIP2HI=SEAICE_deltaTtherm*rhoConstFresh/SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 682 SEAICE_GROWTH 
     &           (HEFFITDpreTH(I,J,IT)*SEAICE_rhoIce +
./pkg/seaice/seaice_growth.F 696 SEAICE_GROWTH 
     &          (HEFFpreTH(I,J) * SEAICE_rhoIce +
./pkg/seaice/seaice_init_varia.F 589 SEAICE_INIT_VARIA 
     &            SEAICE_rhoIce*SEAICE_saltFrac
./pkg/seaice/seaice_init_varia.F 684 SEAICE_INIT_VARIA 
           sIceLoad(i,j,bi,bj) = HEFF(i,j,bi,bj)*SEAICE_rhoIce
./pkg/seaice/seaice_readparms.F 121 SEAICE_READPARMS 
     & SEAICE_rhoAir, SEAICE_rhoIce, SEAICE_rhoSnow, ICE2WATR,
./pkg/seaice/seaice_readparms.F 319 SEAICE_READPARMS 
      SEAICE_rhoIce      = 0.91   _d +03
./pkg/seaice/seaice_readparms.F 591 SEAICE_READPARMS 
      IF (ICE2WATR.EQ.UNSET_RL) ICE2WATR = SEAICE_rhoIce*recip_rhoConst
./pkg/seaice/seaice_summary.F 320 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 434 COST_GENCOST_SEAICEV4 
     &                 SEAICE_lhFusion*SEAICE_rhoIce )
./pkg/ecco/cost_gencost_seaicev4.F 461 COST_GENCOST_SEAICEV4 
     &                  SEAICE_lhFusion*SEAICE_rhoIce))