/[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.6 by dgoldberg, Thu Oct 4 00:01:31 2012 UTC
# 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
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22