/[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.4 by heimbach, Fri Jul 27 21:07:13 2012 UTC revision 1.7 by dgoldberg, Thu Sep 27 20:29:01 2012 UTC
# Line 67  c************************************** Line 67  c**************************************
67            zu_old_si(i,j,bi,bj) = 0. _d 0            zu_old_si(i,j,bi,bj) = 0. _d 0
68            zv_old_si(i,j,bi,bj) = 0. _d 0            zv_old_si(i,j,bi,bj) = 0. _d 0
69            h_after_uflux_si(i,j,bi,bj) = 0. _d 0            h_after_uflux_si(i,j,bi,bj) = 0. _d 0
70    #ifdef STREAMICE_HYBRID_STRESS
71              streamice_taubx (i,j,bi,bj) = 0. _d 0
72              streamice_tauby (i,j,bi,bj) = 0. _d 0
73    #endif
74           ENDDO           ENDDO
75          ENDDO          ENDDO
76         ENDDO         ENDDO
# Line 144  c************************************** Line 148  c**************************************
148    
149        CALL STREAMICE_DUMP( mytime, myiter, myThid )        CALL STREAMICE_DUMP( mytime, myiter, myThid )
150    
151    
152    
153        CALL STREAMICE_VELMASK_UPD (myThid)        CALL STREAMICE_VELMASK_UPD (myThid)
154        CALL STREAMICE_UPD_FFRAC_UNCOUPLED ( myThid )        CALL STREAMICE_UPD_FFRAC_UNCOUPLED ( myThid )
155        CALL STREAMICE_VEL_SOLVE( myThid )        CALL STREAMICE_VEL_SOLVE( myThid )
156  !       endif  !       endif
157    
158    
159        CALL STREAMICE_ADVECT_THICKNESS ( myThid, deltaT )          if(.not.STREAMICE_diagnostic_only) THEN
160    
161           CALL STREAMICE_ADVECT_THICKNESS ( myThid, deltaT )  
162    
163          endif
164                
165    
166  !       enddo  !       enddo
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22