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