Symbol Description Uses
rhoiw ocean-ice density difference (kg/m^3) 6


File Line number Procedure Code
./pkg/thsice/THSICE_PARAMS.h 69 NO PROCEDURE 
     &  rhos, rhoi, rhosw, rhofw, rhoiw,
./pkg/thsice/THSICE_PARAMS.h 86 NO PROCEDURE 
      _RL  rhoiw
./pkg/thsice/thsice_calc_thickn.F 431 THSICE_CALC_THICKN 
      if ( hs .gt. hi*rhoiw/rhos ) then
./pkg/thsice/thsice_calc_thickn.F 433 THSICE_CALC_THICKN 
         dhi = (hs * rhos - hi * rhoiw) / rhosw
./pkg/thsice/thsice_readparms.F 171 THSICE_READPARMS 
      rhoiw = rhosw - rhoi
./pkg/thsice/thsice_readparms.F 201 THSICE_READPARMS 
      WRITE(iUnit,*) 'ThSI: rhoiw   =',rhoiw