Symbol Description Uses
ksolar bulk solar abs coeff of sea ice (m-1) 6



File Line number Procedure Code
./pkg/thsice/THSICE_PARAMS.h 106 NO PROCEDURE
      _RL  ksolar
./pkg/thsice/THSICE_PARAMS.h 77 NO PROCEDURE
     &  i0, ksolar,
./pkg/thsice/thsice_solve4temp.F 195 THSICE_SOLVE4TEMP
      fswocn = fswpen * exp(-ksolar*hi)
./pkg/thsice/thsice_readparms.F 107 THSICE_READPARMS
      ksolar   = 1.5 _d 0
./pkg/thsice/thsice_readparms.F 238 THSICE_READPARMS
      WRITE(iUnit,*) 'ThSI: ksolar  =',ksolar
./pkg/thsice/thsice_readparms.F 55 THSICE_READPARMS
     &  i0, ksolar,