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

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

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

revision 1.6 by jmc, Wed Oct 18 21:07:03 2006 UTC revision 1.7 by jmc, Mon Oct 1 13:38:08 2007 UTC
# Line 71  cph      IF ( .NOT.stepFwd_oceMxL ) RETU Line 71  cph      IF ( .NOT.stepFwd_oceMxL ) RETU
71    
72  C--    add heat flux and fresh-water + salt flux :  C--    add heat flux and fresh-water + salt flux :
73         dtFac   = ocean_deltaT/rhosw         dtFac   = ocean_deltaT/rhosw
74         fwFac   = ocean_deltaT*sMxL_default*rhofw/rhosw         fwFac   = ocean_deltaT*sMxL_default/rhosw
75         heatFac = ocean_deltaT/(cpwater*rhosw)         heatFac = ocean_deltaT/(cpwater*rhosw)
76         DO j=1,sNy         DO j=1,sNy
77          DO i=1,sNx          DO i=1,sNx
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22