File: pick-dir/rd_all_j.f90

    1       SUBROUTINE RD_ALL_J(Jchan,Fnj,Photolysis,Lverb,MAXJ,Nkj)
    2       USE KINETIC
    3       IMPLICIT NONE
    4 !
    5 !
    6 ! Dummy arguments
    7 !
    8       CHARACTER(200) :: Fnj
    9       INTEGER :: Jchan , Nkj
   10       LOGICAL :: Lverb
   11       INTEGER :: MAXJ
   12       TYPE (PHOTOLYSIS_RECORD) , DIMENSION(MAXJ) :: Photolysis
   13       INTENT (IN) Fnj , MAXJ
   14       INTENT (INOUT) Nkj
   15 !
   16 ! Local variables
   17 !
   18       INTEGER :: i , j
   19       LOGICAL :: lend
   20 !
   21 !-----------------------------------------------------------------------
   22 !
   23 !     written by:   David Lary
   24 !
   25 !     started:      7/1/1993
   26 !
   27 !     last updated: 22/1/2004
   28 !
   29 !----------------------------------------------------------------------
   30 !
   31 !     Reads in an AutoChem photolysis kinetic data file.
   32 !
   33 !----------------------------------------------------------------------
   34 !
   35       WRITE (6,*) TRIM(Fnj)
   36       OPEN (Jchan,FILE=TRIM(Fnj),STATUS="old')
   37 !
   38 !----------------------------------------------------------------------
   39 !
   40 !     Skip header
   41       DO i = 1 , 3
   42          READ (Jchan,*)
   43       ENDDO
   44 !
   45 !----------------------------------------------------------------------
   46 !
   47 !     Read photolysis reactions
   48       j = 0
   49       DO WHILE ( .TRUE. )
   50          CALL RD_J(Jchan,Photolysis(j+1),lend,Lverb,j)
   51          IF ( lend ) THEN
   52             Nkj = j
   53             PRINT * , "Read :' , Nkj , " photolysis reactions.'
   54             CLOSE (Jchan)
   55             EXIT
   56          ENDIF
   57       ENDDO
   58 !
   59 !----------------------------------------------------------------------
   60 !
   61       END SUBROUTINE RD_ALL_J