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

Diff of /MITgcm/pkg/compon_communic/couprecv_r8.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 80  C $Name$ Line 80  C $Name$
80          stop 'couprecv_r8: Incompatible header/target array'          stop 'couprecv_r8: Incompatible header/target array'
81         endif         endif
82    
83         call mitcplr_real2char( r8buf(9), recvdname )         call mitcplr_dbl2char( r8buf(9), recvdname )
84         if (recvdname .ne. dataname) then         if (recvdname .ne. dataname) then
85          write(LogUnit,*) 'couprecv_r8: recvdname = ',recvdname          write(LogUnit,*) 'couprecv_r8: recvdname = ',recvdname
86          write(LogUnit,*) 'couprecv_r8:  dataname = ',dataname          write(LogUnit,*) 'couprecv_r8:  dataname = ',dataname
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22