Symbol Description Uses
F_ia upward sea ice/snow surface heat flux to atmosphere (W/m^2) 24


File Line number Procedure Code
./pkg/seaice/seaice_budget_ice_if.F 10 SEAICE_BUDGET_ICE_IF 
     O     F_io_net,F_ia_net,F_ia, IcePenetSWFlux,
./pkg/seaice/seaice_budget_ice_if.F 132 SEAICE_BUDGET_ICE_IF 
        F_ia     (I,J) = 0.0 _d 0
./pkg/seaice/seaice_budget_ice_if.F 254 SEAICE_BUDGET_ICE_IF 
           F_ia(I,J)    = F_lwd(I,J) + F_swi(I,J) + F_lwu(I,J) +
./pkg/seaice/seaice_budget_ice_if.F 257 SEAICE_BUDGET_ICE_IF 
           tsurfLoc(I,J) = tsurfLoc(I,J) - F_ia(I,J) / dFiDTs1
./pkg/seaice/seaice_budget_ice_if.F 300 SEAICE_BUDGET_ICE_IF 
          F_ia(I,J)    = F_lwd(I,J) + F_swi(I,J) + F_lwu(I,J) +
./pkg/seaice/seaice_budget_ice_if.F 344 SEAICE_BUDGET_ICE_IF 
     &      F_io_net(I,J), F_ia_net(I,J), F_ia(I,J)
./pkg/seaice/seaice_budget_ice_if.F 52 SEAICE_BUDGET_ICE_IF 
      _RL F_ia       (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/seaice/seaice_growth_if.F 1113 SEAICE_GROWTH_IF 
     &                 i,j,F_ia(i,j),
./pkg/seaice/seaice_growth_if.F 146 SEAICE_GROWTH_IF 
      _RL F_ia     (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/seaice/seaice_growth_if.F 246 SEAICE_GROWTH_IF 
                  F_ia (I,J)      = 0.0
./pkg/seaice/seaice_growth_if.F 448 SEAICE_GROWTH_IF 
     O           F_io_net,F_ia_net,F_ia, QSWI,
./pkg/seaice/seaice_growth_if.F 462 SEAICE_GROWTH_IF 
                  F_ia (I,J)      = 0.0
./pkg/seaice/seaice_growth_if.F 476 SEAICE_GROWTH_IF 
                 print *,'sig: I,J,F_ia,F_ia_net',I,J,F_ia(I,J),
./pkg/seaice/seaice_solve4temp.F 15 SEAICE_SOLVE4TEMP 
     O   F_ia, IcePenetSWFlux,
./pkg/seaice/seaice_solve4temp.F 217 SEAICE_SOLVE4TEMP 
        F_ia     (I,J) = 0. _d 0
./pkg/seaice/seaice_solve4temp.F 463 SEAICE_SOLVE4TEMP 
          F_ia(I,J)  = F_lwd(I,J) + F_swi(I,J) + F_lwu(I,J) +
./pkg/seaice/seaice_solve4temp.F 486 SEAICE_SOLVE4TEMP 
     &          F_ia(I,J)
./pkg/seaice/seaice_solve4temp.F 501 SEAICE_SOLVE4TEMP 
          tsurfLoc(I,J) = tsurfLoc(I,J) - F_ia(I,J) / dFiDTs1
./pkg/seaice/seaice_solve4temp.F 537 SEAICE_SOLVE4TEMP 
         F_ia(I,J)=-A1(I,J)-A2(I,J)
./pkg/seaice/seaice_solve4temp.F 579 SEAICE_SOLVE4TEMP 
         F_ia(I,J)    = F_lwd(I,J) + F_swi(I,J) + F_lwu(I,J) +
./pkg/seaice/seaice_solve4temp.F 597 SEAICE_SOLVE4TEMP 
         F_ia(I,J)=-A1(I,J)-A2(I,J)
./pkg/seaice/seaice_solve4temp.F 608 SEAICE_SOLVE4TEMP 
          F_ia_net(I,J) = F_ia(I,J)
./pkg/seaice/seaice_solve4temp.F 652 SEAICE_SOLVE4TEMP 
     &         F_ia(I,J),
./pkg/seaice/seaice_solve4temp.F 72 SEAICE_SOLVE4TEMP 
      _RL F_ia           (1:sNx,1:sNy)