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



File Line number Procedure Code
./pkg/thsice/thsice_solve4temp.F 141 THSICE_SOLVE4TEMP
      fswocn = fswpen * exp(-ksolar*hi)
./pkg/thsice/THSICE_PARAMS.h 103 NO PROCEDURE
      _RL  ksolar
./pkg/thsice/THSICE_PARAMS.h 75 NO PROCEDURE
     &  i0, ksolar,
./pkg/thsice/thsice_readparms.F 105 THSICE_READPARMS
      ksolar   = 1.5 _d 0
./pkg/thsice/thsice_readparms.F 218 THSICE_READPARMS
      WRITE(iUnit,*) 'ThSI: ksolar  =',ksolar
./pkg/thsice/thsice_readparms.F 54 THSICE_READPARMS
     &  i0, ksolar,