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

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

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

revision 1.4 by utke, Sun May 23 14:41:22 2010 UTC revision 1.6 by utke, Sat May 12 13:26:48 2012 UTC
# Line 17  C ###################################### Line 17  C ######################################
17        INTEGER exchWidthY        INTEGER exchWidthY
18        INTEGER cornerMode        INTEGER cornerMode
19        INTEGER myThid        INTEGER myThid
20    C dummy self dependence (nontrivial so mfef90 doesn't kill it)
21          array(1,1,1,1,1)=2*array(1,1,1,1,1)
22        end subroutine        end subroutine
23  C ###########################################################  C ###########################################################
24  C      SUBROUTINE EXCH1_RS(  C      SUBROUTINE EXCH1_RS(
# Line 62  C ###################################### Line 64  C ######################################
64  #include "EXCH.h"  #include "EXCH.h"
65        Real*8 sumPhi        Real*8 sumPhi
66        INTEGER myThid        INTEGER myThid
67    C dummy self dependence (nontrivial so mfef90 doesn't kill it)
68        sumPhi=2*sumPhi        sumPhi=2*sumPhi
69        end subroutine        end subroutine
70  C ###########################################################  C ###########################################################
# Line 69  C ###################################### Line 72  C ######################################
72       I                cg2d_b,       I                cg2d_b,
73       U                cg2d_x,       U                cg2d_x,
74       O                firstResidual,       O                firstResidual,
75         O                minResidualSq,
76       O                lastResidual,       O                lastResidual,
77       U                numIters,       U                numIters,
78         O                nIterMin,
79       I                myThid )       I                myThid )
80        IMPLICIT NONE        IMPLICIT NONE
81  #include "SIZE.h"  #include "SIZE.h"
# Line 80  C ###################################### Line 85  C ######################################
85        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)
86        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)
87        Real*8  firstResidual        Real*8  firstResidual
88          Real*8  minResidualSq
89        Real*8  lastResidual        Real*8  lastResidual
90        INTEGER numIters        INTEGER numIters
91          INTEGER nIterMin
92        INTEGER myThid        INTEGER myThid
93        cg2d_x(1,1,1,1)=cg2d_b(1,1,1,1)  C dummy self dependence (nontrivial so mfef90 doesn't kill it)
94          cg2d_x(1,1,1,1)=2*cg2d_b(1,1,1,1)
95        end subroutine        end subroutine
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22