/[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.2 by dgoldberg, Thu Jul 19 18:46:56 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 177  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.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22