/[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.1 by jmc, Mon Dec 15 02:44:48 2003 UTC revision 1.2 by jmc, Mon Sep 14 16:29:30 2009 UTC
# Line 26  C     myThid - Thread number for this in Line 26  C     myThid - Thread number for this in
26  CEndOfInterface  CEndOfInterface
27    
28  C     == Local variables ==  C     == Local variables ==
29          Real*8  tmpBuf8(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
30          INTEGER i,j,bi,bj
31    
32  C     Send my configuration information to the coupler  C     Send my configuration information to the coupler
33  C     o Send atmos. model orography map  C     o Send atmos. model orography map
34          DO bj = myByLo(myThid), myByHi(myThid)
35           DO bi = myBxLo(myThid), myBxHi(myThid)
36            DO j=1-Oly,sNy+Oly
37             DO i=1-Olx,sNx+Olx
38              tmpBuf8(i,j,bi,bj) = Ro_surf(i,j,bi,bj)
39             ENDDO
40            ENDDO
41           ENDDO
42          ENDDO
43        CALL COMPSEND_R8TILES( atmDepthName,        CALL COMPSEND_R8TILES( atmDepthName,
44       I     sNx, OLx, sNy, OLy, 1, nSx, nSy, Ro_surf )       I     sNx, OLx, sNy, OLy, 1, nSx, nSy, tmpBuf8 )
45    
46        RETURN        RETURN
47        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22