wrfv2_fire/chem/KPP/kpp/kpp-2.1/util/tag2num.f90

   1 ! ****************************************************************
   2 !
   3 ! tag2num - convert equation tags to kpp reaction number
   4 !   Arguments :
   5 !      id        - string with the equation tag
   6 !
   7 ! ****************************************************************
   8
   9 ELEMENTAL INTEGER FUNCTION tag2num ( id )
  10
  11   USE KPP_ROOT_Monitor, ONLY: EQN_TAGS
  12
  13   CHARACTER(LEN=*), INTENT(IN) :: id
  14   INTEGER i
  15
  16   tag2num = 0 ! mz_rs_20050115
  17   DO i = 1, SIZE(EQN_TAGS)
  18     IF (TRIM(EQN_TAGS(i)) == TRIM(id)) THEN
  19       tag2num = i ! mz_rs_20050115
  20       EXIT
  21     ENDIF
  22   END DO
  23
  24 END FUNCTION tag2num
  25
  26 ! End of tag2num function
  27 ! ****************************************************************
  28