wrfv2_fire/chem/KPP/util/wkc/get_wrf_radicals.c

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