/[MITgcm]/MITgcm/pkg/seaice/seaice_solve4temp.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_solve4temp.F

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

revision 1.28 by jmc, Mon Feb 6 23:36:40 2012 UTC revision 1.29 by mlosch, Tue Feb 7 14:01:10 2012 UTC
# Line 519  C     Update fluxes (consistent with the Line 519  C     Update fluxes (consistent with the
519  c        ELSEIF ( postSolvTempIter.EQ.0 ) THEN  c        ELSEIF ( postSolvTempIter.EQ.0 ) THEN
520  C     Take fluxes from last iteration  C     Take fluxes from last iteration
521    
          ELSEIF ( postSolvTempIter.NE.0 ) THEN  
            STOP 'SEAICE_SOLVE4TEMP: invalid postSolvTempIter'  
522           ENDIF           ENDIF
523    
524  C     Fresh water flux (kg/m^2/s) from latent heat of sublimation.  C     Fresh water flux (kg/m^2/s) from latent heat of sublimation.

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

  ViewVC Help
Powered by ViewVC 1.1.22