/[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.6 by dgoldberg, Thu Oct 4 00:01:31 2012 UTC revision 1.7 by heimbach, Thu Oct 4 03:45:53 2012 UTC
# Line 95  CADJ &     = comlev1_stream_front, key = Line 95  CADJ &     = comlev1_stream_front, key =
95    
96           DO j=1-1,sNy+1           DO j=1-1,sNy+1
97            Gj = (myYGlobalLo-1)+(bj-1)*sNy+j            Gj = (myYGlobalLo-1)+(bj-1)*sNy+j
98  cph          IF ((Gj .ge. 1) .and. (Gj .le. Ny)) THEN            IF ((Gj .ge. 1) .and. (Gj .le. Ny)) THEN
99             DO i=1-1,sNx+1             DO i=1-1,sNx+1
100              Gi = (myXGlobalLo-1)+(bi-1)*sNx+i              Gi = (myXGlobalLo-1)+(bi-1)*sNx+i
101    
# Line 125  CADJ STORE streamice_hmask(i,j,bi,bj) Line 125  CADJ STORE streamice_hmask(i,j,bi,bj)
125  CADJ &     = comlev1_stream_ij, key = ikey_1  CADJ &     = comlev1_stream_ij, key = ikey_1
126  #endif  #endif
127    
128  cph            IF ((Gi .ge. 1) .and. (Gi .le. Nx) .and.              IF ((Gi .ge. 1) .and. (Gi .le. Nx) .and.
129              IF ((STREAMICE_Hmask(i,j,bi,bj).eq.0.0 .or.       &          (STREAMICE_Hmask(i,j,bi,bj).eq.0.0 .or.
130       &           STREAMICE_Hmask(i,j,bi,bj).eq.2.0)) THEN       &           STREAMICE_Hmask(i,j,bi,bj).eq.2.0)) THEN
131               n_flux_1 = 0. _d 0               n_flux_1 = 0. _d 0
132               href = 0. _d 0               href = 0. _d 0
# Line 261  CADJ &     = comlev1_stream_ij, key = ik Line 261  CADJ &     = comlev1_stream_ij, key = ik
261    
262              ENDIF              ENDIF
263             ENDDO             ENDDO
264  cph          ENDIF            ENDIF
265           ENDDO           ENDDO
266  c  c
267          ENDDO          ENDDO

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

  ViewVC Help
Powered by ViewVC 1.1.22