instituteDefaultEntries: added center=78 subcenter=0

src/institution.c

@@ -72,24 +72,25 @@ institute_t * instituteNewEntry ( void )
 static
 void instituteDefaultEntries ( void )
 {
-  cdiResH resH[12];
-  int i;
-
-  resH[0]  = ECMWF   = institutDef( 98,   0, "ECMWF",     "European Centre for Medium-Range Weather Forecasts");
-  resH[1]  = MPIMET  = institutDef( 98, 232, "MPIMET",    "Max-Planck-Institute for Meteorology");
-  resH[2]  =           institutDef( 98, 255, "MPIMET",    "Max-Planck-Institute for Meteorology");
-  resH[3]  =           institutDef( 98, 232, "MPIMET",    "Max-Planck Institute for Meteorology");
-  resH[4]  =           institutDef( 78, 255, "DWD",       "Deutscher Wetterdienst");
-  resH[5]  = MCH     = institutDef(215, 255, "MCH",       "MeteoSwiss");
-  resH[6]  =           institutDef(  7,   0, "NCEP",      "National Centers for Environmental Prediction");
-  resH[7]  =           institutDef(  7,   1, "NCEP",      "National Centers for Environmental Prediction");
-  resH[8]  =           institutDef( 60,   0, "NCAR",      "National Center for Atmospheric Research");
-  resH[9]  =           institutDef( 74,   0, "METOFFICE", "U.K. Met Office");
-  resH[10] =           institutDef( 97,   0, "ESA",       "European Space Agency");
-  resH[11] =           institutDef( 99,   0, "KNMI",      "Royal Netherlands Meteorological Institute");
+  cdiResH resH[64];
+  int i, n=0;
+
+  resH[n++]  = ECMWF   = institutDef( 98,   0, "ECMWF",     "European Centre for Medium-Range Weather Forecasts");
+  resH[n++]  = MPIMET  = institutDef( 98, 232, "MPIMET",    "Max-Planck-Institute for Meteorology");
+  resH[n++]  =           institutDef( 98, 255, "MPIMET",    "Max-Planck-Institute for Meteorology");
+  resH[n++]  =           institutDef( 98, 232, "MPIMET",    "Max-Planck Institute for Meteorology");
+  resH[n++]  =           institutDef( 78,   0, "DWD",       "Deutscher Wetterdienst");
+  resH[n++]  =           institutDef( 78, 255, "DWD",       "Deutscher Wetterdienst");
+  resH[n++]  = MCH     = institutDef(215, 255, "MCH",       "MeteoSwiss");
+  resH[n++]  =           institutDef(  7,   0, "NCEP",      "National Centers for Environmental Prediction");
+  resH[n++]  =           institutDef(  7,   1, "NCEP",      "National Centers for Environmental Prediction");
+  resH[n++]  =           institutDef( 60,   0, "NCAR",      "National Center for Atmospheric Research");
+  resH[n++]  =           institutDef( 74,   0, "METOFFICE", "U.K. Met Office");
+  resH[n++]  =           institutDef( 97,   0, "ESA",       "European Space Agency");
+  resH[n++]  =           institutDef( 99,   0, "KNMI",      "Royal Netherlands Meteorological Institute");
   /*     (void) institutDef(  0,   0, "IPSL", "IPSL (Institut Pierre Simon Laplace, Paris, France)"); */
 
-  for ( i = 0; i < 12 ; i++ )
+  for ( i = 0; i < n ; i++ )
     reshSetStatus(resH[i], &instituteOps, SUSPENDED);
 }