/[MITgcm]/MITgcm/pkg/mom_fluxform/mom_fluxform.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_fluxform/mom_fluxform.F

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

revision 1.13 by edhill, Thu Oct 9 04:19:20 2003 UTC revision 1.14 by heimbach, Fri Oct 10 23:00:01 2003 UTC
# Line 179  C     Initialise intermediate terms Line 179  C     Initialise intermediate terms
179          fMer(i,j) = 0.          fMer(i,j) = 0.
180          rTransU(i,j) = 0.          rTransU(i,j) = 0.
181          rTransV(i,j) = 0.          rTransV(i,j) = 0.
182            fVerU(i,j,1) = 0. _d 0
183            fVerU(i,j,2) = 0. _d 0
184            fVerV(i,j,1) = 0. _d 0
185            fVerV(i,j,2) = 0. _d 0
186         ENDDO         ENDDO
187        ENDDO        ENDDO
188    
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22