/[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.4 by heimbach, Fri Jul 27 21:07:13 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 141  c************************************** Line 139  c**************************************
139        WRITE(msgBuf,'(A,I10.10,E9.2,A)')        WRITE(msgBuf,'(A,I10.10,E9.2,A)')
140       &  'streamice solo_time_step: nIter',       &  'streamice solo_time_step: nIter',
141       &  myIter, myTime/86400.0/365.0, 'seconds'       &  myIter, myTime/86400.0/365.0, 'seconds'
   
142        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
143       &                   SQUEEZE_RIGHT , 1)       &                   SQUEEZE_RIGHT , 1)
144    
145          CALL STREAMICE_DUMP( mytime, myiter, myThid )
146    
147        CALL STREAMICE_VELMASK_UPD (myThid)        CALL STREAMICE_VELMASK_UPD (myThid)
148        CALL STREAMICE_UPD_FFRAC_UNCOUPLED ( myThid )        CALL STREAMICE_UPD_FFRAC_UNCOUPLED ( myThid )
149        CALL STREAMICE_VEL_SOLVE( myThid )        CALL STREAMICE_VEL_SOLVE( myThid )
# Line 177  c************************************** Line 176  c**************************************
176  !  !
177  !  !
178  !       IF ( useDiagnostics ) THEN  !       IF ( useDiagnostics ) THEN
 !       PRINT *, "CALLING FILL DIAGNOSTICS"  
179  !        CALL DIAGNOSTICS_FILL(U_streamice,'SI_Uvel ',  !        CALL DIAGNOSTICS_FILL(U_streamice,'SI_Uvel ',
180  !      &      0,1,0,1,1,myThid)  !      &      0,1,0,1,1,myThid)
181  !        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.4
  ViewVC Help
Powered by ViewVC 1.1.22