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

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

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

revision 1.2 by utke, Tue Nov 7 04:22:25 2006 UTC revision 1.3 by utke, Thu Jan 11 16:54:08 2007 UTC
# 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
 cccC ###########################################################  
 ccc      SUBROUTINE EXCH_Z_XY_RS(  
 ccc     U                       phi,  
 ccc     I                       myThid )  
 ccc      IMPLICIT NONE  
 ccc#include "SIZE.h"  
 ccc#include "EEPARAMS.h"  
 ccc#include "EESUPPORT.h"  
 ccc#include "EXCH.h"  
 ccc      _RS phi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
 ccc      INTEGER myThid  
 ccc      phi(1,1,1,1)=2*phi(1,1,1,1)  
 ccc      end subroutine  
170  C ###########################################################  C ###########################################################
171        SUBROUTINE GLOBAL_MAX_R8(        SUBROUTINE GLOBAL_MAX_R8(
172       U                       maxphi,       U                       maxphi,
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22