/[MITgcm]/MITgcm/pkg/thsice/thsice_solve4temp.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_solve4temp.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by jmc, Wed Apr 7 23:40:34 2004 UTC revision 1.2 by jmc, Sun Apr 18 22:06:14 2004 UTC
# Line 282  C Compute final flux values at surfaces. Line 282  C Compute final flux values at surfaces.
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
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22