SUBROUTINE RAMS_DRIVER
      include 'rcommons.h'
      DIMENSION A(1),B(1)
C
C          Read grid point and options information
C          ------------------------------------------------
      CALL READ_NL
      
C          Print initial banner
C          ------------------------------------------------
C
      WRITE(6,'(a1,78a1)') ' ',('*',i=1,78)
      WRITE(6,'(2a1,a42)') ' ','*','    RAMS - Version 3b'
      WRITE(6,'(2a1)') ' ','*'
      WRITE(6,'(2a1,a3,a64)') ' ','*','   ',EXPNME
      WRITE(6,'(a1,78a1)') ' ',('*',i=1,78)


      CALL OPSPEC1


      CALL VTABLES
      CALL GRIDINIT
      CALL IOSETUP
      CALL IOSETB
C Modified by M.kanda
c      CALL OPFKAN
c      CALL OPFINO
C Modified by M.kanda
C
C          Call memory allocation routine. The allocated memory is
C               at the address of IADDR and can be referenced 
C               with the array location of A(IOFF+1).
C          -------------------------------------------------------
      IADDR= IRALLOC(MEMSIZE,A,IOFF)
      IADDRB= IRALLOC(MEMBSZ,B,IBOFF)
C
C          Call the main initialization driver
C          -----------------------------------
      CALL INITLZ(A(IOFF+1),B(IBOFF+1))
C
C          Call the model time integration driver
C          --------------------------------------
      IF (RUNTYPE.EQ.'INITIAL'.OR.RUNTYPE.EQ.'HISTORY') THEN
         CALL MODEL(A(IOFF+1),B(IBOFF+1))
MODEL
      ENDIF
C
      CALL IRFREE(IADDR)
      CALL IRFREE(IADDRB)
C
C Modified by M.kanda
c      CALL CSFKAN
c      CALL CSFINO
C Modified by M.kanda
C
      RETURN
      END
C