/[MITgcm]/MITgcm_contrib/dgoldberg/streamice/streamice_solo_timestep.F
ViewVC logotype

Diff of /MITgcm_contrib/dgoldberg/streamice/streamice_solo_timestep.F

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

revision 1.1 by heimbach, Thu Mar 29 15:59:21 2012 UTC revision 1.2 by dgoldberg, Thu Jul 19 18:46:56 2012 UTC
# Line 133  c************************************** Line 133  c**************************************
133    
134                
135    
       CALL STREAMICE_ADVECT_THICKNESS ( myThid, deltaT )  
136    
137          
138    
139  !       if (time_step_int .gt. 1000) then  !       if (time_step_int .gt. 1000) then
140    
# Line 151  c************************************** Line 150  c**************************************
150        CALL STREAMICE_VEL_SOLVE( myThid )        CALL STREAMICE_VEL_SOLVE( myThid )
151  !       endif  !       endif
152    
153          
154          CALL STREAMICE_ADVECT_THICKNESS ( myThid, deltaT )  
155          
156    
157  !       enddo  !       enddo
158    
159    !       CALL STREAMICE_VELMASK_UPD (myThid)
160    !       CALL STREAMICE_UPD_FFRAC_UNCOUPLED ( myThid )
161    !       CALL STREAMICE_VEL_SOLVE( myThid )
162    
163  !       modelEnd = myTime.EQ.endTime .OR. myIter.EQ.nEndIter  !       modelEnd = myTime.EQ.endTime .OR. myIter.EQ.nEndIter
164    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22