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

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

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

revision 1.7 by dgoldberg, Thu Oct 4 15:40:16 2012 UTC revision 1.8 by dgoldberg, Wed Oct 10 15:03:10 2012 UTC
# Line 314  C The 0 is the "iteration" argument. The Line 314  C The 0 is the "iteration" argument. The
314    
315        ELSE        ELSE
316    
317         WRITE(msgBuf,'(A)') 'INIT THICKNESS - NOT IMPLENTED'         WRITE(msgBuf,'(A)') 'INIT TRAC - NOT IMPLENTED'
318         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,         CALL PRINT_ERROR( msgBuf, myThid)
319       &                    SQUEEZE_RIGHT , 1)         STOP 'ABNORMAL END: S/R STREAMICE_INIT_VAR'
320        ENDIF        ENDIF
321    
322  ! finish initialize basal traction  ! finish initialize basal traction
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22