/[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.7 by utke, Sat Feb 23 04:18:51 2013 UTC
# Line 1  Line 1 
1    #include "CPP_EEOPTIONS.h"
2  C ###########################################################  C ###########################################################
3        SUBROUTINE EXCH1_RL(        SUBROUTINE EXCH1_RL(
4       U                 array,       U                 array,
# Line 17  C ###################################### Line 18  C ######################################
18        INTEGER exchWidthY        INTEGER exchWidthY
19        INTEGER cornerMode        INTEGER cornerMode
20        INTEGER myThid        INTEGER myThid
21    C dummy self dependence (nontrivial so mfef90 doesn't kill it)
22          array(1,1,1,1,1)=2*array(1,1,1,1,1)
23        end subroutine        end subroutine
24  C ###########################################################  C ###########################################################
25  C      SUBROUTINE EXCH1_RS(  C      SUBROUTINE EXCH1_RS(
# Line 62  C ###################################### Line 65  C ######################################
65  #include "EXCH.h"  #include "EXCH.h"
66        Real*8 sumPhi        Real*8 sumPhi
67        INTEGER myThid        INTEGER myThid
68    C dummy self dependence (nontrivial so mfef90 doesn't kill it)
69        sumPhi=2*sumPhi        sumPhi=2*sumPhi
70        end subroutine        end subroutine
71  C ###########################################################  C ###########################################################
# Line 69  C ###################################### Line 73  C ######################################
73       I                cg2d_b,       I                cg2d_b,
74       U                cg2d_x,       U                cg2d_x,
75       O                firstResidual,       O                firstResidual,
76         O                minResidualSq,
77       O                lastResidual,       O                lastResidual,
78       U                numIters,       U                numIters,
79         O                nIterMin,
80       I                myThid )       I                myThid )
81        IMPLICIT NONE        IMPLICIT NONE
82  #include "SIZE.h"  #include "SIZE.h"
# Line 80  C ###################################### Line 86  C ######################################
86        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)
87        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)
88        Real*8  firstResidual        Real*8  firstResidual
89          Real*8  minResidualSq
90        Real*8  lastResidual        Real*8  lastResidual
91        INTEGER numIters        INTEGER numIters
92          INTEGER nIterMin
93        INTEGER myThid        INTEGER myThid
94        cg2d_x(1,1,1,1)=cg2d_b(1,1,1,1)  C dummy self dependence (nontrivial so mfef90 doesn't kill it)
95          cg2d_x(1,1,1,1)=2*cg2d_b(1,1,1,1)
96        end subroutine        end subroutine
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22