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

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

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

revision 1.2 by heimbach, Thu May 3 15:39:22 2012 UTC revision 1.3 by dgoldberg, Thu May 3 15:52:06 2012 UTC
# Line 32  C     === Global variables === Line 32  C     === Global variables ===
32    
33  #ifdef ALLOW_STREAMICE  #ifdef ALLOW_STREAMICE
34    
35        INTEGER i, j, bi, bj, k, iter_count        INTEGER i, j, bi, bj, k, iter_count, iter_rpt
36        INTEGER Gi, Gj        INTEGER Gi, Gj
37        INTEGER new_partial(4)        INTEGER new_partial(4)
38        INTEGER ikey_front, ikey_1        INTEGER ikey_front, ikey_1
# Line 43  C     === Global variables === Line 43  C     === Global variables ===
43        rho = streamice_density        rho = streamice_density
44  cph      iter_count = 0  cph      iter_count = 0
45        iter_flag = 1. _d 0        iter_flag = 1. _d 0
46          iter_rpt = 0
47    
48        DO iter_count = 0, 3        DO iter_count = 0, 3
49    
# Line 86  CADJ &     = comlev1_stream_front, key = Line 87  CADJ &     = comlev1_stream_front, key =
87         ENDIF         ENDIF
88    
89  !       iter_count = iter_count + 1  !       iter_count = iter_count + 1
90           iter_rpt = iter_rpt + 1
91    
92         DO bj=myByLo(myThid),myByHi(myThid)         DO bj=myByLo(myThid),myByHi(myThid)
93          DO bi=myBxLo(myThid),myBxHi(myThid)          DO bi=myBxLo(myThid),myBxHi(myThid)
# Line 270  c Line 272  c
272        ENDIF        ENDIF
273        ENDDO        ENDDO
274    
275  cph      IF (iter_count.gt.1) THEN        IF (iter_rpt.gt.1) THEN
276  cph       PRINT *, "FRONT ADVANCE: ", iter_count, " ITERATIONS"         PRINT *, "FRONT ADVANCE: ", iter_rpt, " ITERATIONS"
277  cph      ENDIF        ENDIF
278    
279    
280    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22