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

   1 #include <stdio.h>
   2
   3
   4 #include "protos.h"
   5 #include "protos_kpp.h"
   6 #include "kpp_data.h"
   7
   8
   9
  10
  11 int
  12 change_chem_Makefile (   )
  13 {
  14 knode_t * p1, * p2, * pm1;
  15  FILE * ch_Makefile, * t_Makefile;
  16  char inln[4096];
  17  char kname[NAMELEN];
  18  char * org_Mf = "chem/Makefile_org";
  19  char * t_Mf = "chem/Makefile.temp";
  20  char * Mf = "chem/Makefile";
  21  char cp_command[NAMELEN];
  22
  23
  24
  25
  26  ch_Makefile = fopen(org_Mf, "r" );
  27  t_Makefile = fopen(t_Mf, "w" );
  28
  29
  30   sprintf(  cp_command,"cp %s %s",t_Mf,Mf);
  31
  32  fprintf(t_Makefile,"#  \n");
  33  fprintf(t_Makefile,"# MANUAL CHANGES TO THIS FILE WILL BE LOST \n");
  34  fprintf(t_Makefile,"#  ... EDIT Makefile_org INSTEAD ...\n");
  35  fprintf(t_Makefile,"# this file was written by gen_kpp.c \n\n");
  36
  37
  38
  39   /* loop over lines in chem/Makefile */
  40    while ( fgets ( inln , 4096 , ch_Makefile ) != NULL ){
  41
  42
  43      /* printf("%s ", inln ); */
  44           fprintf(t_Makefile, inln);
  45
  46
  47
  48
  49           /* if ( strncmp(inln, "MODULES",6) == 0){  */
  50
  51           if ( strncmp(inln, "  module_data_sorgam",19) == 0){
  52
  53
  54               for ( p1 =   KPP_packs  ; p1 != NULL ; p1 = p1->next ) {
  55                p2 = p1->assoc_wrf_pack;
  56                if ( p2 ) {
  57
  58                   strcpy( kname, p1->name );
  59                  fprintf(t_Makefile, "  module_kpp_%s_Integr.o \\\n",kname );
  60                  fprintf(t_Makefile, "  module_kpp_%s_Precision.o \\\n",kname );
  61                  fprintf(t_Makefile, "  module_kpp_%s_Parameters.o \\\n",kname );
  62                  fprintf(t_Makefile, "  module_kpp_%s_Jacobian.o \\\n",kname );
  63                  fprintf(t_Makefile, "  module_kpp_%s_JacobianSP.o \\\n",kname );
  64                  fprintf(t_Makefile, "  module_kpp_%s_Update_Rconst.o \\\n",kname );
  65                  fprintf(t_Makefile, "  module_kpp_%s_interface.o \\\n",kname );
  66                }
  67               }
  68                  fprintf(t_Makefile, "  module_wkppc_constants.o \\\n");
  69           }
  70
  71           if ( strncmp(inln, "# DEPENDENCIES",14) == 0){
  72
  73
  74           for ( p1 =   KPP_packs  ; p1 != NULL ; p1 = p1->next ) {
  75
  76                p2 = p1->assoc_wrf_pack;
  77
  78                if ( p2 ) {
  79
  80
  81                   strcpy( kname, p1->name );
  82
  83                  fprintf(t_Makefile, "module_kpp_%s_Jacobian.o:  module_kpp_%s_JacobianSP.o   \n\n",kname, kname );
  84
  85                   fprintf(t_Makefile, "module_kpp_%s_Parameters.o:  module_kpp_%s_Precision.o   \n\n",kname, kname );
  86
  87                  fprintf(t_Makefile, "module_kpp_%s_Integr.o: module_kpp_%s_Parameters.o module_kpp_%s_Jacobian.o module_kpp_%s_JacobianSP.o  module_kpp_%s_Update_Rconst.o  module_wkppc_constants.o  \n\n",kname, kname, kname, kname, kname );
  88
  89                }
  90               }
  91
  92
  93           fprintf(t_Makefile, "module_wkkpc_constants.o:\n\n");
  94           fprintf(t_Makefile, "module_kpp_%s_interface.o:\n\n");
  95           }
  96
  97
  98
  99       if ( strncmp(inln, "OBJS",3) == 0){
 100         fprintf(t_Makefile, "\tkpp_mechanism_driver.o      \\\n");
 101
 102       }
 103     }
 104
 105
 106
 107    fclose( t_Makefile );
 108    fclose( ch_Makefile );
 109
 110
 111    system(cp_command);
 112
 113 }