1 | include(dom.inc)
   2 | 
   3 |       SUBROUTINE readtab(infile, kabs_all, nYH, nYC, nYCo, nT, nquad,   & 
   4 |      &                   model, dataref) 
   5 | 
   6 |       IMPLICIT NONE
   7 | 
   8 |       CHARACTER*64                              :: infile,model
   9 |       DOM_INT                                   :: nYH,nYC,nYCO
  10 |       DOM_INT                                   :: nT,nquad,DT
  11 |       DOM_INT                                   :: DYH,DYC,DYCO
  12 |       DOM_INT                                   :: i,j,k,iT,iq
  13 |       DOM_REAL,DIMENSION(8)                     :: dataref
  14 |       DOM_REAL,DIMENSION(nYH,nYC,nYCo,nT,nquad) :: kabs_all
  15 | 
  16 | !     ------------------!
  17 | !     READ GLOBAL DATAS !
  18 | !     ------------------!
  19 | 
  20 |       OPEN(12,FILE=infile,FORM='FORMATTED')
  21 |       READ(12,*)
  22 |       READ(12,*)
  23 |       READ(12,*)
  24 |       READ(12,*)
  25 |       READ(12,*)
  26 | 
  27 | !     -----------------!
  28 | !     READ TABLE DATA  !
  29 | !     -----------------!
  30 | 
  31 |       DO i=1,nYH
  32 |         DO j=1,nYC
  33 |           DO k=1,nYCO
  34 |             DO iT=1,nT
  35 | 
  36 |               READ(12,*) (kabs_all(i,j,k,iT,iq),iq=1,nquad)
  37 | 
  38 |             ENDDO
  39 |           ENDDO
  40 |         ENDDO
  41 |       ENDDO
  42 | 
  43 |       IF (model.eq.'TFSCK') READ(12,*) (dataref(iq),iq=1,8)
  44 | 
  45 |       CLOSE(12)
  46 | 
  47 |       END SUBROUTINE readtab
  48 |