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

Diff of /MITgcm/pkg/compon_communic/comprecv_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:01 2009 UTC
# Line 60  C $Name$ Line 60  C $Name$
60         Jo=int(0.5+r8buf(2))         Jo=int(0.5+r8buf(2))
61         nx=int(0.5+r8buf(3))         nx=int(0.5+r8buf(3))
62         ny=int(0.5+r8buf(4))         ny=int(0.5+r8buf(4))
63         call mitcplr_real2char( r8buf(9), recvdname )         call mitcplr_dbl2char( r8buf(9), recvdname )
64    
65         if (Io.ne.my_tile_i0(bibj)) stop 'comprecv_r8tiles: bad Io'         if (Io.ne.my_tile_i0(bibj)) stop 'comprecv_r8tiles: bad Io'
66         if (Jo.ne.my_tile_j0(bibj)) stop 'comprecv_r8tiles: bad Jo'         if (Jo.ne.my_tile_j0(bibj)) stop 'comprecv_r8tiles: bad Jo'
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22