/[MITgcm]/MITgcm_contrib/dgoldberg/streamice/streamice_velmask_upd.F
ViewVC logotype

Diff of /MITgcm_contrib/dgoldberg/streamice/streamice_velmask_upd.F

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

revision 1.5 by dgoldberg, Fri May 10 17:00:50 2013 UTC revision 1.6 by dgoldberg, Sat Jun 8 22:15:34 2013 UTC
# Line 215  C        streamice_petsc_dofs_v is assig Line 215  C        streamice_petsc_dofs_v is assig
215  C        o/w  streamice_petsc_dofs_v is assigned -1  C        o/w  streamice_petsc_dofs_v is assigned -1
216  C    NOTE THESE NUMBERING ARRAYS ARE USED TO CONSTRUCT PETSC VECTORS AND MATRIX  C    NOTE THESE NUMBERING ARRAYS ARE USED TO CONSTRUCT PETSC VECTORS AND MATRIX
217    
218            if (STREAMICE_umask (i,j,bi,bj).eq.1) THEN            if (STREAMICE_umask (i,j,bi,bj).eq.1.0) THEN
219             DoFCount = DoFCount + 1.0             DoFCount = DoFCount + 1.0
220             streamice_petsc_dofs_u (i,j,bi,bj) = DoFCount             streamice_petsc_dofs_u (i,j,bi,bj) = DoFCount
221            else            else
222             streamice_petsc_dofs_u (i,j,bi,bj) = -1.0             streamice_petsc_dofs_u (i,j,bi,bj) = -1.0
223            endif            endif
224    
225            if (STREAMICE_vmask (i,j,bi,bj).eq.1) THEN            if (STREAMICE_vmask (i,j,bi,bj).eq.1.0) THEN
226             DoFCount = DoFCount + 1.0             DoFCount = DoFCount + 1.0
227             streamice_petsc_dofs_v (i,j,bi,bj) = DoFCount             streamice_petsc_dofs_v (i,j,bi,bj) = DoFCount
228            else            else
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22