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