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[NAMELEN];
  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  char sub_string[NAMELEN];
  23  char *p_string;
  24  int  slen;
  25  int  nchem_opts = 0;
  26  int  chem_opts_cnt;
  27
  28
  29
  30
  31  ch_Makefile = fopen(org_Mf, "r" );
  32  t_Makefile = fopen(t_Mf, "w" );
  33
  34
  35  sprintf(  cp_command,"cp %s %s",t_Mf,Mf);
  36
  37  fprintf(t_Makefile,"#  \n");
  38  fprintf(t_Makefile,"# MANUAL CHANGES TO THIS FILE WILL BE LOST \n");
  39  fprintf(t_Makefile,"#  ... EDIT Makefile_org INSTEAD ...\n");
  40  fprintf(t_Makefile,"# this file was written by gen_kpp.c \n\n");
  41
  42
  43
  44   /* loop over lines in chem/Makefile */
  45    while ( fgets ( inln , NAMELEN , ch_Makefile ) != NULL ){
  46
  47      /* printf("%s ", inln ); */
  48           fprintf(t_Makefile, inln);
  49
  50           /* if ( strncmp(inln, "MODULES",6) == 0){  */
  51
  52           if ( strncmp(inln, "  module_data_sorgam",19) == 0){
  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           for ( p1 =   KPP_packs  ; p1 != NULL ; p1 = p1->next,nchem_opts++ ) {
  74
  75                p2 = p1->assoc_wrf_pack;
  76
  77                if ( p2 ) {
  78
  79                   strcpy( kname, p1->name );
  80
  81                   fprintf(t_Makefile, "module_kpp_%s_Parameters.o:  module_kpp_%s_Precision.o   \n\n",kname, kname );
  82                   fprintf(t_Makefile, "module_kpp_%s_Update_Rconst.o:  module_kpp_%s_Parameters.o   \n\n",kname, kname );
  83                   fprintf(t_Makefile, "module_kpp_%s_Jacobian.o:  module_kpp_%s_Parameters.o module_kpp_%s_JacobianSP.o   \n\n",kname, kname, kname );
  84                   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 );
  85                   fprintf(t_Makefile, "module_kpp_%s_interface.o: module_kpp_%s_Parameters.o module_kpp_%s_Precision.o module_kpp_%s_Integr.o  module_kpp_%s_Update_Rconst.o  module_wkppc_constants.o  \n\n",kname, kname, kname, kname, kname );
  86
  87                }
  88           }
  89
  90
  91           fprintf(t_Makefile, "module_wkkpc_constants.o:\n\n");
  92
  93           p_string = sub_string;
  94           chem_opts_cnt = 0;
  95           sprintf( sub_string,"kpp_mechanism_driver.o: " );
  96           for ( p1 =   KPP_packs  ; p1 != NULL ; p1 = p1->next ) {
  97                p2 = p1->assoc_wrf_pack;
  98                if ( p2 ) {
  99                   chem_opts_cnt++;
 100                   strcpy( kname, p1->name );
 101                   slen = strlen( sub_string );
 102                   sprintf( p_string+slen,"module_kpp_%s_interface.o ",kname );
 103                   slen = strlen( sub_string );
 104                   if( slen > 90 ) {
 105                     if( chem_opts_cnt < nchem_opts ) sprintf( p_string+slen,"\\");
 106                     fprintf(t_Makefile, "%s\n", sub_string );
 107                     sprintf( sub_string,"\t" );
 108                   }
 109                }
 110           }
 111           slen = strlen( sub_string );
 112           if( slen > 1 ) fprintf(t_Makefile, "%s\n\n", sub_string );
 113           }
 114
 115       if ( strncmp(inln, "OBJS",3) == 0){
 116         fprintf(t_Makefile, "\tkpp_mechanism_driver.o      \\\n");
 117
 118       }
 119     }
 120
 121
 122
 123    fclose( t_Makefile );
 124    fclose( ch_Makefile );
 125
 126
 127    system(cp_command);
 128
 129 }