/[MITgcm]/MITgcm/model/src/dynamics.F
ViewVC logotype

Diff of /MITgcm/model/src/dynamics.F

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

revision 1.21 by adcroft, Mon Jun 22 15:26:25 1998 UTC revision 1.22 by adcroft, Tue Jun 23 02:35:59 1998 UTC
# Line 203  C--     Set up work arrays that need val Line 203  C--     Set up work arrays that need val
203            K13(i,j,1) = 0. _d 0            K13(i,j,1) = 0. _d 0
204            K23(i,j,1) = 0. _d 0            K23(i,j,1) = 0. _d 0
205            K33(i,j,1) = 0. _d 0            K33(i,j,1) = 0. _d 0
206            KapGM(i,j) = 0. _d 0            KapGM(i,j) = GMkbackground
207           ENDDO           ENDDO
208          ENDDO          ENDDO
209    
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22