282 |
IF ( useBlkFlx ) THEN |
IF ( useBlkFlx ) THEN |
283 |
evpAtm = evap |
evpAtm = evap |
284 |
C-- needs to update also Evap (Tsf changes) since Latent heat has been updated |
C-- needs to update also Evap (Tsf changes) since Latent heat has been updated |
285 |
C Note: this fix affects the results and is postponed for now. |
evpAtm = evap + dEvdT*dTsf |
|
c evpAtm = evap + dEvdT*dTsf |
|
286 |
C- energy flux to Atmos: use net short-wave flux at surf. and |
C- energy flux to Atmos: use net short-wave flux at surf. and |
287 |
C use latent heat = Lvap (energy=0 for liq. water at 0.oC) |
C use latent heat = Lvap (energy=0 for liq. water at 0.oC) |
288 |
flxAtm = flxSW + flxExceptSw + df0dT*dTsf |
flxAtm = flxSW + flxExceptSw + df0dT*dTsf |