/[MITgcm]/MITgcm_contrib/dgoldberg/code_cg3d_petsc/cg3d_petsc.F
ViewVC logotype

Diff of /MITgcm_contrib/dgoldberg/code_cg3d_petsc/cg3d_petsc.F

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

revision 1.2 by dgoldberg, Sat Jul 2 17:48:26 2016 UTC revision 1.3 by dgoldberg, Tue Jul 5 15:56:42 2016 UTC
# Line 101  C     LOCAL VARIABLES Line 101  C     LOCAL VARIABLES
101        cg3d_need2destroy_mat = .FALSE.        cg3d_need2destroy_mat = .FALSE.
102        ENDIF        ENDIF
103                
104    !      Print *, "GOT HERE CG3D", local_dofs,global_dofs,
105    !     & cg3d_dofs_cum_sum
106    
107  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
108    
# Line 113  C     LOCAL VARIABLES Line 115  C     LOCAL VARIABLES
115        cg3d_dofs_cum_sum(0) = 0        cg3d_dofs_cum_sum(0) = 0
116    
117        DO i=0,nPx*nPy*MAX_CG3D_PETSC_CPUINVERT-1        DO i=0,nPx*nPy*MAX_CG3D_PETSC_CPUINVERT-1
118         IF (i.le.cg3d_petsc_cpuInVert) THEN  !       IF (i.le.cg3d_petsc_cpuInVert) THEN
119          global_dofs = global_dofs + cg3d_dofs_process (i)          global_dofs = global_dofs + cg3d_dofs_process (i)
120          if (i.ge.1) then          if (i.ge.1) then
121           cg3d_dofs_cum_sum(i) = cg3d_dofs_cum_sum(i-1)+           cg3d_dofs_cum_sum(i) = cg3d_dofs_cum_sum(i-1)+
122       &                     cg3d_dofs_process(i-1)       &                     cg3d_dofs_process(i-1)
123          endif          endif
124         ENDIF  !       ENDIF
125        ENDDO        ENDDO
126    
127        local_offset = cg3d_dofs_cum_sum(mpimywid)        local_offset = cg3d_dofs_cum_sum(mpimywid)
# Line 131  C     LOCAL VARIABLES Line 133  C     LOCAL VARIABLES
133        local_offset = 0        local_offset = 0
134    
135  #endif  #endif
136          Print *, "GOT HERE CG3D", local_dofs,global_dofs,
137         & cg3d_dofs_cum_sum
138    
139  !----------------------  !----------------------
140    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22