/[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.2 by utke, Wed Aug 27 20:06:53 2008 UTC revision 1.3 by utke, Thu Sep 18 15:23:43 2008 UTC
# Line 1  Line 1 
1  C ###########################################################  C ###########################################################
2        SUBROUTINE EXCH_UV_XY_RS(  C      SUBROUTINE EXCH_UV_XY_RS(
3       U                       Uphi, Vphi,  C     U                       Uphi, Vphi,
4       I                       withSigns, myThid )  C     I                       withSigns, myThid )
5        IMPLICIT NONE  C      IMPLICIT NONE
6  #include "SIZE.h"  C#include "SIZE.h"
7  #include "EEPARAMS.h"  C#include "EEPARAMS.h"
8  #include "EESUPPORT.h"  C#include "EESUPPORT.h"
9  #include "EXCH.h"  C#include "EXCH.h"
10    C
11        _RS Uphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  C      _RS Uphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
12        _RS Vphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  C      _RS Vphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
13        _RS temp  C      _RS temp
14        LOGICAL withSigns  C      LOGICAL withSigns
15        INTEGER myThid  C      INTEGER myThid
16        temp=Uphi(1,1,1,1)  C      temp=Uphi(1,1,1,1)
17        Uphi(1,1,1,1)=Vphi(1,1,1,1)  C      Uphi(1,1,1,1)=Vphi(1,1,1,1)
18        Vphi(1,1,1,1)=temp  C      Vphi(1,1,1,1)=temp
19        end subroutine  C      end subroutine
20  C ###########################################################  C ###########################################################
21        SUBROUTINE EXCH_UV_XYZ_RL(        SUBROUTINE EXCH_UV_XYZ_RL(
22       U                       Uphi, Vphi,       U                       Uphi, Vphi,
# Line 36  C ###################################### Line 36  C ######################################
36        Vphi(1,1,1,1,1)=temp        Vphi(1,1,1,1,1)=temp
37        end subroutine        end subroutine
38  C ###########################################################  C ###########################################################
39        SUBROUTINE EXCH_UV_XYZ_RS(  C      SUBROUTINE EXCH_UV_XYZ_RS(
40       U                       Uphi, Vphi,  C     U                       Uphi, Vphi,
41       I                       withSigns, myThid )  C     I                       withSigns, myThid )
42        IMPLICIT NONE  C      IMPLICIT NONE
43  #include "SIZE.h"  C#include "SIZE.h"
44  #include "EEPARAMS.h"  C#include "EEPARAMS.h"
45  #include "EESUPPORT.h"  C#include "EESUPPORT.h"
46  #include "EXCH.h"  C#include "EXCH.h"
47        _RS Uphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)  C      _RS Uphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
48        _RS Vphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)  C      _RS Vphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
49        _RL temp  C      _RL temp
50        LOGICAL withSigns  C      LOGICAL withSigns
51        INTEGER myThid  C      INTEGER myThid
52        temp=Uphi(1,1,1,1,1)  C      temp=Uphi(1,1,1,1,1)
53        Uphi(1,1,1,1,1)=Vphi(1,1,1,1,1)  C      Uphi(1,1,1,1,1)=Vphi(1,1,1,1,1)
54        Vphi(1,1,1,1,1)=temp  C      Vphi(1,1,1,1,1)=temp
55        end subroutine  C      end subroutine
56  C ###########################################################  C ###########################################################
57        SUBROUTINE EXCH_XY_RL(        SUBROUTINE EXCH_XY_RL(
58       U                       phi,       U                       phi,
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22