chem/KPP/util/wkc/get_wrf_jvals.c

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