/[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.4 by utke, Mon Dec 27 23:53:15 2010 UTC revision 1.5 by utke, Sat May 12 13:34:04 2012 UTC
# Line 219  C ###################################### Line 219  C ######################################
219       I                cg2d_b,       I                cg2d_b,
220       U                cg2d_x,       U                cg2d_x,
221       O                firstResidual,       O                firstResidual,
222         O                minResidualSq,
223       O                lastResidual,       O                lastResidual,
224       U                numIters,       U                numIters,
225         O                nIterMin,
226       I                myThid )       I                myThid )
227        IMPLICIT NONE        IMPLICIT NONE
228  #include "SIZE.h"  #include "SIZE.h"
# Line 230  C ###################################### Line 232  C ######################################
232        Real*8  cg2d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        Real*8  cg2d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
233        Real*8  cg2d_x(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        Real*8  cg2d_x(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
234        Real*8  firstResidual        Real*8  firstResidual
235          Real*8  minResidualSq
236        Real*8  lastResidual        Real*8  lastResidual
237        INTEGER numIters        INTEGER numIters
238          INTEGER nIterMin
239        INTEGER myThid        INTEGER myThid
240  C dummy self dependence (nontrivial so mfef90 doesn't kill it)  C dummy self dependence (nontrivial so mfef90 doesn't kill it)
241        cg2d_x(1,1,1,1)=2*cg2d_b(1,1,1,1)        cg2d_x(1,1,1,1)=2*cg2d_b(1,1,1,1)
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22