/[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.3 by dgoldberg, Thu Jul 26 16:13:18 2012 UTC
# Line 74  c************************************** Line 74  c**************************************
74    
75  #endif  #endif
76    
 !       PRINT *, "ICE STREAM TIMESTEP ", iLoop, "; ",  
 !      &  Time/86400/365, " years"  
77    
78  !       do while (time_step_remain .gt. 0. _d 0)  !       do while (time_step_remain .gt. 0. _d 0)
79  !  !
# Line 133  c************************************** Line 131  c**************************************
131    
132                
133    
       CALL STREAMICE_ADVECT_THICKNESS ( myThid, deltaT )  
134    
135          
136    
137  !       if (time_step_int .gt. 1000) then  !       if (time_step_int .gt. 1000) then
138    
# Line 151  c************************************** Line 148  c**************************************
148        CALL STREAMICE_VEL_SOLVE( myThid )        CALL STREAMICE_VEL_SOLVE( myThid )
149  !       endif  !       endif
150    
151          
152          CALL STREAMICE_ADVECT_THICKNESS ( myThid, deltaT )  
153          
154    
155  !       enddo  !       enddo
156    
157    !       CALL STREAMICE_VELMASK_UPD (myThid)
158    !       CALL STREAMICE_UPD_FFRAC_UNCOUPLED ( myThid )
159    !       CALL STREAMICE_VEL_SOLVE( myThid )
160    
161  !       modelEnd = myTime.EQ.endTime .OR. myIter.EQ.nEndIter  !       modelEnd = myTime.EQ.endTime .OR. myIter.EQ.nEndIter
162    
# Line 173  c************************************** Line 175  c**************************************
175  !  !
176  !  !
177  !       IF ( useDiagnostics ) THEN  !       IF ( useDiagnostics ) THEN
 !       PRINT *, "CALLING FILL DIAGNOSTICS"  
178  !        CALL DIAGNOSTICS_FILL(U_streamice,'SI_Uvel ',  !        CALL DIAGNOSTICS_FILL(U_streamice,'SI_Uvel ',
179  !      &      0,1,0,1,1,myThid)  !      &      0,1,0,1,1,myThid)
180  !        CALL DIAGNOSTICS_FILL(V_streamice,'SI_Vvel ',  !        CALL DIAGNOSTICS_FILL(V_streamice,'SI_Vvel ',
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22