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