Back to home page

MITgcm

 
 

    


File indexing completed on 2018-03-02 18:38:31 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
bf4be02920 Jean*0001 !=======================================================================
                0002       subroutine mitcplr_real2char( rarg, carg )
                0003       implicit none
                0004 ! Predefined constants/arrays
                0005 #include "CPLR_SIG.h"
                0006 ! Arguments
                0007       character*(MAXLEN_COMP_NAME) carg
                0008       real*4 rarg(MAXLEN_COMP_NAME)
                0009 ! Local
                0010       integer j
                0011 !     ------------------------------------------------------------------
                0012 
                0013 ! Convert the integer array to characters
                0014       do j=1,MAXLEN_COMP_NAME
ab7132b07f Jean*0015        carg(j:j) = char( nint( rarg(j) ) )
bf4be02920 Jean*0016       enddo
                0017 
                0018 !     ------------------------------------------------------------------
                0019       return
                0020       end
                0021 !=======================================================================