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

Diff of /MITgcm/pkg/compon_communic/mitcplr_real2char.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:22 2007 UTC revision 1.3 by jmc, Mon Sep 14 16:18:14 2009 UTC
# Line 15  C $Name$ Line 15  C $Name$
15    
16  ! Convert the integer array to characters  ! Convert the integer array to characters
17        do j=1,MAXLEN_COMP_NAME        do j=1,MAXLEN_COMP_NAME
18         carg(j:j) = char( int( 0.5+rarg(j) ) )         carg(j:j) = char( nint( rarg(j) ) )
19        enddo        enddo
20    
21  !     ------------------------------------------------------------------  !     ------------------------------------------------------------------
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22