/[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.4 by dgoldberg, Sat Apr 6 17:43:41 2013 UTC revision 1.6 by dgoldberg, Sat Jun 8 22:15:34 2013 UTC
# Line 180  C     === Global variables === Line 180  C     === Global variables ===
180    
181  !       CALL WRITE_FULLARRAY_RL ("umask",STREAMICE_umask,  !       CALL WRITE_FULLARRAY_RL ("umask",STREAMICE_umask,
182  !      c   1,0,0,1,0,myThid)  !      c   1,0,0,1,0,myThid)
183        CALL WRITE_FLD_XY_RL ("umask","",STREAMICE_umask,0,myThid)  !      CALL WRITE_FLD_XY_RL ("umask","",STREAMICE_umask,0,myThid)
184        CALL WRITE_FLD_XY_RL ("vmask","",STREAMICE_vmask,0,myThid)  !      CALL WRITE_FLD_XY_RL ("vmask","",STREAMICE_vmask,0,myThid)
185        CALL WRITE_FLD_XY_RL ("ufacemask","",STREAMICE_ufacemask,0,myThid)  !      CALL WRITE_FLD_XY_RL ("ufacemask","",STREAMICE_ufacemask,0,myThid)
186        CALL WRITE_FLD_XY_RL ("vfacemask","",STREAMICE_vfacemask,0,myThid)  !      CALL WRITE_FLD_XY_RL ("vfacemask","",STREAMICE_vfacemask,0,myThid)
187    
188  #ifdef ALLOW_PETSC  #ifdef ALLOW_PETSC
189    
# 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.4  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22