      SUBROUTINE SET_MODEL(ML,MGS,NL,NGAS,ZT,PT,TT,TGT,QMIX,QGT,
     &ZTM,PTM,TTM,TGM,QMIXM,QGM)
      IMPLICIT NONE
      INTEGER ML,MGS,NL,NGAS
      REAL*4 ZT(ML),PT(ML),TT(ML),TGT(2,ML),QMIX(ML,MGS),QGT(2,ML,MGS),
     &ZTM(ML),PTM(ML),TTM(ML),TGM(2,ML),QMIXM(ML,MGS),QGM(2,ML,MGS)
      INTEGER IG,IL
      DO IL=1,NL
        ZTM(IL)=ZT(IL)
        PTM(IL)=PT(IL)
        TTM(IL)=TT(IL)
        TGM(1,IL)=TGT(1,IL)
        TGM(2,IL)=TGT(2,IL)
        DO IG=1,NGAS
          QMIXM(IL,IG)=QMIX(IL,IG)
          QGM(1,IL,IG)=QGT(1,IL,IG)
          QGM(2,IL,IG)=QGT(2,IL,IG)
        ENDDO
      ENDDO
      RETURN
      END
