/[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.5 by heimbach, Wed Oct 3 02:37:16 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 107  cph          IF ((Gj .ge. 1) .and. (Gj . Line 107  cph          IF ((Gj .ge. 1) .and. (Gj .
107            act3 = myThid - 1            act3 = myThid - 1
108            max3 = nTx*nTy            max3 = nTx*nTy
109            act4 = ikey_front - 1            act4 = ikey_front - 1
110            ikey_1 = i + 2            ikey_1 = i + 1
111       &         + (sNx+2)*(j-1)       &         + (sNx+2)*(j)
112       &         + (sNx+2)*(sNy+2)*act1       &         + (sNx+2)*(sNy+2)*act1
113       &         + (sNx+2)*(sNy+2)*max1*act2       &         + (sNx+2)*(sNy+2)*max1*act2
114       &         + (sNx+2)*(sNy+2)*max1*max2*act3       &         + (sNx+2)*(sNy+2)*max1*max2*act3
# 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.5  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22