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 119 THSICE_SOLVE4TEMP 
      _RL evpAtm (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/thsice/thsice_solve4temp.F 21 THSICE_SOLVE4TEMP 
     O                  sHeat, flxCnB, flxAtm, evpAtm,
./pkg/thsice/thsice_solve4temp.F 595 THSICE_SOLVE4TEMP 
            evpAtm(i,j) = evapT(i,j) + dEvdT(i,j)*dTsrf1(i,j)
./pkg/thsice/thsice_solve4temp.F 599 THSICE_SOLVE4TEMP 
            evpAtm(i,j) = 0.
./pkg/thsice/thsice_solve4temp.F 605 THSICE_SOLVE4TEMP 
     &                + dFlxdT(i,j)*dTsrf1(i,j) + evpAtm(i,j)*Lfresh
./pkg/thsice/thsice_solve4temp.F 638 THSICE_SOLVE4TEMP 
     &           flxAtm(i,j), evpAtm(i,j), netSW, flxSW(i,j)