Symbol Description Uses
evpAtm evaporation to the atmosphere [kg/m2/s] (>0 if evaporate) 6


File Line number Procedure Code
./pkg/thsice/thsice_solve4temp.F 114 THSICE_SOLVE4TEMP 
      _RL evpAtm (siLo:siHi,sjLo:sjHi)
./pkg/thsice/thsice_solve4temp.F 16 THSICE_SOLVE4TEMP 
     O                  sHeat, flxCnB, flxAtm, evpAtm,
./pkg/thsice/thsice_solve4temp.F 454 THSICE_SOLVE4TEMP 
        evpAtm(i,j) = evap + dEvdT*dTsf
./pkg/thsice/thsice_solve4temp.F 457 THSICE_SOLVE4TEMP 
        evpAtm(i,j) = 0.
./pkg/thsice/thsice_solve4temp.F 462 THSICE_SOLVE4TEMP 
     &                    + df0dT*dTsf + evpAtm(i,j)*Lfresh
./pkg/thsice/thsice_solve4temp.F 513 THSICE_SOLVE4TEMP 
     &           flxAtm(i,j), evpAtm(i,j), netSW, flxSW(i,j)