/[MITgcm]/MITgcm/pkg/compon_communic/compsend_r8tiles.F
ViewVC logotype

Diff of /MITgcm/pkg/compon_communic/compsend_r8tiles.F

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

revision 1.2 by jmc, Mon Oct 8 23:58:20 2007 UTC revision 1.3 by jmc, Mon Sep 14 16:22:02 2009 UTC
# Line 38  C $Name$ Line 38  C $Name$
38         r8buf(2)=float( my_tile_nx(bibj) )         r8buf(2)=float( my_tile_nx(bibj) )
39         r8buf(3)=float( my_tile_j0(bibj) )         r8buf(3)=float( my_tile_j0(bibj) )
40         r8buf(4)=float( my_tile_ny(bibj) )         r8buf(4)=float( my_tile_ny(bibj) )
41         call mitcplr_char2real( dataname, r8buf(9) )         call mitcplr_char2dbl( dataname, r8buf(9) )
42    
43  ! Copy interior of tile to buffer  ! Copy interior of tile to buffer
44         k=1         k=1
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22