Symbol Description Uses
penetSWFrac 5


File Line number Procedure Code
./pkg/seaice/seaice_solve4temp.F 136 SEAICE_SOLVE4TEMP 
      _RL penetSWFrac
./pkg/seaice/seaice_solve4temp.F 312 SEAICE_SOLVE4TEMP 
          penetSWFrac = 0.0 _d 0
./pkg/seaice/seaice_solve4temp.F 314 SEAICE_SOLVE4TEMP 
          penetSWFrac = XIO*EXP(-1.5 _d 0 * HICE_ACTUAL(I,J))
./pkg/seaice/seaice_solve4temp.F 318 SEAICE_SOLVE4TEMP 
     &                    *penetSWFrac * SWDOWN(I,J,bi,bj)
./pkg/seaice/seaice_solve4temp.F 321 SEAICE_SOLVE4TEMP 
     &        *(1.0 _d 0 - penetSWFrac)* SWDOWN(I,J,bi,bj)