Symbol Description Uses
IcePenetSW short wave heat flux transmitted through ice (+=upward) 6


File Line number Procedure Code
./pkg/seaice/seaice_solve4temp.F 19 SEAICE_SOLVE4TEMP 
     O   F_ia, IcePenetSW,
./pkg/seaice/seaice_solve4temp.F 223 SEAICE_SOLVE4TEMP 
        IcePenetSW(I,J)= 0. _d 0
./pkg/seaice/seaice_solve4temp.F 314 SEAICE_SOLVE4TEMP 
         IcePenetSW(I,J) = -(1.0 _d 0 - ALB(I,J))
./pkg/seaice/seaice_solve4temp.F 477 SEAICE_SOLVE4TEMP 
          IcePenetSW(I,J)= 0. _d 0
./pkg/seaice/seaice_solve4temp.F 555 SEAICE_SOLVE4TEMP 
     &         SWDOWN(I,J,bi,bj), IcePenetSW(I,J)
./pkg/seaice/seaice_solve4temp.F 80 SEAICE_SOLVE4TEMP 
      _RL IcePenetSW  (1:sNx,1:sNy)