/[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.7 by utke, Sat Feb 23 04:18:51 2013 UTC revision 1.8 by utke, Fri Nov 8 17:55:05 2013 UTC
# Line 1  Line 1 
1  #include "CPP_EEOPTIONS.h"  C $Header$
2    C $Name$
3  C ###########################################################  C ###########################################################
4        SUBROUTINE EXCH1_RL(        SUBROUTINE EXCH1_RL(
5       U                 array,       U                 array,
# Line 55  C      INTEGER myThid Line 56  C      INTEGER myThid
56  C      maxPhi=2*maxPhi  C      maxPhi=2*maxPhi
57  C      end subroutine  C      end subroutine
58  C ###########################################################  C ###########################################################
59        SUBROUTINE GLOBAL_SUM_R8(  C      SUBROUTINE GLOBAL_SUM_R8(
60    C     U                       sumphi,
61    C     I                       myThid )
62    C      IMPLICIT NONE
63    C#include "SIZE.h"
64    C#include "EEPARAMS.h"
65    C#include "EESUPPORT.h"
66    C#include "EXCH.h"
67    C      Real*8 sumPhi
68    C      INTEGER myThid
69    CC dummy self dependence (nontrivial so mfef90 doesn't kill it)
70    C      sumPhi=2*sumPhi
71    C      end subroutine
72    C ###########################################################
73          SUBROUTINE GLOBAL_SUM_TILE_RL(
74         U                       phiTile,
75       U                       sumphi,       U                       sumphi,
76       I                       myThid )       I                       myThid )
77        IMPLICIT NONE        IMPLICIT NONE
# Line 63  C ###################################### Line 79  C ######################################
79  #include "EEPARAMS.h"  #include "EEPARAMS.h"
80  #include "EESUPPORT.h"  #include "EESUPPORT.h"
81  #include "EXCH.h"  #include "EXCH.h"
82        Real*8 sumPhi        _RL phiTile(nSx,nSy)
83          _RL sumPhi
84        INTEGER myThid        INTEGER myThid
85  C dummy self dependence (nontrivial so mfef90 doesn't kill it)  C dummy self dependence (nontrivial so mfef90 doesn't kill it)
86        sumPhi=2*sumPhi        sumPhi=2*phiTile(1,1)
87        end subroutine        end subroutine
88  C ###########################################################  C ###########################################################
89        SUBROUTINE CG2D(        SUBROUTINE CG2D(
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22