/[MITgcm]/MITgcm_contrib/heimbach/OpenAD/code_ad_moc/externalDummies.F
ViewVC logotype

Diff of /MITgcm_contrib/heimbach/OpenAD/code_ad_moc/externalDummies.F

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

revision 1.3 by utke, Thu Sep 18 16:25:45 2008 UTC revision 1.4 by utke, Mon Dec 27 23:53:15 2010 UTC
# Line 211  C ###################################### Line 211  C ######################################
211  #include "EXCH.h"  #include "EXCH.h"
212        Real*8 sumPhi        Real*8 sumPhi
213        INTEGER myThid        INTEGER myThid
214    C dummy self dependence (nontrivial so mfef90 doesn't kill it)
215        sumPhi=2*sumPhi        sumPhi=2*sumPhi
216        end subroutine        end subroutine
217  C ###########################################################  C ###########################################################
# Line 232  C ###################################### Line 233  C ######################################
233        Real*8  lastResidual        Real*8  lastResidual
234        INTEGER numIters        INTEGER numIters
235        INTEGER myThid        INTEGER myThid
236        cg2d_x(1,1,1,1)=cg2d_b(1,1,1,1)  C dummy self dependence (nontrivial so mfef90 doesn't kill it)
237          cg2d_x(1,1,1,1)=2*cg2d_b(1,1,1,1)
238        end subroutine        end subroutine
239  C ###########################################################  C ###########################################################
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22