/[MITgcm]/MITgcm/pkg/atm_compon_interf/cpl_register.F
ViewVC logotype

Diff of /MITgcm/pkg/atm_compon_interf/cpl_register.F

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

revision 1.1 by jmc, Mon Dec 15 02:44:48 2003 UTC revision 1.2 by jmc, Fri Dec 25 19:43:43 2009 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$    C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6  CStartOfInterface  CBOP 0
7    C !ROUTINE: CPL_REGISTER
8    
9    C !INTERFACE:
10        SUBROUTINE CPL_REGISTER        SUBROUTINE CPL_REGISTER
11    
12    C !DESCRIPTION:
13  C     *==========================================================*  C     *==========================================================*
14  C     | SUBROUTINE CPL_REGISTER                                  |  C     | SUBROUTINE CPL_REGISTER
15  C     | o Routine controlling registration with MIT coupler.     |  C     | o Routine controlling registration with MIT coupler.
16  C     | - Atmospheric version -                                  |  C     | - Atmospheric version -
17  C     *==========================================================*  C     *==========================================================*
18  C     | This version talks to the MIT Coupler. It uses the MIT   |  C     | This version talks to the MIT Coupler. It uses the MIT
19  C     | Coupler "checkpoint1" library calls.                     |  C     | Coupler "checkpoint1" library calls.
20  C     *==========================================================*  C     *==========================================================*
       IMPLICIT NONE  
21    
22    C !USES:
23          IMPLICIT NONE
24  C     == Global variables ==  C     == Global variables ==
25  #include "SIZE.h"  #include "SIZE.h"
26  #include "EEPARAMS.h"  #include "EEPARAMS.h"
27  #include "ATMIDS.h"  #include "ATMIDS.h"
28    
29    C !INPUT/OUTPUT PARAMETERS:
30  C     == Routine arguments ==  C     == Routine arguments ==
31  C     myThid - Thread number for this instance of the routine  C     myThid    :: Thread number for this instance of the routine
32        INTEGER myThid  c     INTEGER myThid
33  CEndOfInterface  CEOP
34    
 C     == Local variables ==  
35  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
36  C     Arrays for passing attributes to the coupler  C !LOCAL VARIABLES:
37    C     == Local variables ==
38    C     bi, bj    :: Tile indices
39    C     j         :: Loop counter
40    C     iG0, jG0  :: Base coordinates of a tile on the global grid.
41    C     iReg,rReg :: Arrays for passing attributes to the coupler
42          INTEGER iG0, jG0
43          INTEGER bi, bj
44    c     INTEGER j
45        INTEGER iReg(4,nSx,nSy)        INTEGER iReg(4,nSx,nSy)
46        Real*4  rReg(4,nSx,nSy)        Real*4  rReg(4,nSx,nSy)
 C     bi, bj, J - Loop counters  
       INTEGER bi,bj,J  
 C     Base coordinates of a tile on the global grid.  
       INTEGER iG0, jG0  
 #endif  
   
47    
48  C--   Register with the MIT coupler  C--   Register with the MIT coupler
 #ifdef COMPONENT_MODULE  
49        DO bj=1,nSy        DO bj=1,nSy
50         DO bi=1,nSx         DO bi=1,nSx
51          jG0 = myYGlobalLo+(bj-1)*sNy          jG0 = myYGlobalLo+(bj-1)*sNy
52          iG0 = myXGlobalLo+(bi-1)*sNx          iG0 = myXGlobalLo+(bi-1)*sNx
53          IREG(1,bi,bj)=sNx          iReg(1,bi,bj) = sNx
54          IREG(2,bi,bj)=sNy          iReg(2,bi,bj) = sNy
55          IREG(3,bi,bj)=iG0          iReg(3,bi,bj) = iG0
56          IREG(4,bi,bj)=jG0          iReg(4,bi,bj) = jG0
57         ENDDO         ENDDO
58        ENDDO        ENDDO
59        CALL MITCOMPONENT_TILE_REGISTER( nSx, nSy, ireg, rreg )        CALL MITCOMPONENT_TILE_REGISTER( nSx, nSy, iReg, rReg )
60  #endif  #endif /* COMPONENT_MODULE */
   
61    
62        RETURN        RETURN
63        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22