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

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

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

revision 1.2 by utke, Thu Jan 19 20:48:45 2006 UTC revision 1.4 by utke, Mon Dec 27 23:53:15 2010 UTC
# Line 20  ccc      integer mythid Line 20  ccc      integer mythid
20  ccc      logical doglobalread  ccc      logical doglobalread
21  ccc      logical lAdInit  ccc      logical lAdInit
22  ccc      _RL     dummy (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)  ccc      _RL     dummy (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
23  ccc      dummy(1,1,1,1)=active_var(1,1,1,1)  ccc      dummy(1,1,1,1)=2*active_var(1,1,1,1)
24  ccc      end subroutine  ccc      end subroutine
25  cccC ###########################################################  cccC ###########################################################
26  ccc      subroutine active_read_xyz_loc(  ccc      subroutine active_read_xyz_loc(
# Line 43  ccc      integer mythid Line 43  ccc      integer mythid
43  ccc      logical doglobalread  ccc      logical doglobalread
44  ccc      logical lAdInit  ccc      logical lAdInit
45  ccc      _RL     dummy(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)  ccc      _RL     dummy(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
46  ccc      dummy(1,1,1,1,1)=active_var(1,1,1,1,1)  ccc      dummy(1,1,1,1,1)=2*active_var(1,1,1,1,1)
47  ccc      end subroutine  ccc      end subroutine
48  cccC ###########################################################  cccC ###########################################################
49  ccc      subroutine active_read_xyz(  ccc      subroutine active_read_xyz(
# Line 67  ccc      integer mythid Line 67  ccc      integer mythid
67  ccc      logical doglobalread  ccc      logical doglobalread
68  ccc      logical lAdInit  ccc      logical lAdInit
69  ccc      _RL     dummy(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)  ccc      _RL     dummy(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
70  ccc      dummy(1,1,1,1,1)=active_var(1,1,1,1,1)  ccc      dummy(1,1,1,1,1)=2*active_var(1,1,1,1,1)
71  ccc      end subroutine  ccc      end subroutine
72  cccC ###########################################################  cccC ###########################################################
73  ccc      SUBROUTINE EXCH_UV_AGRID_XY_RS( component1,  ccc      SUBROUTINE EXCH_UV_AGRID_XY_RS( component1,
# Line 167  C ###################################### Line 167  C ######################################
167        INTEGER myThid        INTEGER myThid
168        phi(1,1,1,1,1)=2*phi(1,1,1,1,1)        phi(1,1,1,1,1)=2*phi(1,1,1,1,1)
169        end subroutine        end subroutine
170  C ###########################################################  cccC ###########################################################
171        SUBROUTINE EXCH_Z_XY_RS(  ccc      SUBROUTINE EXCH_Z_XY_RS(
172       U                       phi,  ccc     U                       phi,
173       I                       myThid )  ccc     I                       myThid )
174        IMPLICIT NONE  ccc      IMPLICIT NONE
175  #include "SIZE.h"  ccc#include "SIZE.h"
176  #include "EEPARAMS.h"  ccc#include "EEPARAMS.h"
177  #include "EESUPPORT.h"  ccc#include "EESUPPORT.h"
178  #include "EXCH.h"  ccc#include "EXCH.h"
179        _RS phi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  ccc      _RS phi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
180        INTEGER myThid  ccc      INTEGER myThid
181        phi(1,1,1,1)=2*phi(1,1,1,1)  ccc      phi(1,1,1,1)=2*phi(1,1,1,1)
182        end subroutine  ccc      end subroutine
183  C ###########################################################  C ###########################################################
184        SUBROUTINE GLOBAL_MAX_R8(        SUBROUTINE GLOBAL_MAX_R8(
185       U                       maxphi,       U                       maxphi,
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22