chem/KPP/util/wkc/get_wrf_radicals.c

   1 #include <stdio.h>
   2 #include <string.h>
   3
   4 #include "protos.h"
   5 #include "protos_kpp.h"
   6 #include "registry.h"
   7 #include "data.h"
   8 #include "kpp_data.h"
   9
  10
  11
  12 int
  13 get_wrf_radicals ()
  14 {
  15
  16
  17   knode_t * q, * member;
  18   node_t *p ;
  19
  20
  21         q = new_knode( );
  22         q->next = NULL ;
  23          strcpy( q->name, "WRFC_radicals"  );
  24          add_knode_to_end( q , &(WRFC_radicals) );
  25
  26
  27
  28
  29
  30   for ( p =  Domain.fields ; p != NULL ; p = p->next )
  31   {
  32
  33       if ( !strncmp(  p->descrip ,"Radicals",8) )
  34         {
  35
  36           /* fprintf(stdout, " %s: %s  \n", p->descrip, p->dname); */
  37
  38            member = new_knode( ) ;
  39            strcpy( member->name , p->dname ) ;
  40            member->next = NULL ;
  41            add_knode_to_end( member , &(q->members) ) ;
  42
  43
  44         }
  45   }
  46
  47
  48
  49   return(0) ;
  50 }