← Back to branch summary

~j-percival/fluidity/GranularFlowModel

« back to all changes in this revision

Viewing changes to legacy_reservoir_prototype/src/cv-adv-dif.F90

  • Committer: James Robert Percival
  • Date: 2014-03-20 15:35:27 UTC
  • Revision ID: j.percival@imperial.ac.uk-20140320153527-wy7jd5xs7no4k7rr
Updating code.

Show diffs side-by-side

added added

removed removed

Lines of Context:
legacy_reservoir_prototype/src/cv-adv-dif.F90
1251
1251
                        IF(GETMAT) THEN
1252
1252
                           ! - Calculate the integration of the limited, high-order flux over a face  
1253
1253
                           ! Conservative discretisation. The matrix (PIVOT ON LOW ORDER SOLN)
1254
 
                           IF( ( CV_NODI_IPHA /= CV_NODJ_IPHA ) .AND. ( CV_NODJ_IPHA /= 0 ) ) THEN
 
1254
                           IF( ( CV_NODI_IPHA /= CV_NODJ_IPHA ) .AND. ( CV_NODJ /= 0 ) ) THEN
1255
1255
                              DO COUNT = FINACV( CV_NODI_IPHA ), FINACV( CV_NODI_IPHA + 1 ) - 1
1256
1256
                                 IF( COLACV( COUNT ) == CV_NODJ_IPHA )  JCOUNT_IPHA = COUNT
1257
1257
                              END DO