calmet气象模式--求大神指导

20131218120

program srfdat        implicit none
        integer n
        character*4 cv(5)
        character*2 ctemp(132,11)
        call readin(ctemp(1,1),ctemp(1,2))

        open(11,file="calmet.inp",status='old')
        close(11)
       
end

subroutine readin(i1,i2)
        integer*2 i1(*),i2(*)
        call setvar(i1(1),i2(1))
end
subroutine setvar(xarr,carr)
        character*4 xarr(*),carr(*)
        carr(1)='G   '
end