Back to home page

MITgcm

 
 

    


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

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