chem/KPP/util/wkc/get_wrf_jvals.c

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