/[MITgcm]/MITgcm/pkg/aim_compon_interf/atm_export_atmconfig.F
ViewVC logotype

Diff of /MITgcm/pkg/aim_compon_interf/atm_export_atmconfig.F

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

revision 1.2 by jmc, Mon Sep 14 16:29:30 2009 UTC revision 1.3 by jmc, Thu Dec 24 16:49:08 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: ATM_EXPORT_ATMCONFIG
8    
9    C !INTERFACE:
10        SUBROUTINE ATM_EXPORT_ATMCONFIG( myThid )        SUBROUTINE ATM_EXPORT_ATMCONFIG( myThid )
 C     /==========================================================\  
 C     | SUBROUTINE ATM_EXPORT_ATMCONFIG                          |  
 C     | o Routine for exporting atmos. config to coupling level. |  
 C     |==========================================================|  
 C     | This version talks to the MIT Coupler. It uses the MIT   |  
 C     | Coupler "checkpoint1" library calls.                     |  
 C     \==========================================================/  
       IMPLICIT NONE  
11    
12    C !DESCRIPTION:
13    C     *==========================================================*
14    C     | SUBROUTINE ATM_EXPORT_ATMCONFIG
15    C     | o Routine for exporting atmos. config to coupling level.
16    C     *==========================================================*
17    C     | This version talks to the MIT Coupler. It uses the MIT
18    C     | Coupler "checkpoint1" library calls.
19    C     *==========================================================*
20    
21    C !USES:
22          IMPLICIT NONE
23  C     == Global variables ==  C     == Global variables ==
24  #include "SIZE.h"  #include "SIZE.h"
25  #include "EEPARAMS.h"  #include "EEPARAMS.h"
26  #include "GRID.h"  #include "GRID.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        INTEGER myThid
33  CEndOfInterface  CEOP
34    
35  C     == Local variables ==  C     == Local variables ==
36        Real*8  tmpBuf8(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        Real*8  tmpBuf8(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
# Line 31  C     == Local variables == Line 38  C     == Local variables ==
38    
39  C     Send my configuration information to the coupler  C     Send my configuration information to the coupler
40  C     o Send atmos. model orography map  C     o Send atmos. model orography map
41        DO bj = myByLo(myThid), myByHi(myThid)        _BARRIER
42         DO bi = myBxLo(myThid), myBxHi(myThid)        _BEGIN_MASTER( myThid )
43          DO bj = 1,nSy
44           DO bi = 1,nSx
45    c     DO bj = myByLo(myThid), myByHi(myThid)
46    c      DO bi = myBxLo(myThid), myBxHi(myThid)
47          DO j=1-Oly,sNy+Oly          DO j=1-Oly,sNy+Oly
48           DO i=1-Olx,sNx+Olx           DO i=1-Olx,sNx+Olx
49            tmpBuf8(i,j,bi,bj) = Ro_surf(i,j,bi,bj)            tmpBuf8(i,j,bi,bj) = Ro_surf(i,j,bi,bj)
# Line 40  C     o Send atmos. model orography map Line 51  C     o Send atmos. model orography map
51          ENDDO          ENDDO
52         ENDDO         ENDDO
53        ENDDO        ENDDO
54        CALL COMPSEND_R8TILES( atmDepthName,        CALL COMPSEND_R8TILES(
55       I     sNx, OLx, sNy, OLy, 1, nSx, nSy, tmpBuf8 )       I              atmDepthName, sNx, OLx, sNy, OLy, 1, nSx, nSy,
56         I              tmpBuf8 )
57          _END_MASTER( myThid )
58          _BARRIER
59    
60        RETURN        RETURN
61        END        END
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22