#include <stdio.h>
#include <stdlib.h>
#include<sys/stat.h>
#include "uuid.h"
#include<unistd.h>
#include <string.h>
#include "cmor.h"
#include <netcdf.h>
#include <udunits2.h>
#include <time.h>
#include <errno.h>
#include <math.h>

#include <sys/types.h>
#define _POSIX_SOURCE
#include <unistd.h>

/* this is defining NETCDF4 variable if we are using NETCDF3 not used anywhere else*/

#ifndef NC_NETCDF4
#define NC_NETCDF4 0
#define NC_CLASSIC_MODEL 0
int nc_def_var_deflate(int i,int j,int k,int l, int m) {return 0;};
int nc_def_var_chunking(int i,int j,int k,size_t *l) {return 0;};
#endif


int USE_NETCDF_4;
int cleanup_varid=-1;

const char CMOR_VALID_CALENDARS[CMOR_N_VALID_CALS][CMOR_MAX_STRING] = { "gregorian","standard", "proleptic_gregorian","noleap","365_day","360_day","julian","none"};

cmor_dataset_def cmor_current_dataset;
cmor_table_t cmor_tables[CMOR_MAX_TABLES];
cmor_var_t cmor_vars[CMOR_MAX_VARIABLES];
cmor_axis_t cmor_axes[CMOR_MAX_AXES];
cmor_grid_t cmor_grids[CMOR_MAX_GRIDS];
char CMOR_PROJECT[5];
int CMOR_MODE;
int CMOR_TABLE;
int CMOR_VERBOSITY;
int CMOR_NETCDF_MODE;

int cmor_naxes;
int cmor_nvars;
int cmor_ntables;
int cmor_ngrids;

int cmor_nerrors;
int cmor_nwarnings;

int did_history = 0;

int CMOR_CREATE_SUBDIRECTORIES = 1;

char cmor_input_path[CMOR_MAX_STRING];
char cmor_traceback_info[CMOR_MAX_STRING];

/* is src in dest?*/

int cmor_stringinstring (char* dest, char* src) {
  /* returns 1 if dest contains the words of src.
     the end of a word is either a space, a period or null.
     
     this will not give the desired results if period is used
     internal to a word.
 */
  char* pstr=dest;
  while (pstr=strstr(pstr, src)) {
    /* if this word is at the beginning of msg or preceeded by a space */
    if (pstr==dest || pstr[-1]==' ') {
      /* if it isn't a substring match */
      if ((pstr[strlen(src)] == ' ') ||
          (pstr[strlen(src)] == 0) ||
	  (pstr[strlen(src)] == '.')) {
        /* then return 1 to indicate string found */
        return 1;
      }
    }
    pstr++;/* In which case, skip to the next char */
  }
  /* nothing like src is in dest, and so return the location of the end of string*/
  return 0;
}

void cmor_cat_unique_string (char* dest, char* src) {
  int offset;
  int spare_space;
  /* if this string is in msg */
  if (cmor_stringinstring(dest, src)) {
    /* do nothing */
  } else {
    if (offset=strlen(dest)) {
      strcat(dest+offset, " ");
      offset++;
      spare_space=CMOR_MAX_STRING-offset-1;
      strncat(dest+offset, src, spare_space);
    } else {
      strncpy(dest, src, CMOR_MAX_STRING);
    }
  }
}

void  cmor_check_forcing_validity(int table_id,char *value) {
  int i,j,n,found=0;
  char msg[CMOR_MAX_STRING];
  char astr[CMOR_MAX_STRING];
  char **bstr;


  if (cmor_tables[table_id].nforcings==0) return;

  strcpy(astr,value);
  found=0;
  for (i=0;i<strlen(astr);i++) {
    if (astr[i]==',') astr[i]=' ';
    /* removes everything  after first paranthesis */
    if (astr[i]=='(') astr[i]='\0';
  }
  cmor_convert_string_to_list(astr,'c',(void **)&bstr,&n);
  if (n==0) return;

  for (i=0;i<n;i++) {
    found=0;
    for(j=0;j<cmor_tables[table_id].nforcings;j++) {
      if (strcmp(bstr[i],cmor_tables[table_id].forcings[j])==0) {
	found=1;
	break;
      }
    }
    if (found==0) {
      sprintf(msg,"forcing attribute elt %i (%s) is not valid for table %s, valid values are:",i,bstr[i],cmor_tables[table_id].table_id);
      for(j=0;j<cmor_tables[table_id].nforcings;j++) {
	strncat(msg," ",CMOR_MAX_STRING-strlen(msg));
	strncat(msg,cmor_tables[table_id].forcings[j],CMOR_MAX_STRING-strlen(msg));
	strncat(msg,",",CMOR_MAX_STRING-strlen(msg));
      }
      msg[strlen(msg)-1]='\0';
      cmor_handle_error(msg,CMOR_CRITICAL);
    }
  }
  /* Ok now we need to clean up the memory allocations.... */
  for (i=0;i<n;i++) {
    free(bstr[i]);
  }
  free(bstr);
  return;
}

int cmor_check_expt_id(char *expt_id, int table_id, char *gbl_lng, char *gbl_sht) {
  int i,j,k,l,m;
  char msg[CMOR_MAX_STRING];
  char ctmp[CMOR_MAX_STRING];

  cmor_add_traceback("cmor_check_expt_id");
  j=0;
  for (i=0;i<=cmor_tables[table_id].nexps;i++) {
    k=strlen(expt_id);
    l = strlen(cmor_tables[table_id].expt_ids[i]);
    m = strlen(cmor_tables[table_id].sht_expt_ids[i]);
    if ((l>4)&&(k>4)) {
      strncpy(msg,&cmor_tables[table_id].expt_ids[i][strlen(cmor_tables[table_id].expt_ids[i])-4],4);
      msg[4]='\0';
    }
    else {
      strcpy(msg,"nope");
    }
    if (strcmp(msg,"XXXX")==0) { /* we have one of these weird expt nms thing... */
      /* ok now we can compare */
      if ((strncmp(cmor_tables[table_id].expt_ids[i],expt_id,l-4)==0) || 
	  (strncmp(cmor_tables[table_id].sht_expt_ids[i],expt_id,m-4)==0)) {
	j=1;
	l=strlen(cmor_tables[table_id].expt_ids[i]);
	strncpy(ctmp,cmor_tables[table_id].expt_ids[i],l-4);
	/* but we need to replace the last 4 char from X to the actual 4 dgits */
	strncpy(&ctmp[l-4],&expt_id[k-4],4); /* ok the sht_Exp id with the right digits */
	ctmp[l]='\0';
	/* Ok and now use this to reset the global attribute */
	cmor_set_cur_dataset_attribute_internal(gbl_lng,ctmp,0);
	l=strlen(cmor_tables[table_id].sht_expt_ids[i]);
	strncpy(ctmp,cmor_tables[table_id].sht_expt_ids[i],l-4);
	/* but we need to replace the last 4 char from X to the actual 4 dgits */
	strncpy(&ctmp[l-4],&expt_id[k-4],4); /* ok the sht_Exp id with the right digits */
	ctmp[l]='\0';
	/* Ok and now use this to reset the global attribute */
	cmor_set_cur_dataset_attribute_internal(gbl_sht,ctmp,1);
	strncpy(expt_id,ctmp,CMOR_MAX_STRING);
	break;
      }
    }
    else if (strcmp(msg,"DDHH")==0) { /* we have one of these weird expt nms thing... */
      /* ok now we can compare */
      if ((strncmp(cmor_tables[table_id].expt_ids[i],expt_id,l-10)==0) || 
	  (strncmp(cmor_tables[table_id].sht_expt_ids[i],expt_id,m-10)==0)) {
	j=1;
	l=strlen(cmor_tables[table_id].expt_ids[i]);
	strncpy(ctmp,cmor_tables[table_id].expt_ids[i],l-10);
	/* but we need to replace the last 10 char from X to the actual 10 dgits */
	strncpy(&ctmp[l-10],&expt_id[k-10],10); /* ok the sht_Exp id with the right digits */
	ctmp[l]='\0';
	/* Ok and now use this to reset the global attribute */
	cmor_set_cur_dataset_attribute_internal(gbl_lng,ctmp,0);
	l=strlen(cmor_tables[table_id].sht_expt_ids[i]);
	strncpy(ctmp,cmor_tables[table_id].sht_expt_ids[i],l-4);
	/* but we need to replace the last 4 char from X to the actual 4 dgits */
	strncpy(&ctmp[l-10],&expt_id[k-10],10); /* ok the sht_Exp id with the right digits */
	ctmp[l]='\0';
	/* Ok and now use this to reset the global attribute */
	cmor_set_cur_dataset_attribute_internal(gbl_sht,ctmp,1);
	strncpy(expt_id,ctmp,CMOR_MAX_STRING);
	break;
      }
    }
    else {
      if ((strncmp(cmor_tables[table_id].expt_ids[i],expt_id,CMOR_MAX_STRING)==0) 
	  || (strncmp(cmor_tables[table_id].sht_expt_ids[i],expt_id,CMOR_MAX_STRING)==0) ) {
	j=1;
	cmor_set_cur_dataset_attribute_internal(gbl_lng,cmor_tables[table_id].expt_ids[i],0);
	cmor_set_cur_dataset_attribute_internal(gbl_sht,cmor_tables[table_id].sht_expt_ids[i],1);
	strncpy(expt_id,cmor_tables[table_id].sht_expt_ids[i],CMOR_MAX_STRING); /* make sure it is the short id */
	break;
      }
    }
  } 
  cmor_pop_traceback();
  if (j==0) return 1;
  return 0;
}


int strncpytrim(char *out, char *in, int max) {
  int i,n,j,k;
  j=0;
  n=strlen(in);
  if (n>max)  n=max;
  while ((in[j]==' ') && (j<n)) {
    j++;
  }
  k=n-1;
  while ((in[k]==' ') && (k>0)) {
    k--;
  }
  for(i=j;i<=k;i++) {
    out[i-j]=in[i];
  }
  out[i-j]='\0';

  return 0;   
}

int strncattrim(char *in, char *add, int max) {
  int i,n,j,n2,k;
  j=0;
  n=strlen(add);
  n2=strlen(in);
  if (n>max) n=max;
  while ((add[j]==' ') && (j<n)) {
    j++;
  }
  k=n-1;
  while ((add[k]==' ') && (k>0)) {
    k--;
  }
  n2=strlen(in);
  for(i=j;i<=k;i++) {
    in[n2+i-j]=add[i];
  }
  in[n2+i-j]='\0';
  return 0;   
}

/* int strcmptrim(char *in1,char *in2) { */
/*   char tmp1[CMOR_MAX_STRING]; */
/*   char tmp2[CMOR_MAX_STRING]; */
/*   strncpytrim(&tmp1,in1,CMOR_MAX_STRING); */
/*   strncpytrim(&tmp2,in2,CMOR_MAX_STRING); */
/*   return strcmp(tmp1,tmp2); */
/* } */


int CMOR_HAS_BEEN_SETUP=0;
ut_system *ut_read=NULL;
FILE  *output_logfile;

void cmor_is_setup(void){
  extern int CMOR_HAS_BEEN_SETUP;
  char msg[CMOR_MAX_STRING];
  extern void cmor_handle_error(char error_msg[CMOR_MAX_STRING],int level);
  cmor_add_traceback("cmor_is_setup");
  if (CMOR_HAS_BEEN_SETUP==0) {
    snprintf(msg,CMOR_MAX_STRING,"You need to run cmor_setup before calling any cmor_function");
    cmor_handle_error(msg,CMOR_CRITICAL);
  }
  cmor_pop_traceback();
  return;
}

void cmor_add_traceback(char *name) {
  char tmp[CMOR_MAX_STRING];
/*   printf("ok entering traceback for: %i %s\n",strlen(cmor_traceback_info),name); */
  if (strlen(cmor_traceback_info)==0) {
    sprintf(cmor_traceback_info,"%s\n",name);
  }
  else {
    sprintf(tmp,"%s\ncalled from: %s",name,cmor_traceback_info);
    strncpy(cmor_traceback_info,tmp,CMOR_MAX_STRING);
  }
  return;
}
void cmor_pop_traceback(void) {
  int i;
  char tmp[CMOR_MAX_STRING];
  strcpy(tmp,"");
/*   printf("ok removing a traceback from ---%i---\n",strlen(cmor_traceback_info)); */
  for (i=0;i<strlen(cmor_traceback_info);i++) {
    if (strncmp(&cmor_traceback_info[i],"called from: ",13)==0) {
/*       printf("ok we have i at: %i and tb at: %s\n",i,cmor_traceback_info); */
/*       printf("ok we have i at: %i and tb at: %s\n",i,&cmor_traceback_info[i+13]); */
      strcpy(tmp,&cmor_traceback_info[i+13]);
      break;
    }
  }
  strcpy(cmor_traceback_info,tmp);
/*   printf("we are left with: --%i---\n",strlen(cmor_traceback_info)); */
  return;
}

int cmor_prep_units(char *uunits, char *cunits, ut_unit **user_units,ut_unit **cmor_units,cv_converter **ut_cmor_converter)
{
  extern ut_system *ut_read;
  char local_unit[CMOR_MAX_STRING];
  char msg[CMOR_MAX_STRING];
  extern void cmor_handle_error(char error_msg[CMOR_MAX_STRING],int level);
  cmor_add_traceback("cmor_prep_units");
  cmor_is_setup();
  *cmor_units = ut_parse(ut_read, cunits,UT_ASCII);
  if (ut_get_status() != UT_SUCCESS ) {
    snprintf(msg,CMOR_MAX_STRING,"Udunits: analyzing units from cmor (%s)",cunits);
    cmor_handle_error(msg,CMOR_CRITICAL);
    cmor_pop_traceback();
    return 1;
  }
  strncpy(local_unit,uunits,CMOR_MAX_STRING);
  ut_trim(local_unit,UT_ASCII);
  *user_units = ut_parse(ut_read, local_unit, UT_ASCII);
  if (ut_get_status() != UT_SUCCESS ) {
    snprintf(msg,CMOR_MAX_STRING,"Udunits: analyzing units from user (%s)",local_unit);
    cmor_handle_error(msg,CMOR_CRITICAL);
    cmor_pop_traceback();
    return 1;
  }
  if (ut_are_convertible(*cmor_units,*user_units)==0 ) {
    snprintf(msg,CMOR_MAX_STRING,"Udunits: cmor and user units are incompatible: %s and %s",cunits,uunits);
    cmor_handle_error(msg,CMOR_CRITICAL);
    cmor_pop_traceback();
    return 1;
  }
  *ut_cmor_converter=ut_get_converter(*user_units,*cmor_units);
  if (*ut_cmor_converter == NULL) {
  }
  if (ut_get_status() != UT_SUCCESS ) {
    snprintf(msg,CMOR_MAX_STRING,"Udunits: Error getting converter from %s to %s",cunits,local_unit);
    cmor_handle_error(msg,CMOR_CRITICAL);
    cmor_pop_traceback();
    return 1;
  }

  cmor_pop_traceback();
  return 0;
}

int cmor_have_NetCDF4(void) {
  char version[50];
  int major;
  strncpy(version,nc_inq_libvers(),50);
  sscanf(version,"%1d%*s",&major);
  if (major!=4) return 1;
  return 0;
}
int cmor_have_NetCDF41min(void) {
  char version[50];
  int major,minor;
  strncpy(version,nc_inq_libvers(),50);
  sscanf(version,"%1d%*c%1d%*s",&major,&minor);
  if (major>4) return 0;
  if (major<4) return 1;
  if (minor<1) return 1;
  return 0;
}
int cmor_have_NetCDF3(void) {
  char version[50];
  int major;
  strncpy(version,nc_inq_libvers(),50);
  if (version[0]!='"') return 1;
  sscanf(version,"%*c%1d%*s",&major);
  if (major!=3) return 1;
  return 0;
}
int cmor_have_NetCDF363(void) {
  char version[50];
  int major,minor,patch;
  strncpy(version,nc_inq_libvers(),50);
  sscanf(version,"%*c%1d%*c%1d%*c%1d%*s",&major,&minor,&patch);
  if ( (major==3) && (minor==6) && (patch==3)) return 0;
  return 1;
}

void cmor_handle_error(char error_msg[CMOR_MAX_STRING],int level)
{
  int i,n;
  char msg[CMOR_MAX_STRING];
  extern FILE *output_logfile;

  if (output_logfile == NULL) output_logfile = stderr;

  msg[0]='\0';
  if (CMOR_VERBOSITY!=CMOR_QUIET) {
    fprintf(output_logfile,"\n");
  }
  if (level == CMOR_WARNING) {
    cmor_nwarnings++; 
    if (CMOR_VERBOSITY!=CMOR_QUIET) {
#ifdef COLOREDOUTPUT
      fprintf (output_logfile,"%c[%d;%dm",0X1B,2,34);
#endif
      fprintf (output_logfile,"C Traceback:\nIn function: %s",cmor_traceback_info);
#ifdef COLOREDOUTPUT
      fprintf (output_logfile,"%c[%dm",0X1B,0);
#endif
    fprintf (output_logfile,"\n\n");
#ifdef COLOREDOUTPUT
      fprintf (output_logfile,"%c[%d;%d;%dm",0X1B,1,34,47);
#endif
      snprintf (msg,CMOR_MAX_STRING, "! Warning: %s  !",error_msg);
    }
  }
  else {
    cmor_nerrors++;
#ifdef COLOREDOUTPUT
    fprintf (output_logfile,"%c[%d;%d;%dm",0X1B,2,31,47);
#endif
    fprintf (output_logfile,"C Traceback:\nIn function: %s",cmor_traceback_info);
#ifdef COLOREDOUTPUT
    fprintf (output_logfile,"%c[%dm",0X1B,0);
#endif
    fprintf (output_logfile,"\n\n");
#ifdef COLOREDOUTPUT
    fprintf (output_logfile,"%c[%d;%d;%dm",0X1B,1,31,47);
#endif
    snprintf(msg,CMOR_MAX_STRING,"! Error: %s !",error_msg);
  }
  n = strlen(msg);
  if (CMOR_VERBOSITY!=CMOR_QUIET || level!=CMOR_WARNING) {
    for( i=0;i<n;i++) fprintf(output_logfile,"!");
    fprintf(output_logfile,"\n");
    fprintf(output_logfile,"!");
    for( i=0;i<n-2;i++) fprintf(output_logfile," ");
    fprintf(output_logfile,"!\n");
    fprintf(output_logfile,"%s\n",msg);
    fprintf(output_logfile,"!");
    for( i=0;i<n-2;i++) fprintf(output_logfile," ");
    fprintf(output_logfile,"!\n");
    for( i=0;i<n;i++) fprintf(output_logfile,"!");
#ifdef COLOREDOUTPUT
    fprintf (output_logfile,"%c[%dm",0X1B,0);
#endif
    fprintf (output_logfile,"\n\n");
  }
  if ((CMOR_MODE == CMOR_EXIT_ON_WARNING) || (level == CMOR_CRITICAL ) ) {
    /*if (cleanup_varid!=-1) remove(cmor_vars[cleanup_varid].current_path);*/
    exit(1);
  }
}


int cmor_convert_char_to_hyphen(char c)
{
  if ((c==' ') || (c=='_') || (c=='(') || (c==')') || (c=='.') || 
      (c==';') || (c==',') || (c=='[') || (c==']') || (c==':') ||
      (c=='/') || (c=='*') || (c=='?') || (c=='<') || (c=='>') ||
      (c=='"') || (c=='\'') || (c=='{') || (c=='}') || (c=='&'))
    return 1;
  return 0;
}

void substitute_chars_with_hyphens(char *strin, char *strout, char *name, int var_id) {
  char msg[CMOR_MAX_STRING];
  int i;

  /*strncpy(strin,strout,CMOR_MAX_STRING);*/

  for (i=0;i<strlen(strin);i++) {
    strout[i]=strin[i];
    if (cmor_convert_char_to_hyphen(strin[i])==1) {
      if (var_id!=-1) {
	snprintf(msg,CMOR_MAX_STRING,"writing variable %s (table %s), %s (%s) contains the character '%c' it will be replaced with a hyphen in the filename and output directories\n",cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,name,strin,strin[i]);
      }
      else {
	snprintf(msg,CMOR_MAX_STRING,"global attribute %s (%s) contains the character '%c' it will be replaced with a hyphen in output directories\n",name,strin,strin[i]);
      }
      cmor_handle_error(msg,CMOR_WARNING);
      strout[i]='-';
    }
  }
  strout[i]='\0';
  /* removes trailing "-" */
  for (i=strlen(strin)-1;i>0;i--) {
    if (strout[i]=='-') {
      strout[i]='\0';
    }
    else {
      break;
    }
  }
  return;
}



void cmor_reset_variable(int var_id) {
  extern cmor_var_t cmor_vars[];
  int j;
  cmor_vars[var_id].self=-1;
  cmor_vars[var_id].grid_id=-1;
  cmor_vars[var_id].sign=1;
  cmor_vars[var_id].zfactor=-1;
  cmor_vars[var_id].ref_table_id=-1;
  cmor_vars[var_id].ref_var_id=-1;
  cmor_vars[var_id].initialized=-1;
  cmor_vars[var_id].closed=0;
  cmor_vars[var_id].nc_var_id=-999;
  for (j=0;j<CMOR_MAX_VARIABLES;j++) cmor_vars[var_id].nc_zfactors[j]=-999;
  cmor_vars[var_id].nzfactor=0;
  cmor_vars[var_id].ntimes_written=0;
  for (j=0;j<10;j++) {
    cmor_vars[var_id].ntimes_written_coords[j]=-1;
    cmor_vars[var_id].associated_ids[j]=-1;
    cmor_vars[var_id].ntimes_written_associated[j]=0;
  }
  cmor_vars[var_id].time_nc_id=-999;
  cmor_vars[var_id].time_bnds_nc_id=-999;
  cmor_vars[var_id].id[0]='\0';
  cmor_vars[var_id].ndims=0;
  for (j=0;j<CMOR_MAX_DIMENSIONS;j++) {
    cmor_vars[var_id].singleton_ids[j]=-1; /* place holder for singleton axes ids */
    cmor_vars[var_id].axes_ids[j]=-1; /* place holder for singleton axes ids */
    cmor_vars[var_id].original_order[j]=-1; /* place holder for singleton axes ids */
  }
  for (j=0;j<CMOR_MAX_ATTRIBUTES;j++) {
    cmor_vars[var_id].attributes_values_char[j][0]='\0';
    cmor_vars[var_id].attributes_values_num[j]=-999.;
    cmor_vars[var_id].attributes_type[j]='\0';
    cmor_vars[var_id].attributes[j][0]='\0';
  }
  cmor_vars[var_id].nattributes=0;
  cmor_vars[var_id].type='\0';
  cmor_vars[var_id].itype='N';
  cmor_vars[var_id].missing=1.e20;
  cmor_vars[var_id].omissing=1.e20;
  cmor_vars[var_id].tolerance=1.e-4;
  cmor_vars[var_id].valid_min=1.e20;
  cmor_vars[var_id].valid_max=1.e20;
  cmor_vars[var_id].ok_min_mean_abs=1.e20;
  cmor_vars[var_id].ok_max_mean_abs=1.e20;
  cmor_vars[var_id].shuffle=0;
  cmor_vars[var_id].deflate=1;
  cmor_vars[var_id].deflate_level=1;
  cmor_vars[var_id].nomissing=1;
  cmor_vars[var_id].iunits[0]='\0';
  cmor_vars[var_id].ounits[0]='\0';
  cmor_vars[var_id].isbounds=0;
  cmor_vars[var_id].needsinit=1;
  cmor_vars[var_id].zaxis=-1;
  if (cmor_vars[var_id].values != NULL) free(cmor_vars[var_id].values);
  cmor_vars[var_id].values = NULL;
  cmor_vars[var_id].first_time=-999.;
  cmor_vars[var_id].last_time=-999.;
  cmor_vars[var_id].first_bound=1.e20;
  cmor_vars[var_id].last_bound=1.e20;
  cmor_vars[var_id].base_path[0]='\0';
  cmor_vars[var_id].current_path[0]='\0';
  cmor_vars[var_id].suffix[0]='\0';
  cmor_vars[var_id].suffix_has_date=0;
}

int cmor_setup(char *path,int *netcdf, int *verbosity, int *mode, char *logfile, int *create_subdirectories, char *arg_cmor_project)
{
  extern char CMOR_PROJECT[5];
  extern cmor_axis_t cmor_axes[];
  extern int CMOR_TABLE,cmor_ntables;
  extern ut_system *ut_read;
  ut_unit *dimlessunit=NULL,*perunit=NULL,*newequnit=NULL;
  ut_status myutstatus;
  extern cmor_dataset_def cmor_current_dataset;
  int i,j,ierr;
  char msg[CMOR_MAX_STRING];
  char msg2[CMOR_MAX_STRING];
  char tmplogfile[CMOR_MAX_STRING];
  uuid_t *myuuid;
  uuid_fmt_t fmt;
  void *myuuid_str=NULL;
  size_t uuidlen;
  struct stat buf;
  time_t lt;
  struct tm *ptr;
  extern FILE *output_logfile;
  extern int did_history;

  strcpy(cmor_traceback_info,"");
  cmor_add_traceback("cmor_setup");

  /* check if in mode CMIP5 (default, CMOR_PROJECT=0) or SPECS (CMOR_PROJECT=1) */
  if (strcmp(arg_cmor_project,"SPECS")==0) {
   strcpy(CMOR_PROJECT,"SPECS");
  }
  else {
   strcpy(CMOR_PROJECT,"CMIP5");
  }   
  /* ok we need to know if we are using NC3 or 4 */
  USE_NETCDF_4 = -1;
  if (cmor_have_NetCDF3()==0) {
    USE_NETCDF_4 = 0;
    /* Now we need to make sure it's 3.6.3 */
    if (cmor_have_NetCDF363()!=0) {
      sprintf(msg,"You are using an older version of NetCDF3 (%s), you need 3.6.3",nc_inq_libvers());
      cmor_handle_error(msg,CMOR_CRITICAL);
    }
  }
  else if (cmor_have_NetCDF4()==0) {
    USE_NETCDF_4 = 1;
    if (cmor_have_NetCDF41min()!=0) {
      sprintf(msg,"You are using a wrong version of NetCDF4 (%s), you need 4.1",nc_inq_libvers());
      cmor_handle_error(msg,CMOR_CRITICAL);
    }
  }
  else {
    sprintf(msg,"You are using a wrong version of NetCDF (%s), you need 3.6.3 or 4.1",nc_inq_libvers());
    cmor_handle_error(msg,CMOR_CRITICAL);
  }

  did_history=0;
  CMOR_HAS_BEEN_SETUP=1;
  CMOR_TABLE=-1;
  cmor_ngrids=-1;
  cmor_nvars=-1;
  cmor_naxes=-1;
  cmor_ntables=-1;
  cmor_nerrors = 0 ;
  cmor_nwarnings = 0 ;
  if (logfile==NULL) {
    output_logfile = NULL;
  }
  else {
#ifdef COLOREDOUTPUT
#undef COLOREDOUTPUT
#endif
    cmor_trim_string(logfile,tmplogfile);
/*     printf("got in : -%s-\n",logfile); */
/*     printf("got out: -%s-\n",tmplogfile); */
    output_logfile = NULL;
    output_logfile = fopen(tmplogfile,"r");
    if (output_logfile!=NULL) {
      /* logfile already exists need to rename it */
      /* Figure out the time */
      stat(tmplogfile,&buf);
      lt = buf.st_ctime;
      ptr = localtime(&lt);
      snprintf(msg,CMOR_MAX_STRING,"%s_%.4i-%.2i-%.2iT%.2i:%.2i:%.2i",tmplogfile,ptr->tm_year+1900,ptr->tm_mon+1,ptr->tm_mday,ptr->tm_hour,ptr->tm_min,ptr->tm_sec);
      fclose(output_logfile);
      rename(tmplogfile,msg);
      snprintf(msg2,CMOR_MAX_STRING,"Logfile %s already existed. Renamed to: %s",tmplogfile,msg);
      output_logfile = NULL;
      output_logfile = fopen(tmplogfile,"w");
      if (output_logfile == NULL) {
	snprintf(msg2,CMOR_MAX_STRING,"Could not open logfile %s for writing", tmplogfile);
	cmor_handle_error(msg2,CMOR_CRITICAL);
      }
      cmor_handle_error(msg2,CMOR_WARNING);
    }
    else {
      output_logfile = fopen(tmplogfile,"w");
      if (output_logfile == NULL) {
	snprintf(msg2,CMOR_MAX_STRING,"Could not open logfile %s for writing", tmplogfile);
	cmor_handle_error(msg2,CMOR_CRITICAL);
      }
    }
  }

  if (mode==NULL) {
    CMOR_MODE=CMOR_NORMAL;
  }
  else {
    if (*mode!=CMOR_EXIT_ON_WARNING && *mode!=CMOR_EXIT_ON_MAJOR && *mode!=CMOR_NORMAL ) {
      snprintf(msg,CMOR_MAX_STRING,"exit mode can be either CMOR_EXIT_ON_WARNING CMOR_NORMAL or CMOR_EXIT_ON_MAJOR");
      cmor_handle_error(msg,CMOR_CRITICAL);
    }
    CMOR_MODE=*mode;
  }
  if (verbosity==NULL) {
    CMOR_VERBOSITY = CMOR_NORMAL;
  }
  else {
    if (*verbosity!=CMOR_QUIET && *verbosity!=CMOR_NORMAL ) {
      snprintf(msg,CMOR_MAX_STRING,"verbosity mode can be either CMOR_QUIET or CMOR_NORMAL");
      cmor_handle_error(msg,CMOR_NORMAL);
    }
    CMOR_VERBOSITY=*verbosity;
  }
  if (netcdf == NULL) {
    CMOR_NETCDF_MODE = CMOR_PRESERVE;
  }
  else {
    if (*netcdf!=CMOR_PRESERVE_4 && *netcdf!=CMOR_APPEND_4 && *netcdf!=CMOR_REPLACE_4 && *netcdf!=CMOR_PRESERVE_3 && *netcdf!=CMOR_APPEND_3 && *netcdf!=CMOR_REPLACE_3) {
      snprintf(msg,CMOR_MAX_STRING,"file mode can be either CMOR_PRESERVE, CMOR_APPEND, CMOR_REPLACE, CMOR_PRESERVE_4, CMOR_APPEND_4, CMOR_REPLACE_4, CMOR_PRESERVE_3, CMOR_APPEND_3 or CMOR_REPLACE_3");
      cmor_handle_error(msg,CMOR_CRITICAL);
    }
    CMOR_NETCDF_MODE = *netcdf;
  }

  /* Make sure we are not trying to use NETCDF4 mode while linked against NetCDF3 */
  if (((CMOR_NETCDF_MODE==CMOR_PRESERVE_4)||(CMOR_NETCDF_MODE==CMOR_REPLACE_4)||(CMOR_NETCDF_MODE==CMOR_APPEND_4)) && (USE_NETCDF_4==0)) {
    sprintf(msg,"You are trying to use a NetCDF4 mode but linked against NetCDF3 libraries");
    cmor_handle_error(msg,CMOR_CRITICAL);
  }


  if ((path == NULL) || (strcmp(path,"")==0 )) {
    strncpy(cmor_input_path,".",CMOR_MAX_STRING);
  }
  else {
    strncpytrim(cmor_input_path,path,CMOR_MAX_STRING);
  }
  for (i=0;i<CMOR_MAX_VARIABLES;i++) {
    cmor_reset_variable(i);
  }

  for (i=0;i<CMOR_MAX_AXES;i++) {
    cmor_axes[i].ref_table_id=-1;
    cmor_axes[i].ref_axis_id=-1;
    cmor_axes[i].isgridaxis=-1;
    cmor_axes[i].axis='\0';
    cmor_axes[i].iunits[0]='\0';
    cmor_axes[i].id[0]='\0';
    if (cmor_axes[i].values != NULL) free(cmor_axes[i].values);
    cmor_axes[i].values = NULL;
    if (cmor_axes[i].bounds != NULL) free(cmor_axes[i].bounds);
    cmor_axes[i].bounds = NULL;
    if (cmor_axes[i].cvalues != NULL) {
      for (j=0;j<cmor_axes[i].length;j++) {
	if (cmor_axes[i].cvalues[j]!=NULL) {
	  free(cmor_axes[i].cvalues[j]);
	  cmor_axes[i].cvalues[j]=NULL;
	}
      }
      free(cmor_axes[i].cvalues);
    }
    cmor_axes[i].cvalues = NULL;
    cmor_axes[i].length=0;
    cmor_axes[i].revert=1; /* 1 means no reverse -1 means reverse */
    cmor_axes[i].offset=0;
    cmor_axes[i].type='\0';
    for (j=0;j<CMOR_MAX_ATTRIBUTES;j++) {
      cmor_axes[i].attributes_values_char[j][0]='\0'; 
      cmor_axes[i].attributes_values_num[j]=-999.; 
      cmor_axes[i].attributes_type[j]='\0'; 
      cmor_axes[i].attributes[j][0]='\0'; 
    }
    cmor_axes[i].nattributes=0;
    cmor_axes[i].hybrid_in=0;
    cmor_axes[i].hybrid_out=0;
    cmor_axes[i].store_in_netcdf = 1;
    ierr = cmor_set_axis_attribute(i,"units",'c',"");
    ierr = cmor_set_axis_attribute(i,"interval",'c',"");
  }

  if (create_subdirectories != NULL) {
    CMOR_CREATE_SUBDIRECTORIES = *create_subdirectories;
  }

  if ((CMOR_CREATE_SUBDIRECTORIES!=1) && (CMOR_CREATE_SUBDIRECTORIES!=0)) {
    snprintf(msg,CMOR_MAX_STRING,"cmor_setup: create_subdirectories must be 0 or 1");
    cmor_handle_error(msg,CMOR_CRITICAL);
  }

  /* initialize the udunits */
  /*   printf("ok init utread\n"); */
  if (ut_read!=NULL) {
    ut_free_system(ut_read);
  }
  ut_set_error_message_handler(ut_ignore);
  ut_read = ut_read_xml(NULL);
  if (ut_get_status() != UT_SUCCESS) {
    snprintf(msg,CMOR_MAX_STRING,"Udunits: Error reading units system");
    cmor_handle_error(msg,CMOR_CRITICAL);
  }
  ut_set_error_message_handler(ut_ignore);
  if (newequnit!= NULL) ut_free(newequnit);
  newequnit = ut_new_base_unit(ut_read);
  if (ut_get_status() != UT_SUCCESS) {
    snprintf(msg,CMOR_MAX_STRING,"Udunits: creating dimlessnew base unit");
    cmor_handle_error(msg,CMOR_CRITICAL);
  }
  myutstatus = ut_map_name_to_unit("eq",UT_ASCII,newequnit);
  if (myutstatus != UT_SUCCESS) {
    snprintf(msg,CMOR_MAX_STRING,"Udunits: Error mapping dimless 'eq' unit");
    cmor_handle_error(msg,CMOR_CRITICAL);
  }
  if (dimlessunit!= NULL) ut_free(dimlessunit);
  dimlessunit = ut_new_dimensionless_unit(ut_read);
  if (ut_get_status() != UT_SUCCESS) {
    snprintf(msg,CMOR_MAX_STRING,"Udunits: creating dimless unit");
    cmor_handle_error(msg,CMOR_CRITICAL);
  }
  myutstatus = ut_map_name_to_unit("dimless",UT_ASCII,dimlessunit);
  if (myutstatus != UT_SUCCESS) {
    snprintf(msg,CMOR_MAX_STRING,"Udunits: Error mapping dimless unit");
    cmor_handle_error(msg,CMOR_CRITICAL);
  }
  if (perunit!=NULL) ut_free(perunit);
  perunit = ut_scale(.01,dimlessunit);
  if (myutstatus != UT_SUCCESS) {
    snprintf(msg,CMOR_MAX_STRING,"Udunits: Error creating percent unit");
    cmor_handle_error(msg,CMOR_CRITICAL);
  }
  myutstatus = ut_map_name_to_unit("%",UT_ASCII,perunit);
  if (myutstatus != UT_SUCCESS) {
    snprintf(msg,CMOR_MAX_STRING,"Udunits: Error mapping percent unit");
    cmor_handle_error(msg,CMOR_CRITICAL);
  }
  /* initialized dataset */
  for (i=0;i<CMOR_MAX_ATTRIBUTES;i++) {
    cmor_current_dataset.attributes_names[i][0]='\0';
    cmor_current_dataset.attributes_values[i][0]='\0';
  }
  cmor_current_dataset.nattributes=0;
  cmor_current_dataset.realization=0;
  cmor_current_dataset.leap_year=0;
  cmor_current_dataset.leap_month=0;
  cmor_current_dataset.associate_file=0;
  cmor_current_dataset.associated_file=-1;
  /* generates a unique id */
  uuid_create(&myuuid);
  uuid_make(myuuid,4);
  myuuid_str = NULL;
  fmt = UUID_FMT_STR;
  uuid_export(myuuid,fmt,&myuuid_str,&uuidlen);
  strncpy(cmor_current_dataset.tracking_id,(char *)myuuid_str,CMOR_MAX_STRING);
  free(myuuid_str);
  uuid_destroy(myuuid);
  strncpy(cmor_current_dataset.associated_file_name,"",CMOR_MAX_STRING);
  for (i=0;i<12;i++) cmor_current_dataset.month_lengths[i]=0;
  cmor_current_dataset.initiated=0;

  for (i=0;i<CMOR_MAX_GRIDS;i++) {
    strncpy(cmor_grids[i].mapping,"",CMOR_MAX_STRING);
    cmor_grids[i].ndims=0;
    cmor_grids[i].nattributes=0;
    for(j=0;j<CMOR_MAX_GRID_ATTRIBUTES;j++) {
      cmor_grids[i].attributes_values[j]=1.e20;
      cmor_grids[i].attributes_names[j][0]='\0';
    }

    if (cmor_grids[i].lats!=NULL) free(cmor_grids[i].lats);
    if (cmor_grids[i].lons!=NULL) free(cmor_grids[i].lons);
    if (cmor_grids[i].blats!=NULL) free(cmor_grids[i].blats);
    if (cmor_grids[i].blons!=NULL) free(cmor_grids[i].blons);
/*     if (cmor_grids[i].area!=NULL) free(cmor_grids[i].area); */

    cmor_grids[i].lats  = NULL;
    cmor_grids[i].lons  = NULL;
    cmor_grids[i].blats = NULL;
    cmor_grids[i].blons = NULL;
/*     cmor_grids[i].area  = NULL; */

    cmor_grids[i].istimevarying=0;
    cmor_grids[i].nvertices=0;

    for (j=0;j<6;j++) cmor_grids[i].associated_variables[j]=-1;
  }
  cmor_pop_traceback();
  return 0;
}

int cmor_put_nc_num_attribute(int ncid,int nc_var_id,char *name, char type, double value, char *var_name) {
  char msg[CMOR_MAX_STRING];
  int ierr;
  cmor_add_traceback("cmor_put_nc_num_attribute");
  ierr = 0;
  if (type == 'i') {
    ierr = nc_put_att_double(ncid,nc_var_id,name,NC_INT,1,&value);
  }
  else if (type == 'l') {
    ierr = nc_put_att_double(ncid,nc_var_id,name,NC_INT,1,&value);
  }
  else if (type == 'f') {
    ierr = nc_put_att_double(ncid,nc_var_id,name,NC_FLOAT,1,&value);
  }
  else if (type == 'd') {
    ierr = nc_put_att_double(ncid,nc_var_id,name,NC_DOUBLE,1,&value);
  }
  if (ierr != NC_NOERR) {
    snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i: %s) setting numerical attribute %s on variable %s",ierr,nc_strerror(ierr),name,var_name);
    cmor_handle_error(msg,CMOR_CRITICAL);
  }
  cmor_pop_traceback();
  return ierr;
}
int cmor_put_nc_char_attribute(int ncid,int nc_var_id,char *name,char *value,char *var_name) {
  int  k,ierr;
  char msg[CMOR_MAX_STRING];
  ierr=0;
  cmor_add_traceback("cmor_put_nc_char_attribute");
  k = strlen(value);
  if (k!=0) {
    value[k]='\0';
    ierr = nc_put_att_text(ncid,nc_var_id,name,k+1,value);
    if (ierr != NC_NOERR) {
      snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i: %s) setting attribute: '%s' (='%s') on variable (%s)",ierr,nc_strerror(ierr),name,value,var_name);
    cmor_handle_error(msg,CMOR_CRITICAL);
    }
  }
  cmor_pop_traceback();
  return ierr;
}

int cmor_set_cur_dataset_attribute(char *name, char *value, int optional) {
  char msg[CMOR_MAX_STRING];
  cmor_add_traceback("cmor_set_cur_dataset_attribute_internal");
  /* We need to make sure it is not an attribute that can be set via a call to cmor_dataset */
  if (
      (strcmp(name,"tracking_id")==0) ||
      (strcmp(name,"product")==0) ||
      (strcmp(name,"creation_date")==0) ||
      (strcmp(name,"table_id")==0) ||
      (strcmp(name,"modeling_realm")==0) ||
      (strcmp(name,"experiment_id")==0) ||
      (strcmp(name,"institution")==0) ||
      (strcmp(name,"source")==0) ||
      (strcmp(name,"calendar")==0) ||
      (strcmp(name,"realization")==0) ||
      (strcmp(name,"contact")==0) ||
      (strcmp(name,"history")==0) ||
      (strcmp(name,"comment")==0) ||
      (strcmp(name,"references")==0) ||
      (strcmp(name,"model_id")==0) ||
      (strcmp(name,"forcing")==0) ||
      (strcmp(name,"initialization_method")==0) ||
      (strcmp(name,"physics_version")==0) ||
      (strcmp(name,"institute_id")==0) || 
      (strcmp(name,"parent_experiment_id")==0) ||
      (strcmp(name,"branch_time")==0) ||
      (strcmp(name,"parent_experiment_rip")==0) ||
      (strcmp(name,"initialization_description")==0 && strcmp(CMOR_PROJECT,"SPECS")==0) || 
      (strcmp(name,"forecast_reference_time")==0 && strcmp(CMOR_PROJECT,"SPECS")==0) ||
      (strcmp(name,"associated_model")==0 && strcmp(CMOR_PROJECT,"SPECS")==0) ||
      (strcmp(name,"physics_description")==0 && strcmp(CMOR_PROJECT,"SPECS")==0) ||
      (strcmp(name,"associated_experiment")==0 && strcmp(CMOR_PROJECT,"SPECS")==0) ||
//      (strcmp(name,"series")==0 && strcmp(CMOR_PROJECT,"SPECS")==0) ||
      (strcmp(name,"parent_experiment")==0) 
      ) {
    snprintf(msg,CMOR_MAX_STRING,"you are trying to set dataset attribute: %s this must be set via a call to cmor_dataset or is set internally by CMOR via the tables",name);
    cmor_handle_error(msg,CMOR_NORMAL);
    cmor_pop_traceback();
    return 1;
  }
  cmor_pop_traceback();
  return cmor_set_cur_dataset_attribute_internal(name,value,optional);
}
int cmor_set_cur_dataset_attribute_internal(char *name, char *value, int optional) {
  int i,n;
  char msg[CMOR_MAX_STRING];
  extern cmor_dataset_def cmor_current_dataset;
  cmor_add_traceback("cmor_set_cur_dataset_attribute_internal");
  cmor_is_setup();

  cmor_trim_string(value,msg);
/*  puts("very beginning1");*/
  if ((int)strlen(name)>CMOR_MAX_STRING) {
    snprintf(msg,CMOR_MAX_STRING,"CMOR Dataset error, attribute name: %s; length (%i) is greater than limit: %i", name, (int)strlen(name),CMOR_MAX_STRING);
    cmor_handle_error(msg,CMOR_NORMAL);
    cmor_pop_traceback();
    return 1;
  }
  if ((value==NULL) || (msg[0]=='\0')) {
    if (optional==1) {
      cmor_pop_traceback();
      return 0;
    }
    else {
      snprintf(msg,CMOR_MAX_STRING,"CMOR Dataset error, required attribute %s was not passed or blanked", name);
      cmor_handle_error(msg,CMOR_CRITICAL);
      cmor_pop_traceback();
      return 1;
    }
  }
/*  puts("begin");*/
  cmor_trim_string(name,msg);
  n = cmor_current_dataset.nattributes;
  for (i=0;i<=cmor_current_dataset.nattributes;i++) { 
    if (strcmp(msg,cmor_current_dataset.attributes_names[i])==0) {
      n=i;
      cmor_current_dataset.nattributes-=1;
      break;
    }
  }
  if (n>=CMOR_MAX_ATTRIBUTES) {
    sprintf(msg,"Setting dataset attribute: %s, we already have %i elements set which is the max, this element won't be set",name,CMOR_MAX_ELEMENTS);
    cmor_handle_error(msg,CMOR_NORMAL);
    cmor_pop_traceback();
    return 1;
  }
  strncpy(cmor_current_dataset.attributes_names[n],msg,CMOR_MAX_STRING);
/*  printf("%i %s %s \n",cmor_current_dataset.nattributes,"name:",cmor_current_dataset.attributes_names[n]);*/
  cmor_trim_string(value,msg);
  strncpytrim(cmor_current_dataset.attributes_values[n],msg,CMOR_MAX_STRING);
  cmor_current_dataset.nattributes+=1;
  cmor_pop_traceback();
  return 0;
}
int cmor_get_cur_dataset_attribute(char *name, char *value) {
  int i,n;
  char msg[CMOR_MAX_STRING];
  extern cmor_dataset_def cmor_current_dataset;
  cmor_add_traceback("cmor_get_cur_dataset_attribute");
  cmor_is_setup();
  if (strlen(name)>CMOR_MAX_STRING) {
    snprintf(msg,CMOR_MAX_STRING,"CMOR Dataset: %s length is greater than limit: %i", name, CMOR_MAX_STRING);
    cmor_handle_error(msg,CMOR_NORMAL);
    cmor_pop_traceback();
    return 1;
  }
  n = -1;
  for (i=0;i<=cmor_current_dataset.nattributes;i++) { 
    if (strcmp(name,cmor_current_dataset.attributes_names[i])==0) n=i;
  }
  if (n==-1) {
    snprintf(msg,CMOR_MAX_STRING,"CMOR Dataset: current dataset does not have attribute : %s",name);
    cmor_handle_error(msg,CMOR_NORMAL);
    cmor_pop_traceback();
    return 1;
  }
  strncpy(value,cmor_current_dataset.attributes_values[n],CMOR_MAX_STRING);
  cmor_pop_traceback();
  return 0;
}
void cmor_has_required_global_attributes(int table_id) {
  int i,j,n,found;
  char msg[CMOR_MAX_STRING];
  char msg2[CMOR_MAX_STRING];
  char ctmp[CMOR_MAX_STRING];
  char expt_id[CMOR_MAX_STRING];
  cmor_add_traceback("cmor_has_required_global_attributes");
  if (cmor_tables[table_id].required_gbl_att[0]=='\0') {
    cmor_pop_traceback();
    return; /* not required */
  }
  cmor_get_cur_dataset_attribute("experiment_id",expt_id);
  /* ok we want to make sure it is the sht id */
  for (j=0;j<=cmor_tables[table_id].nexps;j++) {
    if (strcmp(expt_id,cmor_tables[table_id].expt_ids[j])==0) {
      strncpy(expt_id,cmor_tables[table_id].sht_expt_ids[j],CMOR_MAX_STRING);
      break;
    }
  }


  n =strlen(cmor_tables[table_id].required_gbl_att);

  msg[0]='\0';
  j=0;
  i=0;
  msg2[0]='\0';
  while (i<n) {
    while((cmor_tables[table_id].required_gbl_att[i]!=' ') && (cmor_tables[table_id].required_gbl_att[i]!='\0'))  {
      msg[j]=cmor_tables[table_id].required_gbl_att[i];
      msg[j+1]='\0';
      j++;
      i++;
    }
    i++;
    found = 0 ;
    /* for (j=0;j<=cmor_tables[table_id].nexps;j++) { */
    /*   if (strcmp(msg,cmor_tables[table_id].sht_expt_ids[j])==0) { */
    /* 	found = 1; */
    /* 	break; */
    /*   } */
    /* } */

    for (j=0;j<cmor_current_dataset.nattributes;j++) {
      if (strcmp(msg,cmor_current_dataset.attributes_names[j])==0) {
	cmor_get_cur_dataset_attribute(msg,ctmp);
	if (strcmp(ctmp,"not specified")!=0) {
	  found = 1;
	  break;
	}
      }
    }
    /* if (found == 0) { /\* now we check if it was actually required for this exp *\/ */
    /*   found = 1; */
    /*   for (j=0;j<=cmor_tables[table_id].nexps;j++) { */
    /* 	/\* msg2 is the previous keyword, i.e possible the sht_expt_id *\/ */
    /* 	if (strcmp(msg2,expt_id)==0) { */
    /* 	  /\* it is a match, therefore it WAS indeed required for this dataset *\/ */
    /* 	  found = 0; */
    /* 	  break; */
    /* 	} */
    /*   } */
    /* } */
    if (found == 0) {
      snprintf(ctmp,CMOR_MAX_STRING,"Required global attribute %s is missing please check call(s) to cmor_dataset and/or cmor_set_cur_dataset_attribute",msg);
      cmor_handle_error(ctmp,CMOR_CRITICAL);
    }
    strncpy(msg2,msg,CMOR_MAX_STRING);
    j=0;
  }
  cmor_pop_traceback();
  return;
}

int cmor_is_required_global_attribute(char *name, int table_id) {
  int i,j,n,req;
  char msg[CMOR_MAX_STRING];
  cmor_add_traceback("cmor_is_required_global_attribute");
  if (cmor_tables[table_id].required_gbl_att[0]=='\0') {
    cmor_pop_traceback();
    return 1; /* not required */
  }

  n =strlen(cmor_tables[table_id].required_gbl_att);

  msg[0]='\0';
  i=0;
  j=0;
  req = 1;
  while (i<n) {
    while((cmor_tables[table_id].required_gbl_att[i]!=' ')&&(cmor_tables[table_id].required_gbl_att[i]!='\0'))  {
      msg[j]=cmor_tables[table_id].required_gbl_att[i];
      msg[j+1]='\0';
      j++;
      i++;
    }
    i++;
    j=0;
    if (strcmp(msg,name)==0) {
      req = 0;
      i=n;
    }
  }
  cmor_pop_traceback();
  return req;
}

int cmor_has_cur_dataset_attribute(char *name) {
  int i,n;
  char msg[CMOR_MAX_STRING];
  extern cmor_dataset_def cmor_current_dataset;
  cmor_add_traceback("cmor_has_cur_dataset_attribute");
  cmor_is_setup();
  if ((int)strlen(name)>CMOR_MAX_STRING) {
    snprintf(msg,CMOR_MAX_STRING,"CMOR Dataset: attribute name (%s) length (%i) is greater than limit: %i", name, (int)strlen(name), CMOR_MAX_STRING);
    cmor_handle_error(msg,CMOR_NORMAL);
    cmor_pop_traceback();
    return 1;
  }
  n = -1;
  for (i=0;i<=cmor_current_dataset.nattributes;i++) { 
    if (strcmp(name,cmor_current_dataset.attributes_names[i])==0) n=i;
  }
  if (n==-1) {
    cmor_pop_traceback();
    return 1;
  }
  cmor_pop_traceback();
  return 0;
}

int cmor_dataset(char *outpath, 
		 char *experiment_id,
		 char *institution, 
		 char *source,   
		 char *calendar, 
		 int realization, 
		 char *contact, 
		 char *history, 
		 char *comment, 
		 char *references,	 
		 int leap_year, 
		 int leap_month, 
		 int month_lengths[12],
		 char *model_id,
		 char *forcing,
		 int initialization_method,
		 int *physics_version,
		 char *institute_id,
		 char *parent_experiment_id,
         	 double *branch_time,
         	 char *project_id, 
	     	 char *initialization_description,  
		 char *forecast_reference_time,  
         	 char *associated_model,  
         	 char *physics_description,
         	 char *associated_experiment,
//		 char *series,   
		 char *parent_experiment_rip)
{
  extern cmor_dataset_def cmor_current_dataset;
  char msg[CMOR_MAX_STRING];
  char temp[CMOR_MAX_STRING];
  int i,found;
  struct stat buf;
  FILE *test_file=NULL;
  extern FILE *output_logfile;
  cmor_add_traceback("cmor_dataset");
  cmor_is_setup();
  sprintf(temp,"%d",realization);



//
//  printf( "CMOR PROJECT %s\n",CMOR_PROJECT );

//  printf( "RELIZATION %s\n",temp );
//  printf( "RELIZATION %d\n",realization );
//  printf( "MODEL ID %s\n",model_id );

//  printf( "FORCING %s\n",forcing );
//  printf( "INI METHOD  %d\n",initialization_method );
//  printf( "PHY VERSION %d\n",*physics_version );
//  printf( "INST ID %s\n",institute_id );
//  printf( "PAR EXP ID %s\n",parent_experiment_id );
//  printf( "BRANCH TIME %f\n",branch_time );

//  printf( "PROJ_ID from CMOR %s\n",project_id );
//  printf( "INI_DESC from CMOR %s\n",initialization_description );
//  printf( "F_REF_TIME from CMOR %s\n",forecast_reference_time );
//  printf( "ASSOC_MODEL from CMOR %s\n",associated_model );
//  printf( "PHY_DESC from CMOR %s\n",physics_description );
//  printf( "SERIES from CMOR %s\n",series );
//  printf( "PAR EXP RIP from CMOR %s\n",parent_experiment_rip );



  strcpy(CMOR_PROJECT,"SPECS");
  if (output_logfile == NULL) output_logfile = stderr;
  if(strcmp(CMOR_PROJECT,"SPECS")==0) {
   fprintf(output_logfile,"CMOR-SPECS mode activated");
  }
  else {
   fprintf(output_logfile,"No specs keyword specified in call to cmor_setup fucntion => assume CMIP5 mode required (default)");
  }
  strncpytrim(cmor_current_dataset.outpath,outpath,CMOR_MAX_STRING);
/*  printf("%s %s \n","institution:", institution);*/
  cmor_set_cur_dataset_attribute_internal("institution",institution,0);
/*  puts("after set cur_dataset");*/
/* parent_experiment_rip=institution;*/
  /* Very first thing is to make sure the output path does exist */
  if (stat(cmor_current_dataset.outpath,&buf)==0) {
/*  puts("in 1st if");*/
/*  printf("%s %s \n","peip", parent_experiment_rip);*/
    if (S_ISREG(buf.st_mode)!=0) {
/*  puts("in 2nd if");*/
      sprintf(msg,"You defined your output directory to be: '%s', but it appears to be a regular file not a directory",cmor_current_dataset.outpath);
      cmor_handle_error(msg,CMOR_CRITICAL);
    }
    else if (S_ISDIR(buf.st_mode)==0) {
      sprintf(msg,"You defined your output directory to be: '%s', but it appears to be a special file not a directory",cmor_current_dataset.outpath);
      cmor_handle_error(msg,CMOR_CRITICAL);
    }
    /* ok if not root then test permssions */
    if (getuid()!=0) {
/*  puts("in 3rd if");*/
      strcpy(msg,cmor_current_dataset.outpath);
      strncat(msg,"/tmp.cmor.test",CMOR_MAX_STRING);
      test_file = fopen(msg,"w");
      if (test_file == NULL) {
/*  puts("in 4th if");*/

      /* if (buf.st_uid == getuidi()) { */
      /* 	if (!((buf.st_mode & S_IRUSR) && (buf.st_mode & S_IWUSR))) { */
      /* 	  sprintf(msg,"You defined your output directory to be: '%s', but you do not have read/write permissions on it",cmor_current_dataset.outpath); */
      /* 	  cmor_handle_error(msg,CMOR_CRITICAL); */
      /* 	} */
      /* } */
      /* else if (buf.st_gid == getgid()) { */
      /* 	if (!((buf.st_mode & S_IRGRP) && (buf.st_mode & S_IWGRP))) { */
      /* 	  sprintf(msg,"You defined your output directory to be: '%s', but you do not have read/write permissions on it",cmor_current_dataset.outpath); */
      /* 	  cmor_handle_error(msg,CMOR_CRITICAL); */
      /* 	} */
      /* } else if (!((buf.st_mode & S_IROTH) && (buf.st_mode & S_IWOTH))) { */
	sprintf(msg,"You defined your output directory to be: '%s', but you do not have read/write permissions on it",cmor_current_dataset.outpath);
	cmor_handle_error(msg,CMOR_CRITICAL);
      }
      else {
/*  puts("in 5th if");*/
	fclose(test_file);
/*  puts("in 5th if2");*/
	remove(msg);
/*  puts("in 5th if3");*/
      }
      /* /\* Ok now we need to see if we can read/write/access the directory *\/ */
      /* if (buf.st_uid == getuid()) { */
      /*   /\* ok user is owner of the directory *\/ */
      /*   printf("ok you own it, flag is: %i\n */
    }
  }
  else if (errno == ENOENT) {
/*  puts("in 6th if");*/
    sprintf(msg,"You defined your output directory to be: '%s', but this directory does not exist",cmor_current_dataset.outpath);
    cmor_handle_error(msg,CMOR_CRITICAL);
  }
  else if (errno == EACCES ) {
/*  puts("in 7th if");*/
    sprintf(msg,"You defined your output directory to be: '%s', but we cannot access it, please check permissions",cmor_current_dataset.outpath);
    cmor_handle_error(msg,CMOR_CRITICAL);
  }

  /* just to be sure initialize the dataset institude_id" */
if (institute_id!=NULL) {
    cmor_trim_string(institute_id,msg);
    if (strcmp(msg,"")==0) {
      strcpy(msg,"not specified");
    }
  }
  else {
    strcpy(msg,"not specified");
  }

  cmor_set_cur_dataset_attribute_internal("institute_id",msg,1);
  cmor_set_cur_dataset_attribute_internal("experiment_id",experiment_id,1);

//  cmor_set_cur_dataset_attribute_internal("realization",temp,1);
  /*cmor_set_cur_dataset_attribute_internal("realization",realization,1);
  */

  /* ok we need to check it is a valid experiment have to do it at cmor_write time though*/
  cmor_set_cur_dataset_attribute_internal("source",source,0);  
  cmor_set_cur_dataset_attribute_internal("calendar",calendar,0);
  cmor_set_cur_dataset_attribute_internal("model_id",model_id,0);
  cmor_set_cur_dataset_attribute_internal("forcing",forcing,0);
  cmor_set_cur_dataset_attribute_internal("parent_experiment_id",parent_experiment_id,1);
   
if(strcmp(CMOR_PROJECT,"SPECS")==0) {
  cmor_set_cur_dataset_attribute_internal("parent_experiment_rip",parent_experiment_rip,0); 
}
else{
  cmor_set_cur_dataset_attribute_internal("parent_experiment_rip",parent_experiment_rip,1);
}  
//if(strcmp(CMOR_PROJECT,"SPECS")==0) {
// cmor_set_cur_dataset_attribute_internal("series",series,1);
//}
  if (branch_time == NULL) {
    if (cmor_is_required_global_attribute("branch_time",CMOR_TABLE)==0) {
      sprintf(msg,"You did not provide required attribute: branch_time");
      cmor_handle_error(msg,CMOR_CRITICAL);
    }
  }
  else {
    sprintf(msg,"%lf",*branch_time);
    cmor_set_cur_dataset_attribute_internal("branch_time",msg,1);
  }
  /* check if calendar is actually valid! */
  found=0;
  for (i=0;i<CMOR_N_VALID_CALS;i++) {
    strncpytrim(msg,calendar,CMOR_MAX_STRING);
    if (strcmp(msg,CMOR_VALID_CALENDARS[i])==0) found=1;
  }
  if ((month_lengths!=NULL) || (leap_year!=0) || (leap_month!=0)) {
    /* user passed calendar definitions */
    if (found == 1 ) {
    snprintf(msg,CMOR_MAX_STRING,"You passed calendar: %s therefore we will ignore any user defined value you also set for month_lentgths and leap_months", calendar);
    cmor_handle_error(msg,CMOR_WARNING);
    }
    else {
      snprintf(msg,CMOR_MAX_STRING,"You defined a non_standard calendar while this used to be ok in CMOR version 1 it is no longer supported in this version, please contact us at: cmor@lists.llnl.gov so we can work on fixing this issue");
      cmor_handle_error(msg,CMOR_CRITICAL);
      /* if (strcmp(calendar,"non_standard")!=0) { 
       	snprintf(msg,CMOR_MAX_STRING,"CMOR_DATASET: You defined a non_standard calendar, its name should be: 'non_standard', you passed: '%s'",calendar); 
       	cmor_handle_error(msg,CMOR_CRITICAL); 
       } 
       /\* dealing with user specified calendar *\/ 
       if (month_lengths!=NULL) { 
       	/\* user defined months length *\/ 
       	for (i=0;i<12;i++) { 
       	  if ((month_lengths[i]>50)||(month_lengths[i]<20)) { 
       	    snprintf(msg,CMOR_MAX_STRING,"CMOR_DATASET: month_lengths must be between 20 and 50, index %i has value %i",i,month_lengths[i]); 
       	    cmor_handle_error(msg,CMOR_WARNING); 
       	  } 
       	  cmor_current_dataset.month_lengths[i]=month_lengths[i]; 
       	} 
       } 
       if (leap_year!=0) { 
       	if ((leap_month>12) || (leap_month<1)) { 
       	  snprintf(msg,CMOR_MAX_STRING,"CMOR_DATASET: user defined a leap_year (%i), but an invalid corresponding leap_month (%i)",leap_year,leap_month) ; 
       	  cmor_handle_error(msg,CMOR_CRITICAL); 
       	  cmor_pop_traceback(); 
       	  return 1; 
       	} 
       	cmor_current_dataset.leap_year = leap_year; 
       	cmor_current_dataset.leap_month = leap_month; 
       } 
       else { 
       	if (leap_month!=0) { 
       	  /\* user defined a leap_month *\/ 
       	  if ((leap_month>12) || (leap_month<1)) { 
       	    snprintf(msg,CMOR_MAX_STRING,"CMOR_DATASET: user defined an invalid leap_month (%i)",leap_month) ; 
       	    cmor_handle_error(msg,CMOR_CRITICAL); 
       	    cmor_pop_traceback(); 
       	    return 1; 
       	  } 
       	  /\* ok here we have valid defined leap_month but no leap year *\/ 
       	  snprintf(msg,CMOR_MAX_STRING,"CMOR_DATASET: user defined a leap_month (%i), but no corresponding leap_year",leap_month) ; 
       	  cmor_handle_error(msg,CMOR_CRITICAL); 
       	  cmor_pop_traceback(); 
       	  return 1; 
       	} 
       } */
    }
  }
  else if (found==0) {
    snprintf(msg,CMOR_MAX_STRING,"Unknown calendar: %s (calendar are case sensitive)", calendar);
    cmor_handle_error(msg,CMOR_CRITICAL);
  }

  cmor_set_cur_dataset_attribute_internal("contact",contact,1);
  cmor_set_cur_dataset_attribute_internal("references",references,1); 
  cmor_set_cur_dataset_attribute_internal("history",history,1);
  cmor_set_cur_dataset_attribute_internal("comment",comment,1);
if (strcmp(CMOR_PROJECT,"SPECS")==0){
  cmor_set_cur_dataset_attribute_internal("calendar",calendar,1); 
  cmor_set_cur_dataset_attribute_internal("forecast_reference_time",forecast_reference_time,1);  
  cmor_set_cur_dataset_attribute_internal("physics_description",physics_description,0);   
  cmor_set_cur_dataset_attribute_internal("associated_experiment",associated_experiment,0);   
  cmor_set_cur_dataset_attribute_internal("associated_model",associated_model,0);  
  cmor_set_cur_dataset_attribute_internal("initialization_description",initialization_description,0);  
  cmor_set_cur_dataset_attribute_internal("forecast_reference_time",forecast_reference_time,1);  
  cmor_set_cur_dataset_attribute_internal("associated_model",associated_model,0);  
  /*cmor_set_cur_dataset_attribute_internal("realization","1",1);
  */  
  cmor_set_cur_dataset_attribute_internal("realization",temp,1);  
}
  if (realization < 0) {
    snprintf(msg,CMOR_MAX_STRING,"Error realization number is negative, expected a positive number or 0 (i.e. ignored)");
    cmor_handle_error(msg,CMOR_CRITICAL);
    cmor_pop_traceback();
    return 1;
  }
  else {
    cmor_current_dataset.realization=realization;
  }
  if (initialization_method>0) {
    sprintf(msg,"%i",initialization_method);
    cmor_set_cur_dataset_attribute_internal("initialization_method",msg,0);
  }
  else {
    cmor_set_cur_dataset_attribute_internal("initialization_method","1",0);
  }
  if (physics_version>0) {
    sprintf(msg,"%i",*physics_version);
    cmor_set_cur_dataset_attribute_internal("physics_version",msg,0);
  }
  else {
    cmor_set_cur_dataset_attribute_internal("physics_version","1",0);
  }

  cmor_current_dataset.initiated=1;
  cmor_set_cur_dataset_attribute_internal("tracking_id",cmor_current_dataset.tracking_id,0);
  cmor_pop_traceback();
  return 0;
}

int cmor_convert_string_to_list(char *invalues,char type, void **target, int *nelts) {
  int i,j,k,itmp;
  long l;
  double d;
  float f;
  char values[CMOR_MAX_STRING];
  char msg[CMOR_MAX_STRING];
  char msg2[CMOR_MAX_STRING];
  j = 1;
  cmor_add_traceback("cmor_convert_string_to_list");
  /* trim this so no extra spaces after or before */
  strncpytrim(values,invalues,CMOR_MAX_STRING);
  k=1; /* 1 means we are on characters */
  for (i=0;i<strlen(values);i++) {
    if (values[i]==' ') {
      if (k==1) {
	j++;
	k=0;
      }
      while (values[i+1]==' ') i++;
    }
    else {
      k=1;
    }
  }
  *nelts =j;

  if (type == 'i' ) *target = malloc(j*sizeof(int));
  else if (type == 'f') *target = malloc(j*sizeof(float));
  else if (type == 'l') *target = malloc(j*sizeof(long));
  else if (type == 'd') *target = malloc(j*sizeof(double));
  else if (type == 'c') *target = (char **) malloc(j*sizeof(char *));
  else {
    snprintf(msg, CMOR_MAX_STRING,"unknown conversion '%c' for list: %s",type,values);
    cmor_handle_error(msg,CMOR_CRITICAL);
  }

  if (*target==NULL) {
    snprintf(msg, CMOR_MAX_STRING,"mallocing '%c' for list: %s",type,values);
    cmor_handle_error(msg,CMOR_CRITICAL);
  }

  j=0;
  msg[0]='\0';
  k=0;
  itmp=1;
  for (i=0;i<strlen(values);i++) {
    if (values[i]==' ') { /* ok next world */
      if (itmp==1) {
	itmp = 0 ;
	msg[i-k]='\0';
	strncpytrim(msg2,msg,CMOR_MAX_STRING);
	if (type=='i') {
	  sscanf(msg2,"%d",&itmp);
	  ((int *)*target)[j] = (int)itmp;
	}
	else if (type=='l') {
	  sscanf(msg2,"%ld",&l);
	  ((long *)*target)[j] = (long)l;
	}
	else if (type=='f') {
	  sscanf(msg2,"%f",&f);
	  ((float *)*target)[j] = (float)f;
	}
	else if (type=='d') {
	  sscanf(msg2,"%lf",&d);
	  ((double *)*target)[j] = (double)d;
	}
	else if (type=='c') {
	  ((char **)*target)[j]=(char *)malloc(13*sizeof(char));
	  strncpy(((char **)*target)[j],msg2,12);
	}
	j++;
      }
      while(values[i+1]==' ') i++;
      k=i+1;
    }
    else {
      msg[i-k]=values[i];
      itmp=1;
    }
  }
  /* ok now the last one */
  msg[i-k]='\0';

  strncpytrim(msg2,msg,CMOR_MAX_STRING);
  if (type=='i') {
    sscanf(msg2,"%d",&itmp);
    ((int *)*target)[j] = (int)itmp;
  }
  else if (type=='l') {
    sscanf(msg2,"%ld",&l);
    ((long *)*target)[j] = (long)l;
  }
  else if (type=='f') {
    sscanf(msg2,"%f",&f);
    ((float *)*target)[j] = (float)f;
  }
  else if (type=='d') {
    sscanf(msg2,"%lf",&d);
    ((double *)*target)[j] = (double)d;
  }
  else if (type=='c') {
    ((char **)*target)[j] = (char *)malloc(13*sizeof(char));
    strncpy(((char **)*target)[j],msg2,12);
  }
  cmor_pop_traceback();
  return 0;
}

int cmor_define_zfactors_vars(int var_id,int ncid, int *nc_dim,char *formula_terms,int *nzfactors, int *zfactors, int *nc_zfactors,int i,int dim_bnds)
{
  char msg[CMOR_MAX_STRING];
  char ctmp[CMOR_MAX_STRING];
  int ierr=0,l,m,k,n,j,m2,found,nelts,*int_list=NULL;
  int dim_holder[CMOR_MAX_VARIABLES];
  int lnzfactors;
  int ics,icd,icdl,ia;

  cmor_add_traceback("cmor_define_zfactors_vars");
  cmor_is_setup();
  lnzfactors = *nzfactors;
  /* now figures out the variables for z_factor and loops thru it*/
  n = strlen(formula_terms);
  for (j=0;j<n;j++) {
    while((formula_terms[j]!=':') && (j<n)) {j++;}
    /* at this point we skiped the name thingy */
    j++;
    while(formula_terms[j]==' ') {j++;} /* ok we skipped the blanks as well */
    /* ok now we can start scanning the zvar name */
    k=j;
    while((formula_terms[j]!=' ')&&(formula_terms[j]!='\0')) {ctmp[j-k]=formula_terms[j];j++;} 
    /* all right here we reach a  blank, the name is finsihed */
    ctmp[j-k]='\0';
    /* here we try to match with the actual variable */
    l=-1;
    for (k=0;k<cmor_nvars+1;k++) {
      if (strcmp(ctmp,cmor_vars[k].id)==0) {
	/* ok that is not enough! We need to know if the dims match! */
	nelts=0;
	for (m=0;m<cmor_vars[k].ndims;m++) {
	  for (m2=0;m2<cmor_vars[var_id].ndims;m2++) {
	    if (cmor_vars[k].axes_ids[m]==cmor_vars[var_id].axes_ids[m2]) {
	      nelts+=1;
	      break;
	    }
	  }
	}
	if (nelts == cmor_vars[k].ndims) {
	  l=k;
	  break;
	}
      }
    }
    if (l==-1) {
      /* ok this looks bad! last hope is that the zfactor is actually a coordinate! */
      found = 0;
      for (m=0;m<cmor_vars[var_id].ndims;m++) {
	if (strcmp(cmor_axes[cmor_vars[var_id].axes_ids[m]].id,ctmp)==0) {
	  found = 1;
	  break;
	}
	if (cmor_axes[cmor_vars[var_id].axes_ids[m]].bounds!=NULL) { /* ok this axes has bounds let's check against his name + _bnds then */
	  sprintf(msg,"%s_bnds",cmor_axes[cmor_vars[var_id].axes_ids[m]].id);
	  if (strcmp(msg,ctmp)==0) {
	    found=1;
	    break;
	  }
	}
      }
      if (found==0) {
	snprintf(msg,CMOR_MAX_STRING,"could not find the zfactor variable: %s, please define it first, while defining zfactors for variable %s (table %s)",ctmp,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	cmor_handle_error(msg,CMOR_CRITICAL);
	cmor_pop_traceback();
	return 1;
      }
    }
    else {
      found=0;
    }
    /*now figure out if we already defined this zfactor var */
    for(k=0;k<lnzfactors;k++) if (zfactors[k]==l) found=1;
    if (found==0) {
      /* ok it is a new one */
      zfactors[lnzfactors]=l;
      /* ok we need to figure out the dimensions of that zfactor */
      /* and then define the variable */
      for(k=0;k<cmor_vars[l].ndims;k++) {
	found = 0;
	for (m=0;m<cmor_vars[var_id].ndims;m++) {
	  if (strcmp(cmor_axes[cmor_vars[var_id].axes_ids[m]].id,cmor_axes[cmor_vars[l].axes_ids[k]].id)==0) {
	    found =1;
	    dim_holder[k]=nc_dim[m];
	    /* ok here we mark this factor has time varying if necessary so that we can count the number of time written and make sure it matches the variable */
	    if (cmor_axes[cmor_vars[var_id].axes_ids[m]].axis=='T') {
	      for (ia=0;ia<10;ia++) {
		if (cmor_vars[var_id].associated_ids[ia]==-1) {
		  cmor_vars[var_id].associated_ids[ia]=l;
		  break;
		}
	      }
	    }
	    break;
	  }
	}
	if (found==0) {
	  snprintf(msg,CMOR_MAX_STRING,"variable \"%s\" (table: %s) has axis \"%s\" defined with formula terms, but term \"%s\" depends on axis \"%s\" which is not part of the variable",cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,cmor_axes[cmor_vars[var_id].axes_ids[i]].id,ctmp,cmor_axes[cmor_vars[l].axes_ids[k]].id);
	  cmor_handle_error(msg,CMOR_CRITICAL);
	}
      }
      /* at that point we can define the var */
      if (dim_bnds==-1) { /* we are not defining a bnds one */
	if (cmor_vars[l].type == 'd') ierr = nc_def_var(ncid,cmor_vars[l].id,NC_DOUBLE,cmor_vars[l].ndims,&dim_holder[0],&nc_zfactors[lnzfactors]);
	else if (cmor_vars[l].type == 'f') ierr = nc_def_var(ncid,cmor_vars[l].id,NC_FLOAT,cmor_vars[l].ndims,&dim_holder[0],&nc_zfactors[lnzfactors]);
	else if (cmor_vars[l].type == 'l') ierr = nc_def_var(ncid,cmor_vars[l].id,NC_INT,cmor_vars[l].ndims,&dim_holder[0],&nc_zfactors[lnzfactors]);
	else if (cmor_vars[l].type == 'i') ierr = nc_def_var(ncid,cmor_vars[l].id,NC_INT,cmor_vars[l].ndims,&dim_holder[0],&nc_zfactors[lnzfactors]);
	if (ierr != NC_NOERR) {
	  snprintf(msg,CMOR_MAX_STRING, "NC Error (%i: %s) for variable %s (table %s) error defining zfactor var: %i (%s)",ierr,nc_strerror(ierr),cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,lnzfactors,cmor_vars[l].id);
	  cmor_handle_error(msg,CMOR_CRITICAL);
	}

	/* Compression stuff */
	if ((CMOR_NETCDF_MODE != CMOR_REPLACE_3) && (CMOR_NETCDF_MODE != CMOR_PRESERVE_3) && (CMOR_NETCDF_MODE != CMOR_APPEND_3)) {
	  if (cmor_vars[l].ndims>0) {
	    ics = cmor_tables[cmor_vars[l].ref_table_id].vars[cmor_vars[l].ref_var_id].shuffle;
	    icd = cmor_tables[cmor_vars[l].ref_table_id].vars[cmor_vars[l].ref_var_id].deflate;
	    icdl = cmor_tables[cmor_vars[l].ref_table_id].vars[cmor_vars[l].ref_var_id].deflate_level;
	    ierr = nc_def_var_deflate(ncid,nc_zfactors[lnzfactors],ics,icd,icdl);
/*
netcdf4 compression
*/
	    if (ierr != NC_NOERR) {
	      snprintf(msg,CMOR_MAX_STRING,"NCError (%i: %s) defining compression parameters for zfactor variable %s for variable '%s' (table %s)",ierr,nc_strerror(ierr),cmor_vars[l].id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	      cmor_handle_error(msg,CMOR_CRITICAL);
	    }
	  }
	}


	/* Creates attribute related to that variable */
	for (k=0;k<cmor_vars[l].nattributes;k++){
	    /* first of all we need to make sure it is not an empty attribute */
	    if (cmor_has_variable_attribute(l,cmor_vars[l].attributes[k])!=0) {
	      /* deleted attribute continue on */
	      continue;
	    }
	  if (strcmp(cmor_vars[l].attributes[k],"flag_values")==0) {
	    /* ok we need to convert the string to a list of int */
	    ierr = cmor_convert_string_to_list(cmor_vars[l].attributes_values_char[k],'i',(void *)&int_list,&nelts);
	    ierr = nc_put_att_int(ncid,nc_zfactors[lnzfactors] ,"flag_values",NC_INT,nelts,int_list);
	    if (ierr != NC_NOERR) {
	      snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i: %s) setting flags numerical attribute on zfactor variable %s for variable %s (table %s)",ierr,nc_strerror(ierr),cmor_vars[l].id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	      cmor_handle_error(msg,CMOR_CRITICAL);
	    }
	    free(int_list);
	  }
	  else if (cmor_vars[l].attributes_type[k] == 'c') {
	    ierr = cmor_put_nc_char_attribute(ncid,nc_zfactors[lnzfactors],cmor_vars[l].attributes[k],cmor_vars[l].attributes_values_char[k],cmor_vars[l].id) ;
	  }
	  else {
	    ierr = cmor_put_nc_num_attribute(ncid,nc_zfactors[lnzfactors],cmor_vars[l].attributes[k],cmor_vars[l].attributes_type[k],cmor_vars[l].attributes_values_num[k],cmor_vars[l].id);
	  }
	}
	lnzfactors+=1;
      }
      else {
	/* ok now we need to see if we have bounds on that variable */
	/* 	strncpy(msg,cmor_vars[l].id,CMOR_MAX_STRING); */
	/* 	strncat(msg,"_bnds",CMOR_MAX_STRING); */
	dim_holder[cmor_vars[l].ndims]=dim_bnds;
	if (cmor_vars[l].type == 'd') ierr = nc_def_var(ncid,cmor_vars[l].id,NC_DOUBLE,cmor_vars[l].ndims+1,&dim_holder[0],&nc_zfactors[lnzfactors]);
	else if (cmor_vars[l].type == 'f') ierr = nc_def_var(ncid,cmor_vars[l].id,NC_FLOAT,cmor_vars[l].ndims+1,&dim_holder[0],&nc_zfactors[lnzfactors]);
	else if (cmor_vars[l].type == 'l') ierr = nc_def_var(ncid,cmor_vars[l].id,NC_INT,cmor_vars[l].ndims+1,&dim_holder[0],&nc_zfactors[lnzfactors]);
	else if (cmor_vars[l].type == 'i') ierr = nc_def_var(ncid,cmor_vars[l].id,NC_INT,cmor_vars[l].ndims+1,&dim_holder[0],&nc_zfactors[lnzfactors]);
	if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING, "NC Error (%i: %s) for variable %s (table: %s),error defining zfactor var: %i (%s)",ierr,nc_strerror(ierr),cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,lnzfactors,cmor_vars[l].id);cmor_handle_error(msg,CMOR_CRITICAL);}

	/* Compression stuff */
	if ((CMOR_NETCDF_MODE != CMOR_REPLACE_3) && (CMOR_NETCDF_MODE != CMOR_PRESERVE_3) && (CMOR_NETCDF_MODE != CMOR_APPEND_3)) {
	  ics = cmor_tables[cmor_vars[l].ref_table_id].vars[cmor_vars[l].ref_var_id].shuffle;
	  icd = cmor_tables[cmor_vars[l].ref_table_id].vars[cmor_vars[l].ref_var_id].deflate;
	  icdl = cmor_tables[cmor_vars[l].ref_table_id].vars[cmor_vars[l].ref_var_id].deflate_level;
	  ierr = nc_def_var_deflate(ncid,nc_zfactors[lnzfactors],ics,icd,icdl);
/*
netcdf4 compression
*/
	  if (ierr != NC_NOERR) {
	    snprintf(msg,CMOR_MAX_STRING,"NCError (%i: %s) defining compression parameters for zfactor variable %s for variable '%s' (table %s)",ierr,nc_strerror(ierr),cmor_vars[l].id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	    cmor_handle_error(msg,CMOR_CRITICAL);
	  }
	}

	/* Creates attribute related to that variable */
	for (k=0;k<cmor_vars[l].nattributes;k++){
	    /* first of all we need to make sure it is not an empty attribute */
	    if (cmor_has_variable_attribute(l,cmor_vars[l].attributes[k])!=0) {
	      /* deleted attribute continue on */
	      continue;
	    }
	  if (strcmp(cmor_vars[l].attributes[k],"flag_values")==0) {
	    /* ok we need to convert the string to a list of int */
	    ierr = cmor_convert_string_to_list(cmor_vars[l].attributes_values_char[k],'i',(void *)&int_list,&nelts);
	    ierr = nc_put_att_int(ncid,nc_zfactors[lnzfactors] ,"flag_values",NC_INT,nelts,int_list);
	    if (ierr != NC_NOERR) {
	      snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i: %s) setting flags numerical attribute on zfactor variable %s for variable %s (table: %s)",ierr,nc_strerror(ierr),cmor_vars[l].id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	      cmor_handle_error(msg,CMOR_CRITICAL);
	    }
	    free(int_list);
	  }
	  else if (cmor_vars[l].attributes_type[k] == 'c') {
	    ierr = cmor_put_nc_char_attribute(ncid,nc_zfactors[lnzfactors],cmor_vars[l].attributes[k],cmor_vars[l].attributes_values_char[k],cmor_vars[l].id) ;
	  }
	  else {
	    ierr = cmor_put_nc_num_attribute(ncid,nc_zfactors[lnzfactors],cmor_vars[l].attributes[k],cmor_vars[l].attributes_type[k],cmor_vars[l].attributes_values_num[k],cmor_vars[l].id);
	  }
	}

	lnzfactors+=1;
      }
    }
    
    while((formula_terms[j]==' ')&&(formula_terms[j]!='\0')) {j++;} /* skip the other whites */
  }
  *nzfactors=lnzfactors;
  cmor_pop_traceback();
  return 0;
}


void cmor_flip_hybrid(int var_id, int i,char *a, char *b, char *abnds, char *bbnds) {
  int doflip,j,k,l=0;
  double tmp;
  extern cmor_var_t cmor_vars[CMOR_MAX_VARIABLES];
  extern cmor_axis_t cmor_axes[CMOR_MAX_AXES];
  cmor_add_traceback("cmor_flip_hybrid");
  /* here we need to look and see if we need to flip the levels again since we overwrote this stuff */

  doflip=0;
  if (cmor_tables[cmor_axes[cmor_vars[var_id].axes_ids[i]].ref_table_id].axes[cmor_axes[cmor_vars[var_id].axes_ids[i]].ref_axis_id].stored_direction=='d') {
    /* decrease stuff */
    if (cmor_axes[cmor_vars[var_id].axes_ids[i]].values[1]>cmor_axes[cmor_vars[var_id].axes_ids[i]].values[0]) doflip = 1;
  }
  else {
    if (cmor_axes[cmor_vars[var_id].axes_ids[i]].values[1]<cmor_axes[cmor_vars[var_id].axes_ids[i]].values[0]) doflip = 1;
  }
  if (doflip==1) {
    /* look for a coeff */
    k=-1;
    for(j=0;j<=cmor_nvars;j++) if ((strcmp(cmor_vars[j].id,a)==0) && (cmor_vars[j].zaxis==cmor_vars[var_id].axes_ids[i])) { k=j; break;}
    /* look for b coeff */
    if (b!=NULL) {
      l=-1;
      for(j=0;j<=cmor_nvars;j++) if ((strcmp(cmor_vars[j].id,b)==0) && (cmor_vars[j].zaxis==cmor_vars[var_id].axes_ids[i])) { l=j; break;}
    }
    for (j=0;j<cmor_axes[cmor_vars[var_id].axes_ids[i]].length/2;j++) {
      tmp = cmor_axes[cmor_vars[var_id].axes_ids[i]].values[j];
      cmor_axes[cmor_vars[var_id].axes_ids[i]].values[j]=cmor_axes[cmor_vars[var_id].axes_ids[i]].values[cmor_axes[cmor_vars[var_id].axes_ids[i]].length-1-j];
      cmor_axes[cmor_vars[var_id].axes_ids[i]].values[cmor_axes[cmor_vars[var_id].axes_ids[i]].length-1-j]=tmp;
      tmp = cmor_vars[k].values[j];
      cmor_vars[k].values[j] = cmor_vars[k].values[cmor_axes[cmor_vars[var_id].axes_ids[i]].length-1-j];
      cmor_vars[k].values[cmor_axes[cmor_vars[var_id].axes_ids[i]].length-1-j]=tmp;
      if (b!=NULL) {
	tmp = cmor_vars[l].values[j];
	cmor_vars[l].values[j] = cmor_vars[l].values[cmor_axes[cmor_vars[var_id].axes_ids[i]].length-1-j];
	cmor_vars[l].values[cmor_axes[cmor_vars[var_id].axes_ids[i]].length-1-j]=tmp;
      }
    }
    if (cmor_axes[cmor_vars[var_id].axes_ids[i]].bounds!=NULL) {
      k=-1;
      for(j=0;j<=cmor_nvars;j++) if ((strcmp(cmor_vars[j].id,abnds)==0) && (cmor_vars[j].zaxis==cmor_vars[var_id].axes_ids[i])) { k=j; break;}
      if (bbnds!=NULL) {
	l=-1;
	for(j=0;j<=cmor_nvars;j++) if ((strcmp(cmor_vars[j].id,bbnds)==0) && (cmor_vars[j].zaxis==cmor_vars[var_id].axes_ids[i])) { l=j; break;}
      }
      for (j=0;j<cmor_axes[cmor_vars[var_id].axes_ids[i]].length;j++) {
	tmp = cmor_axes[cmor_vars[var_id].axes_ids[i]].bounds[j];
	cmor_axes[cmor_vars[var_id].axes_ids[i]].bounds[j]=cmor_axes[cmor_vars[var_id].axes_ids[i]].bounds[cmor_axes[cmor_vars[var_id].axes_ids[i]].length*2-1-j];
	cmor_axes[cmor_vars[var_id].axes_ids[i]].bounds[cmor_axes[cmor_vars[var_id].axes_ids[i]].length*2-1-j]=tmp;
	tmp = cmor_vars[k].values[j];
	cmor_vars[k].values[j] = cmor_vars[k].values[cmor_axes[cmor_vars[var_id].axes_ids[i]].length*2-1-j];
	cmor_vars[k].values[cmor_axes[cmor_vars[var_id].axes_ids[i]].length*2-1-j]=tmp;
	if (bbnds!=NULL) {
	  tmp = cmor_vars[l].values[j];
	  cmor_vars[l].values[j] = cmor_vars[l].values[cmor_axes[cmor_vars[var_id].axes_ids[i]].length*2-1-j];
	  cmor_vars[l].values[cmor_axes[cmor_vars[var_id].axes_ids[i]].length*2-1-j]=tmp;
	}
      }
    }
  }
  cmor_pop_traceback();
  return;
}

int cmor_write(int var_id, void *data, char type, char *suffix, int ntimes_passed, double *time_vals, double *leadtime_vals, double *time_bounds, int *refvar) 
{
  extern cmor_var_t cmor_vars[CMOR_MAX_VARIABLES];
  extern cmor_axis_t cmor_axes[CMOR_MAX_AXES];
  extern int cmor_nvars;
  extern cmor_dataset_def cmor_current_dataset;

  int i,j,k,ierr=0,ncid,n,l,m,ncafid,m2[5];
  size_t nctmp;
  char outname[CMOR_MAX_STRING];
  char ctmp[CMOR_MAX_STRING];
  char tmp1[CMOR_MAX_STRING];
  char ctmp2[CMOR_MAX_STRING];
  char tmp2[CMOR_MAX_STRING];
  char tmp3[CMOR_MAX_STRING];
  char mytmp[CMOR_MAX_STRING];
  char* mytmp2;
  char ctmp3[CMOR_MAX_STRING];
  char ctmp4[CMOR_MAX_STRING];
  char ctmp5[CMOR_MAX_STRING];
  char ctmp6[CMOR_MAX_STRING];
  char msg[CMOR_MAX_STRING];
  char appending_to[CMOR_MAX_STRING];
  char var_dim_name[CMOR_MAX_STRING];
  int nc_dim[CMOR_MAX_AXES];
  size_t nc_dim_chunking[CMOR_MAX_AXES];
  int tmp_dims[2];
  size_t starts[2],counts[2];
  size_t start[2],count[2];
  int nc_dim_af[CMOR_MAX_AXES];
  int nc_vars[CMOR_MAX_VARIABLES];
  int nc_var_reftime;
  int nc_vars_af[CMOR_MAX_VARIABLES];
  int nc_associated_vars[6];
  int nc_dims_associated[CMOR_MAX_AXES];
  int nc_bnds_vars[CMOR_MAX_VARIABLES];
  int cmode;
  int dim_bnds;
  int dims_bnds_ids[2];
  int nc_singletons[CMOR_MAX_DIMENSIONS];
  int nc_singletons_bnds[CMOR_MAX_DIMENSIONS];
  char mtype;
  int nzfactors=0;
  int zfactors[CMOR_MAX_VARIABLES];
  int nc_zfactors[CMOR_MAX_VARIABLES];
  int varid;
  int ho;
  double tmps[2];
  FILE *fperr;
  struct tm *ptr;
  time_t lt;
  float afloat,d;
  int ics,icd,icdl,itmpmsg,itmp2,itmp3, *int_list=NULL,nelts;
  int isfixed=0;
  int origRealization=0;
  uuid_t *myuuid;
  uuid_fmt_t fmt;
  void *myuuid_str=NULL;
  size_t uuidlen;
  extern int cmor_convert_char_to_hyphen(char c);
  char *str;
  char startdate[CMOR_MAX_STRING], sd[CMOR_MAX_STRING], assoc_exp[CMOR_MAX_STRING];
/*
  char lt_att_name[CMOR_MAX_STRING]; 
  double data_lt[4];
  double start[4] ;*/
/*  size_t count[1] ;*/
  int rr ;
  int ncid_in2;
  cmor_add_traceback("cmor_write");
/*
*/
  strcpy(appending_to,""); /* initialize to nothing */
  strcpy(outname,"");
  strcpy(ctmp,"");
  strcpy(msg,"");
  strcpy(ctmp2,"");

  cmor_is_setup();
  if (var_id>cmor_nvars) {
    cmor_handle_error("var_id %i not defined",CMOR_CRITICAL);
    cmor_pop_traceback();
    return -1;
  };
  varid = var_id;

  /* here we check that the variable actually has all the required attributes set */
  cmor_has_required_variable_attributes(varid);
  if (refvar!=NULL) {
    varid=(int) *refvar;
    if (cmor_vars[varid].initialized==-1) {
      snprintf(msg,CMOR_MAX_STRING, "You are trying to write variable \"%s\" in association with variable \"%s\" (table %s), but you you need to write the associated variable first in order to initialize the file and dimensinos",cmor_vars[varid].id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
      cmor_handle_error(msg,CMOR_CRITICAL);
    }
    /* ok now we need to scan the netcdf file to figure the ncvarid associated */
    ierr = nc_inq_varid(cmor_vars[varid].initialized,cmor_vars[var_id].id,&cmor_vars[var_id].nc_var_id);
    if (ierr!=NC_NOERR) {
      sprintf(msg,"Could not find variable: '%s' (table: %s) in file of associated variable: '%s'",cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,cmor_vars[*refvar].id);
      cmor_handle_error(msg,CMOR_CRITICAL);
    }
    cmor_vars[var_id].ntimes_written = cmor_vars[varid].ntimes_written - ntimes_passed;
  }

  /* Here we check that the types are consitent between the missing value passed and the type passed now */
  if (cmor_vars[varid].nomissing==0) {
    if (cmor_vars[varid].itype!=type) {
      snprintf(msg,CMOR_MAX_STRING,"You defined variable \"%s\" (table %s) with a missing value of type \"%c\", but you are now writing data of type: \"%c\" this may lead to some spurious handling of the missing values",cmor_vars[varid].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,cmor_vars[varid].itype,type);
      cmor_handle_error(msg,CMOR_WARNING);
    }
  }
  if (cmor_vars[varid].initialized==-1) { /* Variable never been thru cmor_write, we need to define everything */

    if (cmor_vars[varid].type!=type) {
      snprintf(msg,CMOR_MAX_STRING,"Converted type from '%c' to '%c'",type,cmor_vars[varid].type);
      cmor_update_history(varid,msg);
    }


    if (cmor_has_cur_dataset_attribute("forcing")==0) {
      cmor_get_cur_dataset_attribute("forcing",ctmp2);
if (strcmp(CMOR_PROJECT,"SPECS")!=0){
      cmor_check_forcing_validity(cmor_vars[var_id].ref_table_id,ctmp2);
}
}
        /* need to store the prodcut type */
    strncpy(ctmp2,cmor_tables[cmor_vars[var_id].ref_table_id].product,CMOR_MAX_STRING);
    cmor_set_cur_dataset_attribute_internal("product",ctmp2,1);

    /* we will need the expt_id for the filename so we check its validity here */
    cmor_get_cur_dataset_attribute("experiment_id",ctmp2);
if (strcmp(CMOR_PROJECT,"SPECS")==0){
    cmor_get_cur_dataset_attribute("parent_experiment_id",tmp1);
    cmor_get_cur_dataset_attribute("experiment_id",tmp2);
    cmor_get_cur_dataset_attribute("parent_experiment_id",tmp1);
}
else {

    
    if (cmor_check_expt_id(ctmp2,cmor_vars[var_id].ref_table_id,"experiment","experiment_id")!=0) {
      snprintf(msg,CMOR_MAX_STRING,"Invalid dataset experiment id: %s, while writing variable %s, check against table: %s",ctmp2,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
      cmor_handle_error(msg,CMOR_NORMAL);
      cmor_pop_traceback();
      return 1;
    }
}
/*
*/
    strcpy(ctmp4,ctmp2); /*copy the expid for later use with gridspec files etc */
    /* here we test to see if the user passed a suffix and this suffix points to a file and if we are in append mode */
    if (suffix!=NULL) {
      strncpytrim(appending_to,suffix,CMOR_MAX_STRING);
      if (strncmp(appending_to,"",CMOR_MAX_STRING)!=0) {
	if ((CMOR_NETCDF_MODE == CMOR_APPEND_4) ||(CMOR_NETCDF_MODE == CMOR_APPEND_3)) {
	  fperr = NULL;
	  fperr=fopen(appending_to,"r"); /*ok is the suffix a real suffix or a file name? */
	  if ( fperr != NULL) { /* file exists we are appending to tihs */
	    fclose(fperr);
	  }
	  else { /* file does not exists it is a suffix */
	    /* we need to check if the CMOR table used is not for a cmor 2 */
	    if (cmor_tables[cmor_vars[var_id].ref_table_id].cmor_version>=2.) {
	      sprintf(msg,"You passed '%s' as file_suffix while writing variable %s (table %s), suffix are not allowed in CMOR2.0 and newer. Were you trying to append to a non-existing file?",appending_to,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	      cmor_handle_error(msg,CMOR_CRITICAL);
	    }
	    else {
	      strcpy(appending_to,"");
	    }
	  }
	}
	else {
	  /* we need to check if the CMOR table used is not for a cmor 2 */
	  if (cmor_tables[cmor_vars[var_id].ref_table_id].cmor_version>=2.) {
	    sprintf(msg,"Suffix are not allowed in CMOR 2.0 and greater, suffix %s encountered while writing variable %s (table %s)",suffix,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	    cmor_handle_error(msg,CMOR_CRITICAL);
	  }
	  else {
	    strcpy(appending_to,"");
	  }
	}
      }
    }
    /* Figures out file name */
    if (CMOR_CREATE_SUBDIRECTORIES == 1) {
      isfixed = cmor_create_output_path(var_id,outname);
    }
    else {
      isfixed = cmor_create_output_path(var_id,msg);
      strncpytrim(outname,cmor_current_dataset.outpath,CMOR_MAX_STRING);
    }
    strncat(outname,"/",CMOR_MAX_STRING-strlen(outname));
    for (i=0;i<strlen(cmor_vars[var_id].id);i++) {
      if ((cmor_vars[var_id].id[i]=='_')||(cmor_vars[var_id].id[i]=='-')) {
	snprintf(outname,CMOR_MAX_STRING,"var_id cannot contain %c you passed: %s (table: %s). Please check your input tables\n",cmor_vars[var_id].id[i],cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	cmor_handle_error(outname,CMOR_CRITICAL);
      }
    }
    strncattrim(outname,cmor_vars[var_id].id,CMOR_MAX_STRING-strlen(outname));
    strncat(outname,"_",CMOR_MAX_STRING-strlen(outname));
    strncattrim(outname,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,CMOR_MAX_STRING-strlen(outname));
    if ( cmor_has_cur_dataset_attribute("model_id")==0) {
      cmor_get_cur_dataset_attribute("model_id",msg);
      substitute_chars_with_hyphens(msg,ctmp5,"model_id",var_id);
      strncat(outname,"_",CMOR_MAX_STRING-strlen(outname));
      strncat(outname,ctmp5,CMOR_MAX_STRING-strlen(outname));
    }
    if ( strcmp(ctmp2,"")!=0) { /* we have a short name for the expt_id */
      strncat(outname,"_",CMOR_MAX_STRING-strlen(outname));
      strncat(outname,ctmp2,CMOR_MAX_STRING-strlen(outname));
    }
    strncat(outname,"_",CMOR_MAX_STRING-strlen(outname));

	/*series*/
	if (strcmp(CMOR_PROJECT,"SPECS")==0){
//	   cmor_get_cur_dataset_attribute("series",tmp2);
//		  strncat(outname,tmp2,CMOR_MAX_STRING-strlen(outname));
//		strncat(outname,"_",CMOR_MAX_STRING-strlen(outname));

	  if (strcmp(tmp2,"")!=0) {
		strcpy(tmp2,"");
		cmor_get_cur_dataset_attribute("forecast_reference_time",tmp2);
		strncattrim(outname,"S",CMOR_MAX_STRING-strlen(outname));
		str=strtok(tmp2,"-");
		strncattrim(outname,str,CMOR_MAX_STRING-strlen(outname));
		str=strtok(NULL,"-");
		strncattrim(outname,str,CMOR_MAX_STRING-strlen(outname));
		str=strtok(NULL,"(");
		strncattrim(outname,str,CMOR_MAX_STRING-strlen(outname));
		strncat(outname,"_",CMOR_MAX_STRING-strlen(outname));
	  }
		cmor_get_cur_dataset_attribute("parent_experiment_id",tmp1);
	}

    /* is it a fixed field ? */
    if (isfixed==1) {
      strncat(outname,"r0i0p0",CMOR_MAX_STRING-strlen(outname) );
      origRealization = cmor_current_dataset.realization;
      cmor_current_dataset.realization=0;
      cmor_set_cur_dataset_attribute_internal("physics_version","0",0);
      cmor_set_cur_dataset_attribute_internal("initialization_method","0",0);
    }
    else {
      snprintf(msg,CMOR_MAX_STRING,"r%d",cmor_current_dataset.realization);
      strncat(outname,msg,CMOR_MAX_STRING-strlen(outname) );
      
      /* initialization id (optional) */
      if ( cmor_has_cur_dataset_attribute("initialization_method")==0) {
	cmor_get_cur_dataset_attribute("initialization_method",ctmp2);
	sscanf(ctmp2,"%i",&j);
	snprintf(msg,CMOR_MAX_STRING,"i%d",j);
	strncat(outname,msg,CMOR_MAX_STRING-strlen(outname) );
      }
      
      /* physics id (optional) */
      if ( cmor_has_cur_dataset_attribute("physics_version")==0) {
	cmor_get_cur_dataset_attribute("physics_version",ctmp2);
	sscanf(ctmp2,"%i",&j);
	snprintf(msg,CMOR_MAX_STRING,"p%d",j);
	strncat(outname,msg,CMOR_MAX_STRING-strlen(outname) );
      }
    }



    strncpytrim(cmor_vars[var_id].base_path,outname,CMOR_MAX_STRING);
    if (strcmp(appending_to,"")!=0) { /* we are appending to an existing file */
      k = strlen(appending_to); /* what's the length of that file name */
      j=0;
      for (i=k-1;i>=0;i--) {
	if (appending_to[i]=='/') {/* ok this marks the beg of the actual file name */
	  j=i+1;
	  break;
	}
      }
      /* now does the same thing for "_" this should mark our suffix section */
      /* we need to count how many are there and the index of the last one */
      l=0;
      for (i=k-1;i>=j;i--) {
	if (appending_to[i]=='_') {/* ok this marks the beg of the actual suffix */
	  l++;
	}
      }
      if ( cmor_has_cur_dataset_attribute("model_id")==0) {
	i=5;
      }
      else {
	i=4;
      }
      if (l>i) {
	/* we have extra _ that means suffix */
	for (i=k-1;i>=j;i--) {
	  if (appending_to[i]=='_') {/* ok this marks the beg of the actual suffix */
	    l=i+1;
	    break;
	  }
	}
	for(i=l;i<k-3;i++) {
	  msg[i-l]=appending_to[i];
	}
	msg[i-l]='\0'; /*termination char */
      }
      else {
	msg[0]='\0';
      }
    }
    else { /*ok let's copy the suffix to msg */
      if (suffix!=NULL) strncpytrim(msg,suffix,CMOR_MAX_STRING);
      else msg[0]='\0';
    }
    if (msg[0]!='\0') {
      /* test for "_" in suffix , it s not allowed */
      for (i=0;i<strlen(msg);i++) {
	if (msg[i]=='_') {
	  if ((CMOR_NETCDF_MODE == CMOR_APPEND_4) ||(CMOR_NETCDF_MODE == CMOR_APPEND_3)) {
	    snprintf(ctmp2,CMOR_MAX_STRING,"While writing variable %s (table %s), suffix cannot contain the '_' character, you passed: %s. Is it possible you are trying to append to a file and the file is not actually here?",cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,msg);
	    cmor_handle_error(ctmp2,CMOR_CRITICAL);
	  }
	  else {
	    snprintf(ctmp2,CMOR_MAX_STRING,"suffix cannot contain the '_' character, you passed: %s, while writing variable %s (table: %s)",msg,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	    cmor_handle_error(ctmp2,CMOR_CRITICAL);
	  }
	}
      }
      /* MKM commented for getting the proper file suffix */
      strncat(outname,"_",CMOR_MAX_STRING-strlen(outname));
      strncat(outname,msg,CMOR_MAX_STRING-strlen(outname));
      strncpy(cmor_vars[var_id].suffix,msg,CMOR_MAX_STRING);
    }

    /* Add Process ID and a random number to filename */
    sprintf(msg,"%d",(int) getpid());
    strncat(outname,"_",CMOR_MAX_STRING-strlen(outname));
    strncat(outname,msg,CMOR_MAX_STRING-strlen(outname));
    
    /* Add the '.nc' extension */
    strncat(outname,".nc",CMOR_MAX_STRING-strlen(outname) );

    /* at this point we need to rename the original file name to this so that the rest of the code works */
    if (appending_to[0]!='\0') {
      if (strncmp(outname,appending_to,CMOR_MAX_STRING)!=0) {
	if (rename(appending_to,outname)!=0) {
	  snprintf(msg,CMOR_MAX_STRING,"could not rename your existing file: %s to temporary file: %s",appending_to,outname);
	  cmor_handle_error(msg,CMOR_CRITICAL);
	}
      }
      snprintf(msg,CMOR_MAX_STRING,"Appended to original file: %s",appending_to);
      cmor_update_history(var_id,msg);
    }

    strncpytrim(cmor_vars[var_id].current_path,outname,CMOR_MAX_STRING);
    /* Decides NetCDF mode */
    if (USE_NETCDF_4 == 1) {
      cmode = NC_NETCDF4 | NC_CLASSIC_MODEL;
      if ((CMOR_NETCDF_MODE == CMOR_REPLACE_3) ||(CMOR_NETCDF_MODE == CMOR_PRESERVE_3) ||(CMOR_NETCDF_MODE == CMOR_APPEND_3)) {
	cmode = NC_CLOBBER;
      }
    }
    else {
      cmode = NC_CLOBBER;
    }

    if ((CMOR_NETCDF_MODE == CMOR_REPLACE_4) || (CMOR_NETCDF_MODE == CMOR_REPLACE_3)) {
      ierr = nc_create(outname,NC_CLOBBER|cmode,&ncid);
    }
    else if ((CMOR_NETCDF_MODE == CMOR_PRESERVE_4) || (CMOR_NETCDF_MODE == CMOR_PRESERVE_3)) {
     /* ok first let's check if the file does exists or not */
      fperr = NULL;
      fperr=fopen(outname,"r");
      if ( fperr != NULL) {
	snprintf(msg,CMOR_MAX_STRING,"Output file ( %s ) already exists, remove file or use CMOR_REPLACE or CMOR_APPEND for CMOR_NETCDF_MODE value in cmor_setup",outname);
	cmor_handle_error(msg,CMOR_CRITICAL);
      }
      ierr = nc_create(outname,NC_NOCLOBBER|cmode,&ncid); 
    }
    else if ((CMOR_NETCDF_MODE == CMOR_APPEND_4) || (CMOR_NETCDF_MODE == CMOR_APPEND_3)) {
      /* ok first let's check if the file does exists or not */
      fperr = NULL;
      fperr = fopen(outname,"r");
      if (fperr == NULL) {
	/* ok it does not exists... we will open as new */
	ierr = nc_create(outname,NC_CLOBBER|cmode,&ncid);
      }
      else { /*ok it was there already */
	ierr = fclose(fperr);
	/*cmor_vars[var_id].suffix_has_date=1;*/
	ierr = nc_open(outname,NC_WRITE,&ncid);
	if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i: %s) opening file: %s",ierr,nc_strerror(ierr),outname); cmor_handle_error(msg,CMOR_CRITICAL);}
	ierr = nc_inq_dimid(ncid,"time",&i);
	if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i: %s) looking for time dimension in file: %s",ierr,nc_strerror(ierr),outname); cmor_handle_error(msg,CMOR_CRITICAL);}
	ierr = nc_inq_dimlen(ncid,i,&nctmp);
	cmor_vars[var_id].ntimes_written=(int)nctmp;
	if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i: %s) looking for time dimension length in file: %s",ierr,nc_strerror(ierr),outname); cmor_handle_error(msg,CMOR_CRITICAL);}
	ierr = nc_inq_varid(ncid,cmor_vars[var_id].id,&cmor_vars[var_id].nc_var_id);
	if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i: %s) looking for variable '%s' in file: %s",ierr,nc_strerror(ierr),cmor_vars[var_id].id,outname); cmor_handle_error(msg,CMOR_CRITICAL);}
	/*ierr = nc_inq_varid(ncid,"leadtime",&cmor_vars[var_id].time_nc_id);*/
	/* MKM PROPOSED FIX by PAB for APPEND MODE issue */
	ierr = nc_inq_varid(ncid,"time",&cmor_vars[var_id].time_nc_id);
	if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i: %s) looking for time of variable '%s' in file: %s",ierr,nc_strerror(ierr),cmor_vars[var_id].id,outname); cmor_handle_error(msg,CMOR_CRITICAL);}
	/* ok now we need to read the first time in here */
	starts[0]=0;
	ierr = nc_get_var1_double(ncid,cmor_vars[var_id].time_nc_id,&starts[0],&cmor_vars[var_id].first_time);
        starts[0]=cmor_vars[var_id].ntimes_written-1;
        ierr = nc_get_var1_double(ncid,cmor_vars[var_id].time_nc_id,&starts[0],&cmor_vars[var_id].last_time);
	ierr = nc_inq_varid(ncid,"time_bnds",&i);
	if (ierr != NC_NOERR) {
	  snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i: %s) looking for time bounds of variable '%s' in file: %s",ierr,nc_strerror(ierr),cmor_vars[var_id].id,outname);
	  cmor_handle_error(msg,CMOR_WARNING);
	  ierr = NC_NOERR;
	}
	else {
	  cmor_vars[var_id].time_bnds_nc_id=i;
	}

          /* Here I need to store first/last bounds for appending issues */
/*          starts[0]=cmor_vars[var_id].ntimes_written-1;
          starts[1]=1;
          ierr = nc_get_var1_double(ncid,cmor_vars[var_id].time_bnds_nc_id,&starts[0],&cmor_vars[var_id].last_bound);
          starts[1]=0;
          ierr = nc_get_var1_double(ncid,cmor_vars[var_id].time_bnds_nc_id,&starts[0],&cmor_vars[var_id].first_bound);*/
         /*  printf("ok we read back in: %f, %f, associated: %i\n",cmor_vars[var_id].first_bound,cmor_vars[var_id].last_bound,cmor_vars[var_id].associated_ids[0]);*/
//	}
	cmor_vars[var_id].initialized=ncid;
      }
    }
    else {
      snprintf(msg,CMOR_MAX_STRING,"Unknown CMOR_NETCDF_MODE file mode: %i",CMOR_NETCDF_MODE);
      cmor_handle_error(msg,CMOR_CRITICAL);
    }
    if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i: %s) creating file: %s",ierr,nc_strerror(ierr),outname); cmor_handle_error(msg,CMOR_CRITICAL);}
  }
  /* we closed and reopened the same test, in case we were appending, in which case all decalration have been done if the open loop */
  if (cmor_vars[varid].initialized==-1) { /* Variable never been thru cmor_write, we need to define everything */
    /* define global attributes */
    if (cmor_current_dataset.initiated==0) {
      snprintf(msg,CMOR_MAX_STRING, "you need to initialize the dataset by calling cmor_dataset before calling cmor_write");
      cmor_handle_error(msg,CMOR_NORMAL);
      cmor_pop_traceback();
      return 1;
    }

    cleanup_varid = var_id;

    /* Do we need to create the associated file or not ? */
/*     if (cmor_current_dataset.associate_file == 1) {     */
/*       if (cmor_current_dataset.associate_file == -1) { */
/* 	/\* Creates the associated file *\/ */
/* 	strncpytrim(cmor_current_dataset.associated_file_name,cmor_current_dataset.outpath,CMOR_MAX_STRING); */
/* 	strncat(cmor_current_dataset.associated_file_name,"/metadata_file.nc",CMOR_MAX_STRING-strlen(cmor_current_dataset.associated_file_name)); */
/* 	ierr = nc_create(cmor_current_dataset.associated_file_name,cmode,&cmor_current_dataset.associate_file); */
/* 	if (ierr != NC_NOERR) { */
/* 	  snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i) creating metadata file: %s",ierr,cmor_current_dataset.associated_file_name);  */
/* 	  cmor_handle_error(msg,CMOR_CRITICAL); */
/* 	} */
/*       } */
/*       ncafid = cmor_current_dataset.associate_file; */
/*       cmor_set_variable_attribute(var_id,"associated_files",'c',cmor_current_dataset.associated_file_name); */
/*     } */
/*     else { */
/*       ncafid = ncid; */
/*       cmor_set_variable_attribute_internal(var_id,"associated_files",'c',"self"); */
/*     } */
    ncafid = ncid;
    /* Ok we need to set the associated_files attributes */
    if (strcmp(cmor_tables[cmor_vars[var_id].ref_table_id].URL,"")==0) {
      snprintf(msg,CMOR_MAX_STRING,"Your table (%s) does not contain a reference URL, please consider adding it",cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
      cmor_handle_error(msg,CMOR_WARNING);
      strncpy(ctmp,"",CMOR_MAX_STRING);
    }
    else {
      strncpy(ctmp2,cmor_current_dataset.outpath,CMOR_MAX_STRING); /* remembers the path to stick it back later */
/*       strncpy(cmor_current_dataset.outpath,cmor_tables[cmor_vars[var_id].ref_table_id].URL,CMOR_MAX_STRING); */
/*       cmor_create_output_path(var_id,ctmp3); */
/*       strncpy(cmor_current_dataset.outpath,ctmp2,CMOR_MAX_STRING); /\* puts back the right base path *\/ */
      strncpy(ctmp3,cmor_tables[cmor_vars[var_id].ref_table_id].URL,CMOR_MAX_STRING);
      strcpy(ctmp,"baseURL: ");
      strncat(ctmp,ctmp3,CMOR_MAX_STRING-strlen(ctmp));
      strncat(ctmp," ",CMOR_MAX_STRING-strlen(ctmp));

    }

    /* prepares the common suffix for all fixed file */
    strcpy(ctmp2,"");
    /* realm */
    /* first check if the variable itslef has a realm */
    if (cmor_tables[cmor_vars[var_id].ref_table_id].vars[cmor_vars[var_id].ref_var_id].realm[0]!='\0') {
      /* we want to copy only the first realm here */
      for (i=0;i<strlen(cmor_tables[cmor_vars[var_id].ref_table_id].vars[cmor_vars[var_id].ref_var_id].realm);i++) {
	if (cmor_tables[cmor_vars[var_id].ref_table_id].vars[cmor_vars[var_id].ref_var_id].realm[i]!=' ') {
	  ctmp3[i]=cmor_tables[cmor_vars[var_id].ref_table_id].vars[cmor_vars[var_id].ref_var_id].realm[i];
	  ctmp3[i+1]='\0';
	}
	else {
	  break;
	}
      }
      strncattrim(ctmp2,ctmp3,CMOR_MAX_STRING-strlen(ctmp2));
    }
    else { /*ok it didn't so we're using the value from the table */
      strncattrim(ctmp2,cmor_tables[cmor_vars[var_id].ref_table_id].realm,CMOR_MAX_STRING-strlen(ctmp2));
    }
    strncattrim(ctmp2,"_",CMOR_MAX_STRING-strlen(ctmp2));
    
    /* now appends the part to the gridspec file */
    strncat(ctmp,"gridspecFile: ",CMOR_MAX_STRING-strlen(ctmp));
    /* add the variable name */
/*     strncat(ctmp3,"gridspec/r0/gridspec_",CMOR_MAX_STRING-strlen(ctmp3)); */
    /* strncat(ctmp3,"gridspec",CMOR_MAX_STRING-strlen(ctmp3)); */
    /* strncat(ctmp3,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,CMOR_MAX_STRING-strlen(ctmp3)); */
    /* Put here code for gridspec name */
    strncpy(ctmp3,"gridspec_",CMOR_MAX_STRING);
    strncat(ctmp3,ctmp2,CMOR_MAX_STRING-strlen(ctmp3));
    strncat(ctmp3,"fx_",CMOR_MAX_STRING-strlen(ctmp3));
    cmor_get_cur_dataset_attribute("model_id",msg);
    for (i=0;i<strlen(msg);i++) {
      if (cmor_convert_char_to_hyphen(msg[i])==1) {
	msg[i]='-';
      }
    }
    /* removes trailing "-" */
    for (i=strlen(msg)-1;i>0;i--) {
      if (msg[i]=='-') {
	msg[i]='\0';
      }
      else {
	break;
      }
    }
    strncat(ctmp3,msg,CMOR_MAX_STRING-strlen(ctmp3));
    if (strcmp(ctmp4,"")!=0) {
      strncat(ctmp3,"_",CMOR_MAX_STRING-strlen(ctmp3));
      strncat(ctmp3,ctmp4,CMOR_MAX_STRING-strlen(ctmp3));
    }
    strncat(ctmp3,"_r0i0p0.nc",CMOR_MAX_STRING-strlen(ctmp3));

    strncat(ctmp,ctmp3,CMOR_MAX_STRING-strlen(ctmp));

    if (cmor_has_variable_attribute(var_id,"cell_measures")==0) {
      /*Ok does it contain "area" */
      cmor_get_variable_attribute(var_id,"cell_measures",&ctmp5[0]);
      k=-1;
      if (strlen(ctmp5)>5) {
	for (i=0;i<strlen(ctmp5)-5;i++) {
	  if (strncmp(&ctmp5[i],"area:",5)==0) {
	    k=i+6;
	    break;
	  }
	}
      }
      if (k!=-1) { /*ok we have this guy, let's figure out the name */
	for(i=k;i<strlen(ctmp5);i++) {
	  if ((ctmp5[i]==' ') || (ctmp5[i]=='\0')) break;
	  ctmp6[i-k]=ctmp5[i];
	}
	ctmp6[i-k]='\0';
	
	/* now appends the part to the area file */
	strncat(ctmp," ",CMOR_MAX_STRING-strlen(ctmp));
	strncat(ctmp,ctmp6,CMOR_MAX_STRING-strlen(ctmp));
	strncat(ctmp,": ",CMOR_MAX_STRING-strlen(ctmp));
	/* add the variable name */
	/*     strncat(ctmp3,"cellArea/r0/cellArea_",CMOR_MAX_STRING-strlen(ctmp3)); */
	strncpy(ctmp3,ctmp6,CMOR_MAX_STRING);
	strncat(ctmp3,"_fx_",CMOR_MAX_STRING-strlen(ctmp3));
	/* strncat(ctmp3,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,CMOR_MAX_STRING-strlen(ctmp3)); */
	/* strncat(ctmp3,"_",CMOR_MAX_STRING-strlen(ctmp3)); */
	cmor_get_cur_dataset_attribute("model_id",msg);
	for (i=0;i<strlen(msg);i++) {
	  if (cmor_convert_char_to_hyphen(msg[i])==1) {
	    msg[i]='-';
	  }
	}
	/* removes trailing "-" */
	for (i=strlen(msg)-1;i>0;i--) {
	  if (msg[i]=='-') {
	    msg[i]='\0';
	  }
	  else {
	    break;
	  }
	}
	strncat(ctmp3,msg,CMOR_MAX_STRING-strlen(ctmp3));
	if (strcmp(ctmp4,"")!=0) {
	  strncat(ctmp3,"_",CMOR_MAX_STRING-strlen(ctmp3));
	  strncat(ctmp3,ctmp4,CMOR_MAX_STRING-strlen(ctmp3));
	}
	strncat(ctmp3,"_r0i0p0.nc",CMOR_MAX_STRING-strlen(ctmp3));
	
	strncat(ctmp,ctmp3,CMOR_MAX_STRING-strlen(ctmp));
      }
      k=-1;
      if (strlen(ctmp5)>7) {
	for (i=0;i<strlen(ctmp5)-7;i++) {
	  if (strncmp(&ctmp5[i],"volume:",7)==0) {
	    k=i+8;
	    break;
	  }
	}
      }
      if (k!=-1) { /*ok we have this guy, let's figureout the name */
	for(i=k;i<strlen(ctmp5);i++) {
	  if ((ctmp5[i]==' ') || (ctmp5[i]=='\0')) break;
	  ctmp6[i-k]=ctmp5[i];
	}
	ctmp6[i-k]='\0';
	/* now appends the part to the volume file */	
	strncat(ctmp," ",CMOR_MAX_STRING-strlen(ctmp));
	strncat(ctmp,ctmp6,CMOR_MAX_STRING-strlen(ctmp));
	strncat(ctmp,": ",CMOR_MAX_STRING-strlen(ctmp));
	/* add the variable name */
	/*     strncat(ctmp3,"cellVolume/r0/cellVolume_",CMOR_MAX_STRING-strlen(ctmp3)); */
	strncpy(ctmp3,ctmp6,CMOR_MAX_STRING);
	strncat(ctmp3,"_fx_",CMOR_MAX_STRING-strlen(ctmp3));
	/* strncat(ctmp3,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,CMOR_MAX_STRING-strlen(ctmp3)); */
	/* strncat(ctmp3,"_",CMOR_MAX_STRING-strlen(ctmp3)); */
	cmor_get_cur_dataset_attribute("model_id",msg);
	for (i=0;i<strlen(msg);i++) {
	  if (cmor_convert_char_to_hyphen(msg[i])==1) {
	    msg[i]='-';
	  }
	}
	/* removes trailing "-" */
	for (i=strlen(msg)-1;i>0;i--) {
	  if (msg[i]=='-') {
	    msg[i]='\0';
	  }
	  else {
	    break;
	  }
	}
	strncat(ctmp3,msg,CMOR_MAX_STRING-strlen(ctmp3));
	if (strcmp(ctmp4,"")!=0) {
	  strncat(ctmp3,"_",CMOR_MAX_STRING-strlen(ctmp3));
	  strncat(ctmp3,ctmp4,CMOR_MAX_STRING-strlen(ctmp3));
	}
	strncat(ctmp3,"_r0i0p0.nc",CMOR_MAX_STRING-strlen(ctmp3));
	
	
	strncat(ctmp,ctmp3,CMOR_MAX_STRING-strlen(ctmp));
      }
    }

    /* make sure we are in def mode */
    ierr = nc_redef(ncafid);
    if (ierr != NC_NOERR && ierr != NC_EINDEFINE) {
      snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i: %s) putting metadata file (%s) in def mode, nc file id was: %i, you were writing variable %s (table: %s)",ierr,nc_strerror(ierr),cmor_current_dataset.associated_file_name,ncafid,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
      cmor_handle_error(msg,CMOR_CRITICAL);
    }

    /* ok writes global attributes */
    /* first figures out time */
    lt = time(NULL);
    ptr = gmtime(&lt);
    snprintf(msg,CMOR_MAX_STRING,"%.4i-%.2i-%.2iT%.2i:%.2i:%.2iZ",ptr->tm_year+1900,ptr->tm_mon+1,ptr->tm_mday,ptr->tm_hour,ptr->tm_min,ptr->tm_sec);
    cmor_set_cur_dataset_attribute_internal("creation_date",msg,0);
if (strcmp(CMOR_PROJECT,"SPECS")==0){
    cmor_get_cur_dataset_attribute("institution",tmp2);
    snprintf(msg,CMOR_MAX_STRING,"%s%.4i-%.2i-%.2iT%.2i:%.2i:%.2iZ",tmp2,ptr->tm_year+1900,ptr->tm_mon+1,ptr->tm_mday,ptr->tm_hour,ptr->tm_min,ptr->tm_sec);
    cmor_set_cur_dataset_attribute_internal("batch",msg,0);
}    
    if (did_history==0) {
      snprintf(ctmp,CMOR_MAX_STRING,"%s CMOR rewrote data to comply with CF standards and %s requirements.",msg,cmor_tables[cmor_vars[var_id].ref_table_id].project_id);
      if (cmor_has_cur_dataset_attribute("history")==0) {
	cmor_get_cur_dataset_attribute("history",msg);
	snprintf(ctmp2,CMOR_MAX_STRING,"%s %s",msg,ctmp);
	strncpy(ctmp,ctmp2,CMOR_MAX_STRING);
      }
      cmor_set_cur_dataset_attribute_internal("history",ctmp,0);
      did_history=1;
    }
    snprintf(msg,CMOR_MAX_STRING,"CF-%.1f",cmor_tables[cmor_vars[var_id].ref_table_id].cf_version);
    cmor_set_cur_dataset_attribute_internal("Conventions",msg,0);
    cmor_set_cur_dataset_attribute_internal("project_id",cmor_tables[cmor_vars[var_id].ref_table_id].project_id,0);
    snprintf(msg,CMOR_MAX_STRING,"Table %s (%s) ",cmor_tables[cmor_vars[var_id].ref_table_id].table_id,cmor_tables[cmor_vars[var_id].ref_table_id].date);
if (strcmp(CMOR_PROJECT,"SPECS")!=0){
    for (i=0;i<16;i++) sprintf(&ctmp[2*i],"%02x",cmor_tables[cmor_vars[var_id].ref_table_id].md5[i]);
    ctmp[32]='\0';
    strcat(msg,ctmp);
}
    cmor_set_cur_dataset_attribute_internal("table_id",msg,0);
    if ( cmor_has_cur_dataset_attribute("model_id")==0) {
      cmor_get_cur_dataset_attribute("model_id",ctmp);
    }
    else {
      ctmp[0]='\0';
    }
if (strcmp(CMOR_PROJECT,"SPECS")!=0){
  cmor_get_cur_dataset_attribute("experiment",ctmp2); 
}
/*     /\* ok here we need to reset the expt id to the long name if necessary *\/ */
/*
     for (i=0;i<cmor_tables[cmor_vars[var_id].ref_table_id].nexps;i++) { 

       if (strncmp(cmor_tables[cmor_vars[var_id].ref_table_id].sht_expt_ids[i],ctmp2,CMOR_MAX_STRING)==0) { 

 	strncpy(ctmp2,cmor_tables[cmor_vars[var_id].ref_table_id].expt_ids[i],CMOR_MAX_STRING); /* make sure it is the long id */ 
/*
 	break; 
       } 
     } 

     cmor_set_cur_dataset_attribute_internal("experiment_id",ctmp2,0); 
*/
if (strcmp(CMOR_PROJECT,"SPECS")==0){
     cmor_get_cur_dataset_attribute("experiment_id",ctmp2); 
}
    snprintf(msg,CMOR_MAX_STRING,"%s model output prepared for %s %s",ctmp,cmor_tables[cmor_vars[var_id].ref_table_id].project_id,ctmp2);
    cmor_set_cur_dataset_attribute_internal("title",msg,0);
    /* check table cf version vs ours */
    afloat = CMOR_CF_VERSION_MAJOR;
    d = CMOR_CF_VERSION_MINOR;
    while(d>1.) d/=10.;
    afloat+=d;

    if (cmor_tables[cmor_vars[var_id].ref_table_id].cf_version>afloat) {
      snprintf(msg,CMOR_MAX_STRING,"Your table (%s) claims to enforce CF version %f but this version of the library is designed for CF up to: %i.%i, you were writing variable: %s",cmor_tables[cmor_vars[var_id].ref_table_id].table_id,cmor_tables[cmor_vars[var_id].ref_table_id].cf_version,CMOR_CF_VERSION_MAJOR,CMOR_CF_VERSION_MINOR,cmor_vars[var_id].id);
      cmor_handle_error(msg,CMOR_WARNING);
    }


    /* Ok now we need to check the parent_experiment_id is valid */
    if (cmor_has_cur_dataset_attribute("parent_experiment_id")==0) {
      cmor_get_cur_dataset_attribute("parent_experiment_id",msg);
      if (strcmp(msg,"N/A")!=0) { /* did the user pass an expt */
if (strcmp(CMOR_PROJECT,"SPECS")!=0){
	cmor_get_cur_dataset_attribute("experiment_id",ctmp2);
}
	if (strcmp(msg,ctmp2)==0) {
	  sprintf(ctmp,"Your parent_experiment id matches your current experiment_id, they are both set to: %s; you were writing variable %s (table: %s)",msg,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	  cmor_handle_error(ctmp,CMOR_NORMAL);
	  cmor_pop_traceback();
	  return 1;
	} 
	else {
if (strcmp(CMOR_PROJECT,"SPECS")!=0){
	  cmor_get_cur_dataset_attribute("experiment",ctmp);
	  if (strcmp(msg,ctmp)==0) {
	    sprintf(ctmp,"Your parent_experiment id matches your current experiment_id, they are both set to: %s; you were writing variable %s (table: %s)",msg,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	    cmor_handle_error(ctmp,CMOR_NORMAL);
	    cmor_pop_traceback();
	    return 1;
	  }
}
	  else { /*ok now we can check it is a valid "other" experiment */
if (strcmp(CMOR_PROJECT,"SPECS")!=0){
	    if (cmor_check_expt_id(msg,cmor_vars[var_id].ref_table_id,"parent_experiment","parent_experiment_id")!=0) {
	      snprintf(ctmp,CMOR_MAX_STRING,"Invalid dataset parent experiment id: %s, check against table: %s, you were writing variable: %s",msg,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,cmor_vars[var_id].id);
	      cmor_handle_error(ctmp,CMOR_NORMAL);
	      cmor_pop_traceback();
	      return 1;
	    }
}
	  }
	}
      }
      else {
	if ( cmor_has_cur_dataset_attribute("branch_time")==0) {
	  cmor_get_cur_dataset_attribute("branch_time",msg);
	  sscanf(msg,"%lf",&tmps[0]);
	  if (tmps[0]!=0.) {
	    sprintf(msg,"when dataset attribute parent_experiment_id is set to N/A, branch_time must be 0., you passed: %lf, we are resetting to 0. for variable %s (table: %s)",tmps[0],cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	    cmor_handle_error(msg,CMOR_WARNING);
	    cmor_set_cur_dataset_attribute_internal("branch_time","0.",1);
	  }
	}
	cmor_set_cur_dataset_attribute_internal("parent_experiment","N/A",1);
      }
    }
    
    cmor_has_required_global_attributes(cmor_vars[var_id].ref_table_id);
    
    /* ok at this point if we are CMIP5 needs to check source and model_id are identical */
    if(strcmp(CMOR_PROJECT,"SPECS")==0){
     strcpy(msg,"SPECS");
    }
    else {
     strcpy(msg,"CMIP5");
    }
    if (strcmp(cmor_tables[cmor_vars[var_id].ref_table_id].project_id,msg)==0) {
      cmor_get_cur_dataset_attribute("model_id",ctmp5);
      cmor_get_cur_dataset_attribute("source",ctmp6);
      if (strncmp(ctmp5,ctmp6,strlen(ctmp5))!=0) {
	snprintf(msg,CMOR_MAX_STRING,"while writing variable %s (table: %s), source attribute does not start with 'model_id', it should start with: %s",cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,ctmp5);
	cmor_handle_error(msg,CMOR_CRITICAL);
      }
    }
    
    /* first check if the variable itself has a realm */
    if (cmor_tables[cmor_vars[var_id].ref_table_id].vars[cmor_vars[var_id].ref_var_id].realm[0]!='\0') {
      cmor_set_cur_dataset_attribute_internal("modeling_realm",cmor_tables[cmor_vars[var_id].ref_table_id].vars[cmor_vars[var_id].ref_var_id].realm,0);
    }
    else { /*ok it didn't so we're using the value from the table */
      cmor_set_cur_dataset_attribute_internal("modeling_realm",cmor_tables[cmor_vars[var_id].ref_table_id].realm,0);
    }
    

    /* generates a new unique id */
    uuid_create(&myuuid);
    uuid_make(myuuid,4);
    myuuid_str = NULL;
    fmt = UUID_FMT_STR;
    uuid_export(myuuid,fmt,&myuuid_str,&uuidlen);
    strncpy(cmor_current_dataset.tracking_id,(char *)myuuid_str,CMOR_MAX_STRING);
    cmor_set_cur_dataset_attribute_internal("tracking_id",cmor_current_dataset.tracking_id,0);
    free(myuuid_str);
    uuid_destroy(myuuid);


    for (i=0;i<cmor_current_dataset.nattributes;i++) {
      if (strcmp(cmor_current_dataset.attributes_names[i],"calendar")!=0) {
	if ((strcmp(cmor_current_dataset.attributes_names[i],"initialization_method")==0) || (strcmp(cmor_current_dataset.attributes_names[i],"physics_version")==0) ) { /* these two are actually int not char */
	  sscanf(cmor_current_dataset.attributes_values[i],"%i",&itmp2);
	  ierr = nc_put_att_int(ncid, NC_GLOBAL, cmor_current_dataset.attributes_names[i],NC_INT,1,&itmp2);
	  if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING,"NetCDF error (%i: %s) for variable %s (table: %s) writing global att: %s (%s)",ierr,nc_strerror(ierr),cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,cmor_current_dataset.attributes_names[i],cmor_current_dataset.attributes_values[i]); cmor_handle_error(msg,CMOR_CRITICAL);}
	  if (ncid!=ncafid) {
	    ierr = nc_put_att_int(ncafid, NC_GLOBAL, cmor_current_dataset.attributes_names[i],NC_INT,1,&itmp2);
	    if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING,"NetCDF error (%i: %s) for variable %s (table: %s) writing global att to metafile: %s (%s)",ierr,nc_strerror(ierr),cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,cmor_current_dataset.attributes_names[i],cmor_current_dataset.attributes_values[i]); cmor_handle_error(msg,CMOR_CRITICAL);}
	  }
	}
	else if (strcmp(cmor_current_dataset.attributes_names[i],"branch_time")==0) {
	  /* double attribute */
	  sscanf(cmor_current_dataset.attributes_values[i],"%lf",&tmps[0]);
	  ierr = nc_put_att_double(ncid, NC_GLOBAL, cmor_current_dataset.attributes_names[i],NC_DOUBLE,1,&tmps[0]);
	  if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING,"NetCDF error (%i: %s) for variable %s (table: %s)  writing global att: %s (%s)",ierr,nc_strerror(ierr),cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,cmor_current_dataset.attributes_names[i],cmor_current_dataset.attributes_values[i]); cmor_handle_error(msg,CMOR_CRITICAL);}
	  if (ncid!=ncafid) {
	    ierr = nc_put_att_double(ncafid, NC_GLOBAL, cmor_current_dataset.attributes_names[i],NC_DOUBLE,1,&tmps[0]);
	    if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING,"NetCDF error (%i: %s) for variable %s (table: %s), writing global att to metafile: %s (%s)",ierr,nc_strerror(ierr),cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,cmor_current_dataset.attributes_names[i],cmor_current_dataset.attributes_values[i]); cmor_handle_error(msg,CMOR_CRITICAL);}
	  }
	}
	else {
	  itmp2 = strlen(cmor_current_dataset.attributes_values[i]);
	  if (itmp2<CMOR_DEF_ATT_STR_LEN) {
	    for (itmp2=strlen(cmor_current_dataset.attributes_values[i]);itmp2<CMOR_DEF_ATT_STR_LEN;itmp2++) {
	      cmor_current_dataset.attributes_values[i][itmp2]='\0';
	    }
	    itmp2=CMOR_DEF_ATT_STR_LEN;
	  }
	   ierr = nc_put_att_text(ncid, NC_GLOBAL,cmor_current_dataset.attributes_names[i],itmp2,cmor_current_dataset.attributes_values[i]);
	  if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING,"NetCDF error (%i: %s) for variable %s (table: %s)  writing global att: %s (%s)",ierr,nc_strerror(ierr),cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,cmor_current_dataset.attributes_names[i],cmor_current_dataset.attributes_values[i]); cmor_handle_error(msg,CMOR_CRITICAL);}
	  if (ncid!=ncafid) {
          if (strcmp(cmor_current_dataset.attributes_names[i],"forecast_reference_time")!=0) {
	    ierr = nc_put_att_text(ncafid, NC_GLOBAL,cmor_current_dataset.attributes_names[i],itmp2,cmor_current_dataset.attributes_values[i]);
          }
	    if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING,"NetCDF error (%i: %s) for variable %s (table %s), writing global att to metafile: %s (%s)",ierr,nc_strerror(ierr),cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,cmor_current_dataset.attributes_names[i],cmor_current_dataset.attributes_values[i]); cmor_handle_error(msg,CMOR_CRITICAL);}
	  }
	}
      }
    }
    /* realization */
//if(strcmp(CMOR_PROJECT,"SPECS")!=0){
    ierr = nc_put_att_int(ncid, NC_GLOBAL,"realization",NC_INT,1,&cmor_current_dataset.realization);
    if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING,"NetCDF error (%i: %s) writing variable %s (table: %s) global att realization (%i)",ierr,nc_strerror(ierr),cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,cmor_current_dataset.realization); cmor_handle_error(msg,CMOR_CRITICAL);}
//}

if(strcmp(CMOR_PROJECT,"SPECS")==0){
/*add start date in glo atts*/
  if (strcmp(sd,"")!=0) {
    strcpy(sd,"");
  }
    cmor_get_cur_dataset_attribute("forecast_reference_time",sd);
    strncattrim(startdate,"S",CMOR_MAX_STRING-strlen(sd));
    str=strtok(sd,"-");
    strncattrim(startdate,str,CMOR_MAX_STRING-strlen(sd));
    str=strtok(NULL,"-");
    strncattrim(startdate,str,CMOR_MAX_STRING-strlen(sd));
    str=strtok(NULL,"(");
    strncattrim(startdate,str,CMOR_MAX_STRING-strlen(sd));
    ierr = nc_put_att_text(ncid, NC_GLOBAL,"startdate",strlen(startdate)+1,startdate);
    if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING,"NetCDF error (%i: %s) writing variable %s (table: %s) global att startdate (%f)",ierr,nc_strerror(ierr),cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,afloat); cmor_handle_error(msg,CMOR_CRITICAL);}
}
    cmor_get_cur_dataset_attribute("associated_experiment",assoc_exp);
    ierr = nc_put_att_text(ncid, NC_GLOBAL,"associated_experiment",strlen(assoc_exp)+1,assoc_exp);
    /* cmor_ver */
    snprintf(msg,CMOR_MAX_STRING,"%i.%i.%i",CMOR_VERSION_MAJOR,CMOR_VERSION_MINOR,CMOR_VERSION_PATCH);
    ierr = nc_put_att_text(ncid, NC_GLOBAL,"cmor_version",strlen(msg)+1,msg);
    if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING,"NetCDF error (%i: %s) writing variable %s (table: %s) global att cmor_version (%f)",ierr,nc_strerror(ierr),cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,afloat); cmor_handle_error(msg,CMOR_CRITICAL);}

    if (ncid!=ncafid) {
      ierr = nc_put_att_int(ncafid, NC_GLOBAL,"realization",NC_INT,1,&cmor_current_dataset.realization);
      if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING,"NetCDF error (%i: %s) writing variable %s (table: %s) global att realization (%i) to metafile",ierr,nc_strerror(ierr),cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,cmor_current_dataset.realization); cmor_handle_error(msg,CMOR_CRITICAL);}
      /* cmor_ver */
      ierr = nc_put_att_text(ncid, NC_GLOBAL,"cmor_version",strlen(msg)+1,msg);
      if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING,"NetCDF error (%i: %s) writing variable %s (table: %s) global att cmor_version (%f)",ierr,nc_strerror(ierr),cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,afloat); cmor_handle_error(msg,CMOR_CRITICAL);}
    }
    if (isfixed==1) cmor_current_dataset.realization = origRealization;
    
    /* store netcdf file id associated with this variable */
    cmor_vars[var_id].initialized=ncid;


    /* define dimensions in NetCDF file */
    for (i=0;i<cmor_vars[var_id].ndims;i++) {
      /* did we flip that guy? */
      if (cmor_axes[cmor_vars[var_id].axes_ids[i]].revert==-1) {
	sprintf(msg,"Inverted axis: %s",cmor_axes[cmor_vars[var_id].axes_ids[i]].id);
        /* fiddle to avoid duplicated effort here if it's already inverted */
        if (cmor_history_contains(var_id, msg)) {
          /* do nothing */
        } else {
	  cmor_update_history(var_id,msg);
        }
      }
      /* Axis length */
      j=cmor_axes[cmor_vars[var_id].axes_ids[i]].length;
      if ((i==0)&&(cmor_axes[cmor_vars[var_id].axes_ids[i]].axis=='T')) j=NC_UNLIMITED;
      if ((cmor_axes[cmor_vars[var_id].axes_ids[i]].axis=='X') || (cmor_axes[cmor_vars[var_id].axes_ids[i]].axis=='Y')) {
	nc_dim_chunking[i]=j;
      }
      else if (cmor_axes[cmor_vars[var_id].axes_ids[i]].isgridaxis==1) {
	nc_dim_chunking[i]=j;
      }
      else {
	nc_dim_chunking[i]=1;
      }
      ierr = nc_def_dim(ncid,cmor_axes[cmor_vars[var_id].axes_ids[i]].id,j,&nc_dim[i]);
      if (ierr != NC_NOERR) {
	snprintf(msg,CMOR_MAX_STRING,"NetCDF error (%i:%s) for dimension definition of axis: %s (%i), for variable %i (%s, table: %s)",ierr,nc_strerror(ierr),cmor_axes[cmor_vars[var_id].axes_ids[i]].id,cmor_vars[var_id].axes_ids[i],var_id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	ierr = nc_enddef(ncid);
	cmor_handle_error(msg,CMOR_CRITICAL);
      }
      nc_dim_af[i]=nc_dim[i];
      if (ncid!=ncafid) {
	ierr = nc_def_dim(ncafid,cmor_axes[cmor_vars[var_id].axes_ids[i]].id,j,&nc_dim_af[i]);
	if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING,"NetCDF error (%i: %s) for dimension definition of axis: %s (%i) in metafile, variable %s (table: %s)",ierr,nc_strerror(ierr),cmor_axes[cmor_vars[var_id].axes_ids[i]].id,i,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id); cmor_handle_error(msg,CMOR_CRITICAL);}
      }
    }

    /* creates the bounds dim (only in metafile?)*/
    ierr = nc_def_dim(ncafid,"bnds",2,&dim_bnds);
    if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING,"NC error (%i: %s), error creating bnds dimension to metafile, variable %s (table: %s)",ierr,nc_strerror(ierr),cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id); cmor_handle_error(msg,CMOR_CRITICAL);}
if(strcmp(CMOR_PROJECT,"SPECS")==0){
        ierr = nc_def_var(ncid,"leadtime",NC_DOUBLE,1,&nc_dim[0],&nc_var_reftime);
        if (ierr != NC_NOERR) { 
         printf("%s %s \n","def var error",nc_strerror(ierr));
         strcpy(msg,nc_strerror(ierr));
         cmor_handle_error(msg,CMOR_CRITICAL);
        };
        strcpy(msg,"days");
        n=strlen(msg)+1;
        nc_put_att_text(ncid,nc_var_reftime,"units",n,msg);

        strcpy(msg,"Time elapsed since the start of the forecast");
        n=strlen(msg)+1;
        nc_put_att_text(ncid,nc_var_reftime,"long_name",n,msg);
        strcpy(msg,"forecast_period");
        n=strlen(msg)+1;
        nc_put_att_text(ncid,nc_var_reftime,"standard_name",n,msg);
}
    /* Now define the variable corresponding to store the dimensions values */
    for (i=0;i<cmor_vars[var_id].ndims;i++) {
      if (cmor_axes[cmor_vars[var_id].axes_ids[i]].store_in_netcdf == 0) continue;
      if (cmor_axes[cmor_vars[var_id].axes_ids[i]].cvalues == NULL) {
	/* first we need to figure out the output type */
	switch (cmor_tables[cmor_axes[cmor_vars[var_id].axes_ids[i]].ref_table_id].axes[cmor_axes[cmor_vars[var_id].axes_ids[i]].ref_axis_id].type) {
	case ('f') :
	  j = NC_FLOAT;
	  break;
	case('d') :
	  j = NC_DOUBLE;
	  break;
	case ('i') :
	  j= NC_INT;
	  break;
	default:
	  j=NC_DOUBLE;
	  break;
	}
if(strcmp(CMOR_PROJECT,"SPECS")!=0){
        ierr = nc_def_var(ncid,cmor_axes[cmor_vars[var_id].axes_ids[i]].id,j,1,&nc_dim[i],&nc_vars[i]);
        if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING, "NetCDF Error (%i: %s) for variable %s (table: %s) error defining dim var: %i (%s)",ierr,nc_strerror(ierr),cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,i,cmor_axes[cmor_vars[var_id].axes_ids[i]].id);cmor_handle_error(msg,CMOR_CRITICAL);}
}
else {
	ierr = nc_def_var(ncid,"leadtime",j,1,&nc_dim[i],&nc_vars[i]);
        if (strcmp(cmor_axes[cmor_vars[var_id].axes_ids[i]].id,"time")==0) {
          strcpy(var_dim_name,"time");
        }
         else {
           strcpy(var_dim_name,cmor_axes[cmor_vars[var_id].axes_ids[i]].id);
        }
	ierr = nc_def_var(ncid,var_dim_name,j,1,&nc_dim[i],&nc_vars[i]);
        	if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING, "NetCDF Error (%i: %s) for variable %s (table: %s) error defining dim var: %i (%s)",ierr,nc_strerror(ierr),cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,i,cmor_axes[cmor_vars[var_id].axes_ids[i]].id);cmor_handle_error(msg,CMOR_CRITICAL);}
}
	/* /\* table are different ? *\/ */
	/* if (cmor_axes[cmor_vars[var_id].axes_ids[i]].ref_table_id!=cmor_vars[var_id].ref_table_id) { */
	/*   snprintf(msg,CMOR_MAX_STRING,"Table %s (%s) ",cmor_tables[cmor_axes[cmor_vars[var_id].axes_ids[i]].ref_table_id].table_id,cmor_tables[cmor_axes[cmor_vars[var_id].axes_ids[i]].ref_table_id].date); */
	/*   for (i=0;i<16;i++) sprintf(&ctmp[2*i],"%02x",cmor_tables[cmor_axes[cmor_vars[var_id].axes_ids[i]].ref_table_id].md5[i]); */
	/*   ctmp[32]='\0'; */
	/*   strcat(msg,ctmp); */
	/*   ierr = nc_put_att_text(ncid, nc_vars[i],"table_id",strlen(msg)+1,msg); */
	/*   if (ierr != NC_NOERR) { */
	/*     snprintf(ctmp2,CMOR_MAX_STRING,"NetCDF error (%i) for variable %s axis %s writing table_id att (%s)",ierr,cmor_vars[var_id].id,cmor_axes[cmor_vars[var_id].axes_ids[i]].id,msg); */
	/*     cmor_handle_error(ctmp2,CMOR_CRITICAL); */
	/*   } */
	/* } */
	/* Compression stuff */
	if ((CMOR_NETCDF_MODE != CMOR_REPLACE_3) && (CMOR_NETCDF_MODE != CMOR_PRESERVE_3) && (CMOR_NETCDF_MODE != CMOR_APPEND_3)) {
	  ics = cmor_tables[cmor_vars[var_id].ref_table_id].vars[cmor_vars[var_id].ref_var_id].shuffle;
	  icd = cmor_tables[cmor_vars[var_id].ref_table_id].vars[cmor_vars[var_id].ref_var_id].deflate;
	  icdl = cmor_tables[cmor_vars[var_id].ref_table_id].vars[cmor_vars[var_id].ref_var_id].deflate_level;
	  ierr = nc_def_var_deflate(ncid,nc_vars[i],ics,icd,icdl);
/*
netcdf4 compression
*/
	  if (ierr != NC_NOERR) {
	    snprintf(msg,CMOR_MAX_STRING,"NCError (%i: %s) defining compression parameters for dimension %s for variable '%s' (table: %s)",ierr,nc_strerror(ierr),cmor_axes[cmor_vars[var_id].axes_ids[i]].id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	    cmor_handle_error(msg,CMOR_CRITICAL);
	  }
	}

	nc_vars_af[i]=nc_vars[i];
	if (ncid!=ncafid) {
	  ierr = nc_def_var(ncafid,cmor_axes[cmor_vars[var_id].axes_ids[i]].id,j,1,&nc_dim_af[i],&nc_vars_af[i]);
	  if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING, "NetCDF Error (%i: %s ) for variable %s (table: %s) error defining dim var: %i (%s) in metafile",ierr,nc_strerror(ierr),cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,i,cmor_axes[cmor_vars[var_id].axes_ids[i]].id);cmor_handle_error(msg,CMOR_CRITICAL);}

	  /* Compression stuff */
	  if ((CMOR_NETCDF_MODE != CMOR_REPLACE_3) && (CMOR_NETCDF_MODE != CMOR_PRESERVE_3) && (CMOR_NETCDF_MODE != CMOR_APPEND_3)) {
	    ics = cmor_tables[cmor_vars[var_id].ref_table_id].vars[cmor_vars[var_id].ref_var_id].shuffle;
	    icd = cmor_tables[cmor_vars[var_id].ref_table_id].vars[cmor_vars[var_id].ref_var_id].deflate;
	    icdl = cmor_tables[cmor_vars[var_id].ref_table_id].vars[cmor_vars[var_id].ref_var_id].deflate_level;
	    ierr = nc_def_var_deflate(ncafid,nc_vars_af[i],ics,icd,icdl);
/*
netcdf4 compression
*/
	    if (ierr != NC_NOERR) {
	      snprintf(msg,CMOR_MAX_STRING,"NCError (%i: %s) defining compression parameters for dimension %s for variable '%s' (table: %s)",ierr,nc_strerror(ierr),cmor_axes[cmor_vars[var_id].axes_ids[i]].id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	      cmor_handle_error(msg,CMOR_CRITICAL);
	    }
	  }
	}

      }
      else {
	/* ok at this point i'm assuming only 1 string dimension! might need to be revised */
	/* so i only create 1 strlen dim */
	/* first need to figure out if the "region name is defined */
	strcpy(ctmp,cmor_tables[cmor_axes[cmor_vars[var_id].axes_ids[i]].ref_table_id].axes[cmor_axes[cmor_vars[var_id].axes_ids[i]].ref_axis_id].cname);
	if (ctmp[0]=='\0') {
	  strcpy(ctmp,"geo_region");
	}
	if (cmor_has_variable_attribute(var_id,"coordinates")==0) {
	  cmor_get_variable_attribute(var_id,"coordinates",msg);
	  l=0;
	  for (j=0;j<strlen(msg)-strlen(ctmp)+1;j++) {
	    if (strncmp(ctmp,&msg[j],strlen(ctmp))==0) {
	      l=1;
	      break;
	    }
	  }
	  if (l==0) {
	    strncat(msg," ",CMOR_MAX_STRING-strlen(msg));
	    strncat(msg,ctmp,CMOR_MAX_STRING-strlen(msg));
	  }
	}
	else {
	  strncpy(msg,ctmp,CMOR_MAX_STRING);
	}
	cmor_set_variable_attribute_internal(var_id,"coordinates",'c',msg);
	l=0;
	for (j=0;j<cmor_axes[cmor_vars[var_id].axes_ids[i]].length;j++) {
	  strncpy(msg,cmor_axes[cmor_vars[var_id].axes_ids[i]].cvalues[j],CMOR_MAX_STRING);
	  k = strlen(msg);
	  if (k>l) l=k;
	}
	/* ok so now i can create the dummy dim strlen */
	ierr = nc_def_dim(ncid,"strlen",l,&tmp_dims[1]);
	if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING,"NetCDF error (%i: %s) for dummy 'strlen' dimension definition of axis: %s (%i) in metafile, while writing variable %s (table: %s)",ierr,nc_strerror(ierr), cmor_axes[cmor_vars[var_id].axes_ids[i]].id,i,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id); cmor_handle_error(msg,CMOR_CRITICAL);}
	tmp_dims[0]=nc_dim[i];
	ierr = nc_def_var(ncid,ctmp,NC_CHAR,2,&tmp_dims[0],&nc_vars[i]);
	if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING, "NetCDF Error (%i: %s) for variable %s (table: %s) error defining dim var: %i (%s)",ierr,nc_strerror(ierr),cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,i,cmor_axes[cmor_vars[var_id].axes_ids[i]].id);cmor_handle_error(msg,CMOR_CRITICAL);}
	nc_vars_af[i]=nc_vars[i];
	if (ncid!=ncafid) {
	  ierr = nc_def_dim(ncafid,"strlen",l,&tmp_dims[1]);
	  if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING,"NetCDF error (%i: %s) for dummy 'strlen' dimension definition of axis: %s (%i) in metafile, while writing variable %s (table: %s)",ierr,nc_strerror(ierr),cmor_axes[cmor_vars[var_id].axes_ids[i]].id,i,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id); cmor_handle_error(msg,CMOR_CRITICAL);}
	  tmp_dims[0]=nc_dim_af[i];
	  ierr = nc_def_var(ncafid,ctmp,NC_CHAR,1,&tmp_dims[0],&nc_vars_af[i]);
	  if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING, "NetCDF Error (%i: %s) for variable %s (table: %s) error defining dim var: %i (%s) in metafile",ierr,nc_strerror(ierr),cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,i,cmor_axes[cmor_vars[var_id].axes_ids[i]].id);cmor_handle_error(msg,CMOR_CRITICAL);}
	}
      }
      /* ok do we have bounds on this axis? */
      if ((cmor_axes[cmor_vars[var_id].axes_ids[i]].bounds!=NULL)||((i==0) && (time_bounds!=NULL))) {
	strncpy(ctmp,cmor_axes[cmor_vars[var_id].axes_ids[i]].id,CMOR_MAX_STRING);
	strncat(ctmp,"_bnds",CMOR_MAX_STRING-strlen(ctmp));
	snprintf(msg,CMOR_MAX_STRING,"bounds");
	if (i==0) {
	  /* Ok here we need to see if it is a climatological variable in order to change */
	  /* the "bounds" attribute into "climatology" */
	  if (cmor_tables[cmor_axes[cmor_vars[var_id].axes_ids[i]].ref_table_id].axes[cmor_axes[cmor_vars[var_id].axes_ids[i]].ref_axis_id].climatology==1) {
	    snprintf(msg,CMOR_MAX_STRING,"climatology");
	    strncpy(ctmp,"climatology_bnds",CMOR_MAX_STRING);
	  }
	}
	dims_bnds_ids[0]=nc_dim[i];
	dims_bnds_ids[1]=dim_bnds;
	switch (cmor_tables[cmor_axes[cmor_vars[var_id].axes_ids[i]].ref_table_id].axes[cmor_axes[cmor_vars[var_id].axes_ids[i]].ref_axis_id].type) {
	case ('f') :
	  j = NC_FLOAT;
	  break;
	case('d') :
	  j = NC_DOUBLE;
	  break;
	case ('i') :
	  j= NC_INT;
	  break;
	default:
	  j=NC_DOUBLE;
	  break;
	}
	ierr = nc_def_var(ncafid,ctmp,j,2,&dims_bnds_ids[0],&nc_bnds_vars[i]);
	if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING, "NetCDF Error (%i: %s) for variable %s (table: %s) error defining bounds dim var: %i (%s)",ierr,nc_strerror(ierr),cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,i,cmor_axes[cmor_vars[var_id].axes_ids[i]].id);cmor_handle_error(msg,CMOR_CRITICAL);}

	/* Compression stuff */
	if ((CMOR_NETCDF_MODE != CMOR_REPLACE_3) && (CMOR_NETCDF_MODE != CMOR_PRESERVE_3) && (CMOR_NETCDF_MODE != CMOR_APPEND_3)) {
	  ics = cmor_tables[cmor_vars[var_id].ref_table_id].vars[cmor_vars[var_id].ref_var_id].shuffle;
	  icd = cmor_tables[cmor_vars[var_id].ref_table_id].vars[cmor_vars[var_id].ref_var_id].deflate;
	  icdl = cmor_tables[cmor_vars[var_id].ref_table_id].vars[cmor_vars[var_id].ref_var_id].deflate_level;
	  ierr = nc_def_var_deflate(ncafid,nc_bnds_vars[i],ics,icd,icdl);
/*
netcdf4 compression
*/
	  if (ierr != NC_NOERR) {
	    snprintf(msg,CMOR_MAX_STRING,"NCError (%i: %s) defining compression parameters for bounds variable %s for variable '%s' (table: %s)",ierr,nc_strerror(ierr),ctmp,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	    cmor_handle_error(msg,CMOR_CRITICAL);
	  }
	}
	  /* sets the bounds attribute of parent var */
	if (i==0) cmor_vars[var_id].time_bnds_nc_id = nc_bnds_vars[i];
	ierr = nc_put_att_text(ncafid,nc_vars[i],msg,strlen(ctmp)+1,ctmp);
	if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING, "NetCDF Error (%i: %s) for variable %s (table: %s) error defining bounds attribute var: %i (%s)",ierr,nc_strerror(ierr),cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,i,cmor_axes[cmor_vars[var_id].axes_ids[i]].id);cmor_handle_error(msg,CMOR_CRITICAL);}
      }
      /* Creates attribute related to that axis */
      for (j=0;j<cmor_axes[cmor_vars[var_id].axes_ids[i]].nattributes;j++){
	if (strcmp(cmor_axes[cmor_vars[var_id].axes_ids[i]].attributes[j],"z_factors")==0) {
	  /* ok this part checks for z_factor things */
	  /* creates the formula terms attriubte */
	  strncpy(msg,cmor_axes[cmor_vars[var_id].axes_ids[i]].attributes_values_char[j],CMOR_MAX_STRING);
	  n=strlen(msg)+1;
	  ierr = nc_put_att_text(ncid,nc_vars[i],"formula_terms",n,msg);
	  if (ierr != NC_NOERR) {snprintf(ctmp,CMOR_MAX_STRING,"NetCDF error (%i: %s) writing formula term att (%s) for axis %i (%s), variable %s (table: %s)",ierr,nc_strerror(ierr),msg,i,cmor_axes[cmor_vars[var_id].axes_ids[i]].id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);cmor_handle_error(msg,CMOR_CRITICAL);}
/* 	  printf("doing formula for: %s\n",msg); */
	  if (ncid!=ncafid) {
	  ierr = nc_put_att_text(ncafid,nc_vars_af[i],"formula_terms",n,msg);
	  if (ierr != NC_NOERR) {snprintf(ctmp,CMOR_MAX_STRING,"NetCDF error (%i: %s) writing formula term att (%s) for axis %i (%s), variable %s (table: %s)",ierr,nc_strerror(ierr),msg,i,cmor_axes[cmor_vars[var_id].axes_ids[i]].id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);cmor_handle_error(ctmp,CMOR_CRITICAL);}
	  }
	  ierr =  cmor_define_zfactors_vars(var_id,ncafid, &nc_dim_af[0],msg,&nzfactors, &zfactors[0],&nc_zfactors[0],i,-1);
	}
	else if (strcmp(cmor_axes[cmor_vars[var_id].axes_ids[i]].attributes[j],"z_bounds_factors")==0) {
	  cmor_get_axis_attribute(cmor_vars[var_id].axes_ids[i],"formula",'c',&msg);
	  n=strlen(msg)+1;
	  ierr = nc_put_att_text(ncafid,nc_bnds_vars[i],"formula",n,msg);
	  cmor_get_axis_attribute(cmor_vars[var_id].axes_ids[i],"standard_name",'c',&msg);
	  n=strlen(msg);
	  ierr = nc_put_att_text(ncafid,nc_bnds_vars[i],"standard_name",n,msg);
	  cmor_get_axis_attribute(cmor_vars[var_id].axes_ids[i],"units",'c',&msg);
	  n=strlen(msg)+1;
	  ierr = nc_put_att_text(ncafid,nc_bnds_vars[i],"units",n,msg);
	  /*formula terms*/
	  strncpy(msg,cmor_axes[cmor_vars[var_id].axes_ids[i]].attributes_values_char[j],CMOR_MAX_STRING);
	  n=strlen(msg)+1;
	  ierr = nc_put_att_text(ncafid,nc_bnds_vars[i],"formula_terms",n,msg);
	  ierr =  cmor_define_zfactors_vars(var_id,ncafid, nc_dim,msg,&nzfactors, &zfactors[0],&nc_zfactors[0],i,dim_bnds);
	}
	else if (strcmp(cmor_axes[cmor_vars[var_id].axes_ids[i]].attributes[j],"interval")==0) {
	  if (cmor_has_variable_attribute(var_id,"cell_methods")==0) {
	    cmor_get_variable_attribute(var_id,"cell_methods",msg);
	  }
	  else {
	    strcpy(msg,"");
	  }
	  strncpy(ctmp,cmor_axes[cmor_vars[var_id].axes_ids[i]].id,CMOR_MAX_STRING);
	  strncat(ctmp,":",CMOR_MAX_STRING-strlen(ctmp));
	  icd = strlen(ctmp);
	  itmpmsg = strlen(msg);
	  for(ics=0;ics<(itmpmsg-icd);ics++) {
	    for(icdl=0;icdl<icd;icdl++) {
	      ctmp2[icdl]=msg[ics+icdl];
	      ctmp2[icdl+1]='\0';
	    }
	    if (strcmp(ctmp2,ctmp)==0) {
	      itmp2 = strlen(ctmp);
	      for(icdl=0;icdl<(ics+itmp2+1);icdl++) {
		ctmp2[icdl]=msg[icdl];
	      }
	      while((msg[icdl]!=' ')&&(msg[icdl]!='\0')) {
		ctmp2[icdl]=msg[icdl];
		icdl++;
	      }
	      ctmp2[icdl]='\0';
	      icd = strlen(ctmp2);
	      /* ok now we need to know if the user passed an interval or not in order to add it */
	      cmor_get_axis_attribute(cmor_vars[var_id].axes_ids[i],"interval",'c',ctmp);
	      cmor_trim_string(ctmp,ctmp3);
	      if (strcmp(ctmp3,"")!=0) {
		strncat(ctmp2," (interval: ",CMOR_MAX_STRING-strlen(ctmp2));
		strncat(ctmp2,ctmp,CMOR_MAX_STRING-strlen(ctmp2));
		strncat(ctmp2,")",CMOR_MAX_STRING-strlen(ctmp2));
	      }
	      ierr = strlen(ctmp2)-icd;
	      itmp3 = strlen(msg);
	      for(icdl=icd;icdl<itmp3;icdl++) {
		ctmp2[icdl+ierr]=msg[icdl];
		ctmp2[icdl+1+ierr]='\0';
	      }
	      cmor_set_variable_attribute_internal(var_id,"cell_methods",'c',ctmp2);
	      break;
	    }
	  }
	}
	else {
	  if ((cmor_tables[cmor_axes[cmor_vars[var_id].axes_ids[i]].ref_table_id].axes[cmor_axes[cmor_vars[var_id].axes_ids[i]].ref_axis_id].type=='c') && (strcmp(cmor_axes[cmor_vars[var_id].axes_ids[i]].attributes[j],"units")==0)) {
	    /* passing we do not want the units attribute */
	  }
	  else {
	    if (cmor_axes[cmor_vars[var_id].axes_ids[i]].attributes_type[j]=='c') {
	      ierr = cmor_put_nc_char_attribute(ncid,nc_vars[i],cmor_axes[cmor_vars[var_id].axes_ids[i]].attributes[j],cmor_axes[cmor_vars[var_id].axes_ids[i]].attributes_values_char[j],cmor_vars[var_id].id);
	      if (ncid!=ncafid) {
		ierr = cmor_put_nc_char_attribute(ncafid,nc_vars_af[i],cmor_axes[cmor_vars[var_id].axes_ids[i]].attributes[j],cmor_axes[cmor_vars[var_id].axes_ids[i]].attributes_values_char[j],cmor_vars[var_id].id);
	      }
	    }
	    else {
	      ierr = cmor_put_nc_num_attribute(ncid,nc_vars[i],cmor_axes[cmor_vars[var_id].axes_ids[i]].attributes[j], cmor_axes[cmor_vars[var_id].axes_ids[i]].attributes_type[j], cmor_axes[cmor_vars[var_id].axes_ids[i]].attributes_values_num[j],cmor_vars[var_id].id);
	      if (ncid!=ncafid) {
		ierr = cmor_put_nc_num_attribute(ncafid,nc_vars_af[i],cmor_axes[cmor_vars[var_id].axes_ids[i]].attributes[j], cmor_axes[cmor_vars[var_id].axes_ids[i]].attributes_type[j], cmor_axes[cmor_vars[var_id].axes_ids[i]].attributes_values_num[j],cmor_vars[var_id].id);
	      }
	    }
	  }
	}
      }
    }
    /* Store the dimension id for reuse when writting over multiple call to cmor_write */
    cmor_vars[var_id].time_nc_id = nc_vars[0];

    /* check if it is a grid thing */
    if (cmor_vars[var_id].grid_id>-1) {
      /* first of all checks for grid_mapping */
      if (strcmp(cmor_grids[cmor_vars[var_id].grid_id].mapping,"")!=0) {
	/* ok we need to create this dummy variable that contains all the info */
	cmor_set_variable_attribute_internal(var_id,"grid_mapping",'c',cmor_grids[cmor_vars[var_id].grid_id].mapping);
	ierr = nc_def_var(ncafid,cmor_grids[cmor_vars[var_id].grid_id].mapping,NC_INT,0,&nc_dims_associated[0],&m);
	if (ierr != NC_NOERR) {
	  snprintf(msg,CMOR_MAX_STRING,"NetCDF error (%i: %s) while defining associated grid mapping variable %s for variable %s (table: %s)",ierr,nc_strerror(ierr),cmor_grids[cmor_vars[var_id].grid_id].mapping,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	  cmor_handle_error(msg,CMOR_CRITICAL);
	}
	/* Creates attributes related to that variable */
	ierr = cmor_put_nc_char_attribute(ncafid,m,"grid_mapping_name",cmor_grids[cmor_vars[var_id].grid_id].mapping,cmor_vars[var_id].id);
	for (k=0;k<cmor_grids[cmor_vars[var_id].grid_id].nattributes;k++){
	  if (strcmp(cmor_grids[cmor_vars[var_id].grid_id].attributes_names[k],"standard_parallel1")==0 ||strcmp(cmor_grids[cmor_vars[var_id].grid_id].attributes_names[k],"standard_parallel2")==0 ){
	    i = -cmor_vars[var_id].grid_id-CMOR_MAX_GRIDS;
	    if ((cmor_has_grid_attribute(i,"standard_parallel1")==0) && (cmor_has_grid_attribute(i,"standard_parallel2")==0)) {
	      cmor_get_grid_attribute(i,"standard_parallel1",&tmps[0]);
	      cmor_get_grid_attribute(i,"standard_parallel2",&tmps[1]);
	      ierr = nc_put_att_double(ncafid,m,"standard_parallel",NC_DOUBLE,2,&tmps[0]);
	    }
	    else if (cmor_has_grid_attribute(i,"standard_parallel1")==0) {
	      cmor_get_grid_attribute(i,"standard_parallel1",&tmps[0]);
	      ierr = nc_put_att_double(ncafid,m,"standard_parallel",NC_DOUBLE,1,&tmps[0]);
	    }
	    else {
	      cmor_get_grid_attribute(i,"standard_parallel2",&tmps[0]);
	      ierr = nc_put_att_double(ncafid,m,"standard_parallel",NC_DOUBLE,1,&tmps[0]);
	    }
	    if (ierr!=NC_NOERR) {
	      snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i: %s) writing standard_parallel to file, varialbe: %s (table: %s)",ierr, nc_strerror(ierr),cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	      cmor_handle_error(msg,CMOR_NORMAL);
	      cmor_pop_traceback();
	      return 1;
	    }
	  }
	  else {
	    ierr = cmor_put_nc_num_attribute(ncafid,m,cmor_grids[cmor_vars[var_id].grid_id].attributes_names[k],'d',cmor_grids[cmor_vars[var_id].grid_id].attributes_values[k],cmor_grids[cmor_vars[var_id].grid_id].mapping);
	  }
	}
      }
      /* preps the marker for vertices diemnsions */
      m=0;
      /* At this point creates the associated variables */
      /* all is done is associated file */
      for (i=0;i<5;i++) {
	m2[i]=0;
	j = cmor_grids[cmor_vars[var_id].grid_id].associated_variables[i];
	if (j!=-1) {
	  /* ok we need to define this variable */
	  l=0;
	  /* first we need to figure out the actual grid dimensions and their netcdf eq */
	  for(k=0;k<cmor_vars[var_id].ndims;k++) {
	    if (cmor_axes[cmor_vars[var_id].axes_ids[k]].isgridaxis==1) {
	      nc_dims_associated[l]=nc_dim_af[k];
/* 	      printf("ok we have a grid axis %s associated with dim %i (k is: %i)\n",cmor_axes[cmor_vars[var_id].axes_ids[k]].id,l,k); */

	      if (m2[i]==0 && (i==0 || i==1)) {
               if (cmor_has_variable_attribute(var_id,"coordinates")==0) {
                 cmor_get_variable_attribute(var_id,"coordinates",&msg);
                 cmor_cat_unique_string(msg, cmor_vars[cmor_grids[cmor_vars[var_id].grid_id].associated_variables[i]].id);
               } else {
                 strncpy(msg,cmor_vars[cmor_grids[cmor_vars[var_id].grid_id].associated_variables[i]].id,CMOR_MAX_STRING-strlen(msg));
               }
		cmor_set_variable_attribute_internal(var_id,"coordinates",'c',msg);
		m2[i]=1;
	      }
	      l++;
	    }
	  }
	  if (((i==2) || (i==3)) && (m==0)) { /*vertices need to be added */
	    m=1; /* ok now it has been defined */
	    ierr = nc_def_dim(ncafid,"vertices",cmor_axes[cmor_vars[j].axes_ids[cmor_vars[j].ndims-1]].length,&nc_dims_associated[l]);
	    if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING,"NetCDF error (%i: %s) while defining vertices dimension, variable %s (table: %s)",ierr,nc_strerror(ierr),cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);cmor_handle_error(msg,CMOR_CRITICAL);}
	  }
	  mtype = cmor_vars[j].type;
/* 	  for(k=0;k<cmor_vars[var_id].ndims;k++) { */
/* 	    printf("nc dim for dim %i is: %i\n",k,nc_dims_associated[k]); */
/* 	  } */
	  if (mtype=='d' ) ierr = nc_def_var(ncafid,cmor_vars[j].id,NC_DOUBLE,cmor_vars[j].ndims,&nc_dims_associated[0],&nc_associated_vars[i]);
	  else if (mtype=='f' ) ierr = nc_def_var(ncafid,cmor_vars[j].id,NC_FLOAT,cmor_vars[j].ndims,&nc_dims_associated[0],&nc_associated_vars[i]);
	  else if (mtype=='l' ) ierr = nc_def_var(ncafid,cmor_vars[j].id,NC_INT,cmor_vars[j].ndims,&nc_dims_associated[0],&nc_associated_vars[i]);
	  else if (mtype=='i' ) ierr = nc_def_var(ncafid,cmor_vars[j].id,NC_INT,cmor_vars[j].ndims,&nc_dims_associated[0],&nc_associated_vars[i]);
	  if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING,"NetCDF error (%i: %s) while defining associated variable %s, of variable %s (table: %s)",ierr,nc_strerror(ierr),cmor_vars[j].id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);cmor_handle_error(msg,CMOR_CRITICAL);}
	  /* /\* at this point we check if tables match *\/ */
	  /* if (cmor_vars[j].ref_table_id!=cmor_vars[var_id].ref_table_id) { */
	  /*   snprintf(msg,CMOR_MAX_STRING,"Table %s (%s) ",cmor_tables[cmor_vars[j].ref_table_id].table_id,cmor_tables[cmor_vars[j].ref_table_id].date); */
	  /*   for (i=0;i<16;i++) sprintf(&ctmp[2*i],"%02x",cmor_tables[cmor_axes[cmor_vars[var_id].axes_ids[i]].ref_table_id].md5[i]); */
	  /*   ctmp[32]='\0'; */
	  /*   strcat(msg,ctmp); */
	  /*   ierr = nc_put_att_text(ncid, nc_associated_vars[i],"table_id",strlen(msg)+1,msg); */
	  /*   if (ierr != NC_NOERR) { */
	  /*     snprintf(ctmp2,CMOR_MAX_STRING,"NetCDF error (%i) for associated variable %s writing table_id att (%s) onto associated var: %s",ierr,cmor_vars[var_id].id,msg,cmor_vars[j].id); */
	  /*     cmor_handle_error(ctmp2,CMOR_CRITICAL); */
	  /*   } */
	  /* } */
	  /* Creates attributes related to that variable */
	  for (k=0;k<cmor_vars[j].nattributes;k++){
	    /* first of all we need to make sure it is not an empty attribute */
	    if (cmor_has_variable_attribute(j,cmor_vars[j].attributes[k])!=0) {
	      /* deleted attribute continue on */
	      continue;
	    }
	    if (strcmp(cmor_vars[j].attributes[k],"flag_values")==0) {
	      /* ok we need to convert the string to a list of int */
	      ierr = cmor_convert_string_to_list(cmor_vars[j].attributes_values_char[k],'i',(void *)&int_list,&nelts);
	      ierr = nc_put_att_int(ncafid, nc_associated_vars[i],"flag_values",NC_INT,nelts,int_list);
	      if (ierr != NC_NOERR) {
		snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i: %s) setting flags numerical attribute on associated variable %s, for variable %s (table: %s)",ierr,nc_strerror(ierr),cmor_vars[j].id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
		cmor_handle_error(msg,CMOR_CRITICAL);
	      }
	      free(int_list);
	    }
	    else if (cmor_vars[j].attributes_type[k] == 'c') {
/*          if (strcmp("units",cmor_axes[j].attributes[k])==0) {
          }
*/
	      ierr = cmor_put_nc_char_attribute(ncafid,nc_associated_vars[i],cmor_vars[j].attributes[k],cmor_vars[j].attributes_values_char[k],cmor_vars[j].id) ;
	    }
	    else {
	      ierr = cmor_put_nc_num_attribute(ncafid,nc_associated_vars[i],cmor_vars[j].attributes[k],cmor_vars[j].attributes_type[k],cmor_vars[j].attributes_values_num[k],cmor_vars[j].id);
	    }
	  }
	  /* Compression stuff */
	  if ((CMOR_NETCDF_MODE != CMOR_REPLACE_3) && (CMOR_NETCDF_MODE != CMOR_PRESERVE_3) && (CMOR_NETCDF_MODE != CMOR_APPEND_3)) {
	    if (cmor_vars[j].ndims>0) {
	      ics = cmor_tables[cmor_vars[j].ref_table_id].vars[cmor_vars[j].ref_var_id].shuffle;
	      icd = cmor_tables[cmor_vars[j].ref_table_id].vars[cmor_vars[j].ref_var_id].deflate;
	      icdl = cmor_tables[cmor_vars[j].ref_table_id].vars[cmor_vars[j].ref_var_id].deflate_level;
	      ierr = nc_def_var_deflate(ncafid,nc_associated_vars[i],ics,icd,icdl);
/*
netcdf4 compression
*/
	      if (ierr != NC_NOERR) {
		snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i: %s) defining compression parameters for associated variable '%s' for variable %s (table: %s)",ierr,nc_strerror(ierr),cmor_vars[j].id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
		cmor_handle_error(msg,CMOR_CRITICAL);
	      }
	    }
	  }
	}
      }
    }


    /* Creates singleton dimension variables */
    for(i=0;i<CMOR_MAX_DIMENSIONS;i++) {
      j = cmor_vars[var_id].singleton_ids[i];
      if (j!=-1) {
	if (cmor_tables[cmor_axes[j].ref_table_id].axes[cmor_axes[j].ref_axis_id].type=='c'){
	  ierr = nc_def_dim(ncid,"strlen",strlen(cmor_tables[cmor_axes[j].ref_table_id].axes[cmor_axes[j].ref_axis_id].cvalue),&k);
	  ierr = nc_def_var(ncid,cmor_axes[j].id,NC_CHAR,1,&k,&nc_singletons[i]);
	}
	else {
	  ierr = nc_def_var(ncid,cmor_axes[j].id,NC_DOUBLE,0,&nc_singletons[i],&nc_singletons[i]);
	}
	if (ierr != NC_NOERR) {
	  snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i: %s) defining scalar variable %s for variable %s (table: %s)",ierr,nc_strerror(ierr),cmor_axes[j].id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	  cmor_handle_error(msg,CMOR_CRITICAL);
	}
	/* now  puts on its attributes */
	for (k=0;k<cmor_axes[j].nattributes;k++){
          if (strcmp("units",cmor_axes[j].attributes[k])==0) {
          }
	  if (cmor_axes[j].attributes_type[k] == 'c') {
	    ierr = cmor_put_nc_char_attribute(ncid,nc_singletons[i],cmor_axes[j].attributes[k],cmor_axes[j].attributes_values_char[k],cmor_vars[var_id].id) ;
	  }
	  else {
	    ierr = cmor_put_nc_num_attribute(ncid,nc_singletons[i],cmor_axes[j].attributes[k],cmor_axes[j].attributes_type[k],cmor_axes[j].attributes_values_num[k],cmor_vars[var_id].id);
	  }
	}
	/* ok we need to see if there's bounds as well... */
	if (cmor_axes[j].bounds!=NULL) { /*yep */
	  snprintf(msg,CMOR_MAX_STRING,"%s_bnds",cmor_axes[j].id);
	  ierr = cmor_put_nc_char_attribute(ncid,nc_singletons[i],"bounds",msg,cmor_vars[var_id].id) ;
	  ierr = nc_def_var(ncid,msg,NC_DOUBLE,1,&dim_bnds,&nc_singletons_bnds[i]);
	  if (ierr != NC_NOERR) {
	    snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i: %s) defining scalar bounds variable %s for variable %s (table: %s)",ierr,nc_strerror(ierr),cmor_axes[j].id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	    cmor_handle_error(msg,CMOR_CRITICAL);
	  }
	}
      }
    }



    /* Creating variable to write */
    mtype=cmor_vars[var_id].type;
    if (mtype=='d' ) ierr = nc_def_var(ncid,cmor_vars[var_id].id,NC_DOUBLE,cmor_vars[var_id].ndims,&nc_dim[0],&nc_vars[cmor_vars[var_id].ndims]);
    else if (mtype=='f' ) ierr = nc_def_var(ncid,cmor_vars[var_id].id,NC_FLOAT,cmor_vars[var_id].ndims,&nc_dim[0],&nc_vars[cmor_vars[var_id].ndims]);
    else if (mtype=='l' ) ierr = nc_def_var(ncid,cmor_vars[var_id].id,NC_INT,cmor_vars[var_id].ndims,&nc_dim[0],&nc_vars[cmor_vars[var_id].ndims]);
    else if (mtype=='i' ) ierr = nc_def_var(ncid,cmor_vars[var_id].id,NC_INT,cmor_vars[var_id].ndims,&nc_dim[0],&nc_vars[cmor_vars[var_id].ndims]);
    if (ierr != NC_NOERR) {
      snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i: %s) writing variable: %s (table: %s)",ierr,nc_strerror(ierr),cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
      cmor_handle_error(msg,CMOR_CRITICAL);
    }

    /* Store the var id for reuse when writting over multiple call to cmor_write and for cmor_close */
    cmor_vars[var_id].nc_var_id=nc_vars[cmor_vars[var_id].ndims];

    /* Creates attributes related to that variable */
    for (j=0;j<cmor_vars[var_id].nattributes;j++){
      /* first of all we need to make sure it is not an empty attribute */
      if (cmor_has_variable_attribute(var_id,cmor_vars[var_id].attributes[j])!=0) {
	/* deleted attribute continue on */
	continue;
      }
      if (strcmp(cmor_vars[var_id].attributes[j],"flag_values")==0) {
	/* ok we need to convert the string to a list of int */
	ierr = cmor_convert_string_to_list(cmor_vars[var_id].attributes_values_char[j],'i',(void *)&int_list,&nelts);
	ierr = nc_put_att_int(ncid,cmor_vars[var_id].nc_var_id ,"flag_values",NC_INT,nelts,int_list);
	if (ierr != NC_NOERR) {
	  snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i: %s) setting flags numerical attribute on variable %s (table: %s)",ierr,nc_strerror(ierr),cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	  cmor_handle_error(msg,CMOR_CRITICAL);
	}
	free(int_list);
      }
      else if (cmor_vars[var_id].attributes_type[j] == 'c') {
	ierr = cmor_put_nc_char_attribute(ncid,cmor_vars[var_id].nc_var_id,cmor_vars[var_id].attributes[j],cmor_vars[var_id].attributes_values_char[j],cmor_vars[var_id].id) ;
      }
      else {
	ierr = cmor_put_nc_num_attribute(ncid,cmor_vars[var_id].nc_var_id,cmor_vars[var_id].attributes[j],cmor_vars[var_id].attributes_type[j],cmor_vars[var_id].attributes_values_num[j],cmor_vars[var_id].id);
      }
    }

    if ((CMOR_NETCDF_MODE != CMOR_REPLACE_3) && (CMOR_NETCDF_MODE != CMOR_PRESERVE_3) && (CMOR_NETCDF_MODE != CMOR_APPEND_3)) {
      /* Compression stuff */
      ics = cmor_tables[cmor_vars[var_id].ref_table_id].vars[cmor_vars[var_id].ref_var_id].shuffle;
      icd = cmor_tables[cmor_vars[var_id].ref_table_id].vars[cmor_vars[var_id].ref_var_id].deflate;
      icdl = cmor_tables[cmor_vars[var_id].ref_table_id].vars[cmor_vars[var_id].ref_var_id].deflate_level;
      ierr = nc_def_var_deflate(ncid,cmor_vars[var_id].nc_var_id,ics,icd,icdl);
/*
netcdf4 compression
*/
      if (ierr != NC_NOERR) {
	snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i: %s) defining compression parameters for variable '%s' (table: %s)",ierr,nc_strerror(ierr),cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	cmor_handle_error(msg,CMOR_CRITICAL);
      }
      /* Chunking stuff */
#ifndef NC_CHUNKED
#define NC_CHUNKED 0
#endif
      if (!((cmor_vars[var_id].grid_id>-1) && (cmor_grids[cmor_vars[var_id].grid_id].istimevarying==1))) {
	if (ierr != NC_NOERR) {
	  snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i: %s) defining chunking parameters for variable '%s' (table: %s)",ierr,nc_strerror(ierr),cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	  cmor_handle_error(msg,CMOR_CRITICAL);
	}
      }
    }


    /* Done with NetCDF file definitions */
    ierr = nc_enddef(ncid);
    if (ierr != NC_NOERR && ierr != NC_ENOTINDEFINE) {snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i: %s) leaving definition mode for file %s",ierr,nc_strerror(ierr),outname);cmor_handle_error(msg,CMOR_CRITICAL);}
    ierr = nc_enddef(ncafid);
    if (ierr != NC_NOERR && ierr != NC_ENOTINDEFINE) {snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i: %s) leaving definition mode for metafile %s",ierr,nc_strerror(ierr),cmor_current_dataset.associated_file_name);cmor_handle_error(msg,CMOR_CRITICAL);}
    
    /* Write non time dimension of variable into the NetCDF file */

    l = 1;
    if (cmor_axes[cmor_vars[var_id].axes_ids[0]].axis!='T') {
      l=0;
    }
    for(i=l;i<cmor_vars[var_id].ndims;i++) {
      /* for(j=0;j<cmor_axes[cmor_vars[var_id].axes_ids[i]].length;j++) printf("axis %s : writing value: %i, %lf\n",cmor_axes[cmor_vars[var_id].axes_ids[i]].id,j,cmor_axes[cmor_vars[var_id].axes_ids[i]].values[j]); */
      /* at this point we need to check if the values of the axis need to be replaced (hybrid coords *//* we only need to do this if ho != hi */
      if (cmor_axes[cmor_vars[var_id].axes_ids[i]].hybrid_out!=cmor_axes[cmor_vars[var_id].axes_ids[i]].hybrid_in) {
	ho = 0;
	if (cmor_axes[cmor_vars[var_id].axes_ids[i]].hybrid_out!=0) {
	  ho = cmor_axes[cmor_vars[var_id].axes_ids[i]].hybrid_out;
	}
	else if (cmor_axes[cmor_vars[var_id].axes_ids[i]].hybrid_in!=0) {
	  ho = cmor_axes[cmor_vars[var_id].axes_ids[i]].hybrid_in;
	}
	/*       printf("ok the hybrid out on this axis %i (%s) is: %i\n",cmor_vars[var_id].axes_ids[i],cmor_axes[cmor_vars[var_id].axes_ids[i]].id,ho); */
	if (ho!=0) {
	  /* yep need to change them */
	  if (ho==1) { /* std hyb sigma*/
	    /* look for a coeff */
	    k=-1;
	    for(j=0;j<=cmor_nvars;j++) if ((strcmp(cmor_vars[j].id,"a")==0) && (cmor_vars[j].zaxis==cmor_vars[var_id].axes_ids[i])) { k=j; break;}
	    if (k==-1) {
	      snprintf(msg,CMOR_MAX_STRING,"could not find 'a' coeff for axis: %s, for variable %s (table: %s)",cmor_axes[cmor_vars[var_id].axes_ids[i]].id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	      cmor_handle_error(msg,CMOR_CRITICAL);
	    }
	    for (j=0;j<cmor_axes[cmor_vars[var_id].axes_ids[i]].length;j++) cmor_axes[cmor_vars[var_id].axes_ids[i]].values[j]=cmor_vars[k].values[j];
	    /* look for b coeff */
	    k=-1;
	    for(j=0;j<=cmor_nvars;j++) if ((strcmp(cmor_vars[j].id,"b")==0) && (cmor_vars[j].zaxis==cmor_vars[var_id].axes_ids[i])) { k=j; break;}
	    if (k==-1) {
	      snprintf(msg,CMOR_MAX_STRING,"could find 'b' coeff for axis: %s, for variable %s (table: %s)",cmor_axes[cmor_vars[var_id].axes_ids[i]].id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	      cmor_handle_error(msg,CMOR_CRITICAL);
	    }
	    for (j=0;j<cmor_axes[cmor_vars[var_id].axes_ids[i]].length;j++) cmor_axes[cmor_vars[var_id].axes_ids[i]].values[j]+=cmor_vars[k].values[j];
	    
	    /* do we have bounds to treat as well ? */
	    if (cmor_axes[cmor_vars[var_id].axes_ids[i]].bounds!=NULL) {
	      k=-1;
	      for(j=0;j<=cmor_nvars;j++) if ((strcmp(cmor_vars[j].id,"a_bnds")==0) && (cmor_vars[j].zaxis==cmor_vars[var_id].axes_ids[i])) { k=j; break;}
	      if (k==-1) {
		snprintf(msg,CMOR_MAX_STRING,"could not find 'a_bnds' coeff for axis: %s, for variable %s (table: %s)",cmor_axes[cmor_vars[var_id].axes_ids[i]].id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
		cmor_handle_error(msg,CMOR_CRITICAL);
	      }
	      for (j=0;j<cmor_axes[cmor_vars[var_id].axes_ids[i]].length*2;j++) cmor_axes[cmor_vars[var_id].axes_ids[i]].bounds[j]=cmor_vars[k].values[j];
	      k=-1;
	      for(j=0;j<=cmor_nvars;j++) if ((strcmp(cmor_vars[j].id,"b_bnds")==0) && (cmor_vars[j].zaxis==cmor_vars[var_id].axes_ids[i])) { k=j; break;}
	      if (k==-1) {
		snprintf(msg,CMOR_MAX_STRING,"could find 'b_bnds' coef for axis: %s, for variable %s (table: %s)",cmor_axes[cmor_vars[var_id].axes_ids[i]].id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
		cmor_handle_error(msg,CMOR_CRITICAL);
	      }
	      for (j=0;j<cmor_axes[cmor_vars[var_id].axes_ids[i]].length*2;j++) cmor_axes[cmor_vars[var_id].axes_ids[i]].bounds[j]+=cmor_vars[k].values[j]; 
	    }
	    cmor_flip_hybrid(var_id,i,"a","b","a_bnds","b_bnds");
	  }
	  else if (ho==2) {/* alternate hyb sigma*/
	    /* look for ap coeff */
	    k=-1;
	    for(j=0;j<=cmor_nvars;j++) if ((strcmp(cmor_vars[j].id,"ap")==0) && (cmor_vars[j].zaxis==cmor_vars[var_id].axes_ids[i])) { k=j; break;}
	    if (k==-1) {
	      snprintf(msg,CMOR_MAX_STRING,"could not find 'ap' coeef for axis: %s, for variable %s (table: %s)",cmor_axes[cmor_vars[var_id].axes_ids[i]].id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	      cmor_handle_error(msg,CMOR_CRITICAL);
	    }
	    for (j=0;j<cmor_axes[cmor_vars[var_id].axes_ids[i]].length;j++) cmor_axes[cmor_vars[var_id].axes_ids[i]].values[j]=cmor_vars[k].values[j]/cmor_vars[l].values[0];
	    /* look for b coeff */
	    k=-1;
	    for(j=0;j<=cmor_nvars;j++) if ((strcmp(cmor_vars[j].id,"b")==0) && (cmor_vars[j].zaxis==cmor_vars[var_id].axes_ids[i])) { k=j; break;}
	    if (k==-1) {
	      snprintf(msg,CMOR_MAX_STRING,"could find 'b' coef for axis: %s, for variable %s (table: %s)",cmor_axes[cmor_vars[var_id].axes_ids[i]].id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	      cmor_handle_error(msg,CMOR_CRITICAL);
	    }
	    for (j=0;j<cmor_axes[cmor_vars[var_id].axes_ids[i]].length;j++) cmor_axes[cmor_vars[var_id].axes_ids[i]].values[j]+=cmor_vars[k].values[j];
	    
	    /* deals with bounds */
	    if (cmor_axes[cmor_vars[var_id].axes_ids[i]].bounds!=NULL) {
	      k=-1;
	      for(j=0;j<=cmor_nvars;j++) if ((strcmp(cmor_vars[j].id,"ap_bnds")==0) && (cmor_vars[j].zaxis==cmor_vars[var_id].axes_ids[i])) { k=j; break;}
	      if (k==-1) {
		snprintf(msg,CMOR_MAX_STRING,"could not find 'ap_bnds' coeff for axis: %s, for variable %s (table: %s)",cmor_axes[cmor_vars[var_id].axes_ids[i]].id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
		cmor_handle_error(msg,CMOR_CRITICAL);
	      }
	      for (j=0;j<cmor_axes[cmor_vars[var_id].axes_ids[i]].length*2;j++) cmor_axes[cmor_vars[var_id].axes_ids[i]].bounds[j]=cmor_vars[k].values[j]/cmor_vars[l].values[0];
	      k=-1;
	      for(j=0;j<=cmor_nvars;j++) if ((strcmp(cmor_vars[j].id,"b_bnds")==0) && (cmor_vars[j].zaxis==cmor_vars[var_id].axes_ids[i])) { k=j; break;}
	      if (k==-1) {
		snprintf(msg,CMOR_MAX_STRING,"could find 'b_bnds' coef for axis: %s, for variable %s (table: %s)",cmor_axes[cmor_vars[var_id].axes_ids[i]].id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
		cmor_handle_error(msg,CMOR_CRITICAL);
	      }
	      for (j=0;j<cmor_axes[cmor_vars[var_id].axes_ids[i]].length*2;j++) cmor_axes[cmor_vars[var_id].axes_ids[i]].bounds[j]+=cmor_vars[k].values[j]; 
	    }
	    cmor_flip_hybrid(var_id,i,"ap","b","ap_bnds","b_bnds");
	  }
	  else if (ho==3) { /* sigma */
	    k=-1;
	    for(j=0;j<=cmor_nvars;j++) if ((strcmp(cmor_vars[j].id,"sigma")==0) && (cmor_vars[j].zaxis==cmor_vars[var_id].axes_ids[i])) { k=j; break;}
	    if (k==-1) {
	      snprintf(msg,CMOR_MAX_STRING,"could not find 'sigma' coeef for axis: %s, for variable %s (table: %s)",cmor_axes[cmor_vars[var_id].axes_ids[i]].id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	      cmor_handle_error(msg,CMOR_CRITICAL);
	    }
	    for (j=0;j<cmor_axes[cmor_vars[var_id].axes_ids[i]].length;j++) cmor_axes[cmor_vars[var_id].axes_ids[i]].values[j]=cmor_vars[k].values[j];
	    /* deals with bounds */
	    if (cmor_axes[cmor_vars[var_id].axes_ids[i]].bounds!=NULL) {
	      k=-1;
	      for(j=0;j<=cmor_nvars;j++) if ((strcmp(cmor_vars[j].id,"sigma_bnds")==0) && (cmor_vars[j].zaxis==cmor_vars[var_id].axes_ids[i])) { k=j; break;}
	      if (k==-1) {
		snprintf(msg,CMOR_MAX_STRING,"could not find 'sigma_bnds' coeff for axis: %s, for variable %s (table: %s)",cmor_axes[cmor_vars[var_id].axes_ids[i]].id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
		cmor_handle_error(msg,CMOR_CRITICAL);
	      }
	      for (j=0;j<cmor_axes[cmor_vars[var_id].axes_ids[i]].length*2;j++) cmor_axes[cmor_vars[var_id].axes_ids[i]].bounds[j]=cmor_vars[k].values[j];
	    }
	  }	  
	  cmor_flip_hybrid(var_id,i,"sigma",NULL,"sigma_bnds",NULL);
	} 
      }
      if (cmor_axes[cmor_vars[var_id].axes_ids[i]].cvalues == NULL) {
	if (cmor_axes[cmor_vars[var_id].axes_ids[i]].store_in_netcdf == 1) {
	  ierr = nc_put_var_double(ncid,nc_vars[i],cmor_axes[cmor_vars[var_id].axes_ids[i]].values);
	  if (ierr != NC_NOERR) {
	    snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i: %s) writing axis '%s' values for variable %s (table: %s)",ierr,nc_strerror(ierr),cmor_axes[cmor_vars[var_id].axes_ids[i]].id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	    cmor_handle_error(msg,CMOR_CRITICAL);
	  }
	  if (ncid!=ncafid) {
	    ierr = nc_put_var_double(ncafid,nc_vars_af[i],cmor_axes[cmor_vars[var_id].axes_ids[i]].values);
	    if (ierr != NC_NOERR) {
	      snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i: %s) writing axis '%s' values to metafile, for variable %s (table: %s)",ierr,nc_strerror(ierr),cmor_axes[cmor_vars[var_id].axes_ids[i]].id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	      cmor_handle_error(msg,CMOR_CRITICAL);
	    }
	  }
	}
      }
      else {
	for (j=0;j<cmor_axes[cmor_vars[var_id].axes_ids[i]].length;j++) {
	  starts[0]=j;
	  starts[1]=0;
	  counts[0]=1;
	  counts[1]=strlen(cmor_axes[cmor_vars[var_id].axes_ids[i]].cvalues[j]);
	  ierr = nc_put_vara_text(ncid,nc_vars[i],starts,counts,cmor_axes[cmor_vars[var_id].axes_ids[i]].cvalues[j]);
	  if (ierr != NC_NOERR) {
	    snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i: %s) writing axis '%s' value number %d (%s), for variable %s (table: %s)",ierr,nc_strerror(ierr),cmor_axes[cmor_vars[var_id].axes_ids[i]].id,j,cmor_axes[cmor_vars[var_id].axes_ids[i]].cvalues[j],cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	    cmor_handle_error(msg,CMOR_CRITICAL);
	  }
	  if (ncid!=ncafid) {
	    ierr = nc_put_vara_text(ncafid,nc_vars_af[i],starts,counts,cmor_axes[cmor_vars[var_id].axes_ids[i]].cvalues[j]);
	    if (ierr != NC_NOERR) {
	      snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i: %s) writing axis '%s' values to metafile, for variable %s (table: %s)",ierr,nc_strerror(ierr),cmor_axes[cmor_vars[var_id].axes_ids[i]].id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	      cmor_handle_error(msg,CMOR_CRITICAL);
	    }
	  }
	}
      }
      /* ok do we have bounds on this axis? */
      if (cmor_axes[cmor_vars[var_id].axes_ids[i]].bounds!=NULL) {
	ierr = nc_put_var_double(ncafid,nc_bnds_vars[i],cmor_axes[cmor_vars[var_id].axes_ids[i]].bounds);
	if (ierr != NC_NOERR) {
	  snprintf(msg,CMOR_MAX_STRING,"NC error (%i: %s) on variable %s writing bounds for dim %i (%s), for variable %s (table: %s)",ierr,nc_strerror(ierr),cmor_vars[var_id].id,i,cmor_axes[cmor_vars[var_id].axes_ids[i]].id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	  cmor_handle_error(msg,CMOR_CRITICAL);
	}
      }
    }

    /* ok now need to write grid variables */
    if (cmor_vars[var_id].grid_id>-1) {
      if (cmor_grids[cmor_vars[var_id].grid_id].istimevarying==0) {
	for (i=0;i<4;i++) {
	  j = cmor_grids[cmor_vars[var_id].grid_id].associated_variables[i];
	  if (j!=-1) { /* we need to write this variable */
	    cmor_vars[j].nc_var_id = nc_associated_vars[i];
	    switch (i) {
	    case (0) :
	      cmor_write_var_to_file(ncafid,&cmor_vars[j],cmor_grids[cmor_vars[var_id].grid_id].lats,'d',0,NULL,NULL,nc_var_reftime, start, count,leadtime_vals);
	      break;
	    case (1) :
	      cmor_write_var_to_file(ncafid,&cmor_vars[j],cmor_grids[cmor_vars[var_id].grid_id].lons,'d',0,NULL,NULL,nc_var_reftime, start, count,leadtime_vals);
	      break;
	    case (2) :
	      cmor_write_var_to_file(ncafid,&cmor_vars[j],cmor_grids[cmor_vars[var_id].grid_id].blats,'d',0,NULL,NULL,nc_var_reftime, start, count,leadtime_vals);
	      break;
	    case (3) :
	      cmor_write_var_to_file(ncafid,&cmor_vars[j],cmor_grids[cmor_vars[var_id].grid_id].blons,'d',0,NULL,NULL,nc_var_reftime, start, count,leadtime_vals);
	      break;
	      /* 	  case (4) : */
	      /* 	    cmor_write_var_to_file(ncafid,&cmor_vars[j],cmor_grids[cmor_vars[var_id].grid_id].area,'d',0,NULL,NULL); */
	      /* 	    break; */
	    default :
	      break;
	    }
	  }
	}
      }
    }

    /* ok now write the zfactor values if necessary */
    for(i=0;i<nzfactors;i++) {
      if (cmor_vars[zfactors[i]].values != NULL) {/* ok this one has value defined we need to store it */
	cmor_vars[zfactors[i]].nc_var_id = nc_zfactors[i];
	cmor_write_var_to_file(ncafid,&cmor_vars[zfactors[i]],cmor_vars[zfactors[i]].values,'d',0,NULL,NULL,nc_var_reftime, start, count,leadtime_vals);
      }
/*       if (cmor_vars[zfactors[i]].bounds != NULL) {/\* ok this one has value defined we need to store it *\/ */
/* 	cmor_vars[zfactors[i+1]].nc_var_id = nc_zfactors[i+1]; */
/* 	cmor_write_var_to_file(ncid,&cmor_vars[zfactors[i+1]],&cmor_vars[zfactors[i]].bounds,0,NULL); */
/* 	i++; */
/*       } */
    }
    /* Write singleton dimension variables */
    for(i=0;i<CMOR_MAX_DIMENSIONS;i++) {
      j = cmor_vars[var_id].singleton_ids[i];
      if (j!=-1) {
	if (cmor_tables[cmor_axes[j].ref_table_id].axes[cmor_axes[j].ref_axis_id].type=='c'){
	  ierr = nc_put_var_text(ncid,nc_singletons[i],cmor_tables[cmor_axes[j].ref_table_id].axes[cmor_axes[j].ref_axis_id].cvalue);
	}
	else {
	  ierr = nc_put_var_double(ncid,nc_singletons[i],cmor_axes[j].values);
	}
	if (ierr != NC_NOERR) {
	  snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i: %s) writing scalar variable %s for variable %s (table: %s), value: %lf",ierr,nc_strerror(ierr),cmor_axes[j].id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,cmor_axes[j].values[0]);
	  cmor_handle_error(msg,CMOR_CRITICAL);
	}
	/* now see if we need bounds */
	if (cmor_axes[j].bounds!=NULL) { /*yep */
	  ierr = nc_put_var_double(ncid,nc_singletons_bnds[i],cmor_axes[j].bounds);
	  if (ierr != NC_NOERR) {
	    snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i: %s) writing scalar bounds variable %s for variable %s (table: %s), values: %lf, %lf",ierr,nc_strerror(ierr),cmor_axes[j].id,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,cmor_axes[j].bounds[0],cmor_axes[j].bounds[1]);
	    cmor_handle_error(msg,CMOR_CRITICAL);
	  }
	}
      }
    }
    cmor_current_dataset.associate_file=ncafid;
  }
  else { 
    /* Variable already been thru cmor_write, we just get the netcdf file id */
    ncid=cmor_vars[varid].initialized;

  /* generates a new unique id */
    uuid_create(&myuuid);
    uuid_make(myuuid,4);
    myuuid_str = NULL;
    fmt = UUID_FMT_STR;
    uuid_export(myuuid,fmt,&myuuid_str,&uuidlen);
    strncpy(cmor_current_dataset.tracking_id,(char *)myuuid_str,CMOR_MAX_STRING);
    cmor_set_cur_dataset_attribute_internal("tracking_id",cmor_current_dataset.tracking_id,0);

    ierr = nc_put_att_text(ncid, NC_GLOBAL, "tracking_id",(int)uuidlen,myuuid_str);
    free(myuuid_str);
    uuid_destroy(myuuid);

    if (ierr != NC_NOERR) {snprintf(msg,CMOR_MAX_STRING,"NetCDF error (%i: %s) for variable %s (table: %s) writing global att: %s (%s)",ierr,nc_strerror(ierr),cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id,cmor_current_dataset.attributes_names[i],cmor_current_dataset.attributes_values[i]); cmor_handle_error(msg,CMOR_CRITICAL);}
    cmor_vars[var_id].time_nc_id=cmor_vars[varid].time_nc_id; /* in case we are doing a zfactor var */
    cmor_vars[var_id].time_bnds_nc_id=cmor_vars[varid].time_bnds_nc_id; /* in case we are doing a zfactor var */
  }

  /* here we add the number of time written for the associated variable */
  if ((refvar!=NULL) && (cmor_vars[varid].grid_id>-1) && (cmor_grids[cmor_vars[varid].grid_id].istimevarying==1)) {
    for (i=0;i<4;i++) {
      if (cmor_grids[cmor_vars[varid].grid_id].associated_variables[i] == var_id) {
	if (cmor_vars[varid].ntimes_written_coords[i]==-1) {
	  cmor_vars[varid].ntimes_written_coords[i]=ntimes_passed;
	}
	else {
	  cmor_vars[varid].ntimes_written_coords[i]+=ntimes_passed;
	}
      }
    }
  }
  if (refvar!=NULL) {
     /* if (cmor_vars[var_id].first_bound==1.e20) {
          cmor_vars[var_id].first_bound = cmor_vars[*refvar].first_bound;
          cmor_vars[var_id].last_bound = cmor_vars[*refvar].last_bound;
          cmor_vars[var_id].last_time = cmor_vars[*refvar].last_time;

          printf("We did reset the first and last bounds: %f, %f \n",cmor_vars[var_id].first_bound, cmor_vars[var_id].last_bound);
      }
      */
    for(i=0;i<10;i++) {
      if (cmor_vars[*refvar].associated_ids[i]==var_id) {
	if (cmor_vars[*refvar].ntimes_written_associated[i] == 0) {
	  cmor_vars[*refvar].ntimes_written_associated[i] = ntimes_passed;
	}
	else {
	  cmor_vars[*refvar].ntimes_written_associated[i] += ntimes_passed;
	}
      }
    }
  }
 if(strcmp(CMOR_PROJECT,"SPECS")==0){
        start[0]=cmor_vars[var_id].ntimes_written;
        if (ntimes_passed!=0) {
         count[0]=ntimes_passed;
        }
        else {
         count[0] = cmor_axes[cmor_vars[var_id].axes_ids[0]].length; 
        }
}
//  printf("%s %d %s %d %s %d %d \n","before write_var2file",time_vals,"-",leadtime_vals,"start/count:",start,count);
  cmor_write_var_to_file(ncid,&cmor_vars[var_id],data,type,ntimes_passed,time_vals,time_bounds,nc_var_reftime, start, count,leadtime_vals);

  cmor_pop_traceback();
  return 0;
};



int cmor_create_output_path(int var_id,char *outpath)
{
  /* reconstruct the suggested outpath structure */
  /* returns 1 if it is a fixed filed 0 otherwise */
  char tmp[CMOR_MAX_STRING],tmp2[CMOR_MAX_STRING],tmp3[CMOR_MAX_STRING];
  char *str;
  int i,j;
  double interval;
  int createdirs;
  int nurls = 4;
  char urls[4][20] = { "http:", "https:", "HTTP:", "HTTPS:"};
  int isfixed = 0;
  extern int cmor_convert_char_to_hyphen(char c);

  cmor_add_traceback("cmor_create_output_path");
  /* user's base path */
  strncpytrim(outpath,cmor_current_dataset.outpath,CMOR_MAX_STRING);
  strncat(outpath,"/",CMOR_MAX_STRING-strlen(outpath));

  /* decides if it is a URL or not, if it is no directory creation */
  createdirs =1;
  for (i=0;i<nurls;i++) {
    if (strncmp(outpath,urls[i],strlen(urls[i]))==0) createdirs=0;
  }
  if (CMOR_CREATE_SUBDIRECTORIES == 0) createdirs=0;
  /* activity */
if(strcmp(CMOR_PROJECT,"SPECS")!=0){
 strncpytrim(tmp,cmor_tables[cmor_vars[var_id].ref_table_id].project_id,CMOR_MAX_STRING);

  /* make sure you replace spaces with "_" */
  for(i=0;i<strlen(tmp);i++) { 
    if (tmp[i]==' ') tmp[i]='_';
  }
  strncattrim(outpath,tmp,CMOR_MAX_STRING-strlen(outpath));
  strncat(outpath,"/",CMOR_MAX_STRING-strlen(outpath));
}
  if (createdirs==1) {
    if ((mkdir(outpath, (S_IRWXU | S_IRWXG | S_IRWXO )) == -1) && (errno != EEXIST)) {
      sprintf(tmp,"creating outpath: %s, for variable %s (table: %s). Not enough permission?",outpath,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
      cmor_handle_error(tmp,CMOR_CRITICAL);
    }
  } 
   /* product */
if(strcmp(CMOR_PROJECT,"SPECS")==0){
  strncpytrim(tmp,cmor_tables[cmor_vars[var_id].ref_table_id].product,CMOR_MAX_STRING);
/*   make sure you replace spaces with "_" */
  for(i=0;i<strlen(tmp);i++) {
    if (tmp[i]==' ') tmp[i]='_';
  }
  strncattrim(outpath,tmp,CMOR_MAX_STRING-strlen(outpath));
  strncat(outpath,"/",CMOR_MAX_STRING-strlen(outpath));
}
  if (createdirs==1) {
    if ((mkdir(outpath, (S_IRWXU | S_IRWXG | S_IRWXO )) == -1) && (errno != EEXIST)) {
      sprintf(tmp,"creating outpath: %s, for variable %s (table: %s). Not enough permission?",outpath,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
      cmor_handle_error(tmp,CMOR_CRITICAL);
    }
  }
 cmor_get_cur_dataset_attribute("institute_id",tmp2);
  if (strcmp(tmp2,"not specified")==0) {
    strcpy(tmp,"INSTITUTE_ID");
  }
  else {
    substitute_chars_with_hyphens(tmp2, tmp, "institute_id", -1);
  }
  strncattrim(outpath,tmp,CMOR_MAX_STRING-strlen(outpath));
  strncat(outpath,"/",CMOR_MAX_STRING-strlen(outpath));
  if (createdirs==1) {
    if ((mkdir(outpath, (S_IRWXU | S_IRWXG | S_IRWXO )) == -1) && (errno != EEXIST)) {
      sprintf(tmp,"creating outpath: %s, for variable %s (table: %s). Not enough permission?",outpath,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
      cmor_handle_error(tmp,CMOR_CRITICAL);
    }
  }
  
  /*model id */
  if ( cmor_has_cur_dataset_attribute("model_id")==0) {
    cmor_get_cur_dataset_attribute("model_id",tmp);
    for (i=0;i<strlen(tmp);i++) {
      if (cmor_convert_char_to_hyphen(tmp[i])==1) {
	  tmp[i]='-';
	}
    }
    /* removes trailing "-" */
    for (i=strlen(tmp)-1;i>0;i--) {
      if (tmp[i]=='-') {
	tmp[i]='\0';
      }
      else {
	break;
      }
    }
    strncattrim(outpath,tmp,CMOR_MAX_STRING-strlen(outpath));
    strncat(outpath,"/",CMOR_MAX_STRING-strlen(outpath));
  }
  if (createdirs==1) {
    if ((mkdir(outpath, (S_IRWXU | S_IRWXG | S_IRWXO )) == -1) && (errno != EEXIST)) {
      sprintf(tmp,"creating outpath: %s, for variable %s (table: %s). Not enough permission?",outpath,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
      cmor_handle_error(tmp,CMOR_CRITICAL);
    }
  }

  /* experiment id */
  cmor_get_cur_dataset_attribute("experiment_id",tmp);
  /* ok here we check the exptid is ok */
  /* ok here we need to reset the expt id to the shrt name if necessary */
 if(strcmp(CMOR_PROJECT,"SPECS")!=0){
  for (i=0;i<=cmor_tables[cmor_vars[var_id].ref_table_id].nexps;i++) {
    j = strlen(tmp);
    if (strncmp(cmor_tables[cmor_vars[var_id].ref_table_id].expt_ids[i],tmp,j)==0) {
      if (strlen(cmor_tables[cmor_vars[var_id].ref_table_id].sht_expt_ids[i])!=0) {
	strncpy(tmp2,cmor_tables[cmor_vars[var_id].ref_table_id].sht_expt_ids[i],j-4);
	tmp2[j-4]='\0';
	if (j>4) {
	  strncpy(&tmp2[j-4],&tmp[j-4],4);
	  tmp2[j]='\0';
	}
      }
      else {
	strcpy(tmp2,"");
      }
      strcpy(tmp,tmp2);
      break;
    }
  }
}
    strncattrim(outpath,tmp,CMOR_MAX_STRING-strlen(outpath));
/*series*/
/*if(strcmp(CMOR_PROJECT,"SPECS")==0){
    strncat(outpath,"_",CMOR_MAX_STRING-strlen(outpath));
  cmor_get_cur_dataset_attribute("series",tmp);
    strncattrim(outpath,tmp,CMOR_MAX_STRING-strlen(outpath));
}
*/

    strncat(outpath,"/",CMOR_MAX_STRING-strlen(outpath));
/*   else { */
/*     strcpy(tmp,"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"); */
/*     cmor_handle_error(tmp,CMOR_CRITICAL); */
/*   } */
  if (createdirs==1) {
    if ((mkdir(outpath, (S_IRWXU | S_IRWXG | S_IRWXO )) == -1) && (errno != EEXIST)) {
      sprintf(tmp,"creating outpath: %s, for variable %s (table: %s). Not enough permission?",outpath,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
      cmor_handle_error(tmp,CMOR_CRITICAL);
    }
  }

if(strcmp(CMOR_PROJECT,"SPECS")==0){
/*add start date */
  if (strcmp(tmp,"")!=0) {
    strcpy(tmp,"");
    cmor_get_cur_dataset_attribute("forecast_reference_time",tmp);
    strncattrim(outpath,"S",CMOR_MAX_STRING-strlen(outpath));
    str=strtok(tmp,"-");
    strncattrim(outpath,str,CMOR_MAX_STRING-strlen(outpath));
    str=strtok(NULL,"-");
    strncattrim(outpath,str,CMOR_MAX_STRING-strlen(outpath));
    str=strtok(NULL,"(");
    strncattrim(outpath,str,CMOR_MAX_STRING-strlen(outpath));
    strncat(outpath,"/",CMOR_MAX_STRING-strlen(outpath));
  }
  if (createdirs==1) {
    if ((mkdir(outpath, (S_IRWXU | S_IRWXG | S_IRWXO )) == -1) && (errno != EEXIST)) {
      sprintf(tmp,"creating outpath: %s, for variable %s (table: %s). Not enough permission?",outpath,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
      cmor_handle_error(tmp,CMOR_CRITICAL);
    }
  }
}


  /* frequency */
  if ((cmor_tables[cmor_vars[var_id].ref_table_id].frequency[0]=='\0') &&
      (cmor_tables[cmor_vars[var_id].ref_table_id].vars[cmor_vars[var_id].ref_var_id].frequency[0]=='\0') ) {
    /* need to figure out the approximate interval */
    if ((cmor_tables[cmor_axes[cmor_vars[var_id].axes_ids[0]].ref_table_id].axes[cmor_axes[cmor_vars[var_id].axes_ids[0]].ref_axis_id].axis!='T') ) {
      strcpy(tmp,"fx");
      isfixed =1;
    }
    else {
      interval = cmor_convert_interval_to_seconds(cmor_tables[cmor_axes[cmor_vars[var_id].axes_ids[0]].ref_table_id].interval,cmor_tables[cmor_axes[cmor_vars[var_id].axes_ids[0]].ref_table_id].axes[cmor_axes[cmor_vars[var_id].axes_ids[0]].ref_axis_id].units);
      if (interval<2500.) { 
	strcpy(tmp,"subhr");
      }
      else if (interval<15000.) {
	strcpy(tmp,"3hr");
      }
      else if (interval<30000.) {
	strcpy(tmp,"6hr");
      }
      else if (interval<100000.) {
	strcpy(tmp,"day");
      }
      else if (interval<3.E6) {
	strcpy(tmp,"mon");
      }
      else {
	strcpy(tmp,"yr");
      }
      if (interval == 0.) {
	strcpy(tmp,"fx");
	isfixed=1;
      }
    }
  }
  else if (cmor_tables[cmor_vars[var_id].ref_table_id].vars[cmor_vars[var_id].ref_var_id].frequency[0]!='\0') {
    strncpy(tmp,cmor_tables[cmor_vars[var_id].ref_table_id].vars[cmor_vars[var_id].ref_var_id].frequency,CMOR_MAX_STRING);
  }
  else {
    strncpy(tmp,cmor_tables[cmor_vars[var_id].ref_table_id].frequency,CMOR_MAX_STRING);
    if (strcmp(tmp,"fx")==0) isfixed=1;
  }

  /*Ok in case of climatology needs to add "clim" to it */
  if (cmor_tables[cmor_axes[cmor_vars[var_id].axes_ids[0]].ref_table_id].axes[cmor_axes[cmor_vars[var_id].axes_ids[0]].ref_axis_id].climatology==1) {
    /* ok in some case the table fqcy already has the clim in it..... */
    j=-1;
    for (i=0;i<strlen(cmor_tables[cmor_vars[var_id].ref_table_id].frequency)-3;i++) {
      if (strncmp(&cmor_tables[cmor_vars[var_id].ref_table_id].frequency[i],"Clim",4)==0) {
	j=1;
	break;
      }
    }
    if (j==-1) strncat(tmp,"Clim",CMOR_MAX_STRING-strlen(tmp));
    else strncpy(tmp,cmor_tables[cmor_vars[var_id].ref_table_id].frequency,CMOR_MAX_STRING);
  }
  strncattrim(outpath,tmp,CMOR_MAX_STRING-strlen(outpath));
  strncat(outpath,"/",CMOR_MAX_STRING-strlen(outpath));
  if (createdirs==1) {
    if ((mkdir(outpath, (S_IRWXU | S_IRWXG | S_IRWXO )) == -1) && (errno != EEXIST)) {
      sprintf(tmp,"creating outpath: %s, for variable %s (table: %s). Not enough permission?",outpath,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
      cmor_handle_error(tmp,CMOR_CRITICAL);
    }
  }

  cmor_set_cur_dataset_attribute_internal("frequency",tmp,1);
  
  /* realm */
  /* first check if the variable itslef has a realm */
  if (cmor_tables[cmor_vars[var_id].ref_table_id].vars[cmor_vars[var_id].ref_var_id].realm[0]!='\0') {
    /* we want to copy only the first realm here */
    for (i=0;i<strlen(cmor_tables[cmor_vars[var_id].ref_table_id].vars[cmor_vars[var_id].ref_var_id].realm);i++) {
      if (cmor_tables[cmor_vars[var_id].ref_table_id].vars[cmor_vars[var_id].ref_var_id].realm[i]!=' ') {
	tmp[i]=cmor_tables[cmor_vars[var_id].ref_table_id].vars[cmor_vars[var_id].ref_var_id].realm[i];
	tmp[i+1]='\0';
      }
      else {
	break;
      }
    }
    strncattrim(outpath,tmp,CMOR_MAX_STRING-strlen(outpath));
  }
  else { /*ok it didn't so we're using the value from the table */
    strncattrim(outpath,cmor_tables[cmor_vars[var_id].ref_table_id].realm,CMOR_MAX_STRING-strlen(outpath));
  }
  strncat(outpath,"/",CMOR_MAX_STRING-strlen(outpath));
  if (createdirs==1) {
    if ((mkdir(outpath, (S_IRWXU | S_IRWXG | S_IRWXO )) == -1) && (errno != EEXIST)) {
      sprintf(tmp,"creating outpath: %s, for variable %s (table: %s). Not enough permission?",outpath,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
      cmor_handle_error(tmp,CMOR_CRITICAL);
    }
  }
  
  /* var id */
  strncattrim(outpath,cmor_vars[var_id].id,CMOR_MAX_STRING-strlen(outpath));
  strncat(outpath,"/",CMOR_MAX_STRING-strlen(outpath));
  if (createdirs==1) {
    if ((mkdir(outpath, (S_IRWXU | S_IRWXG | S_IRWXO )) == -1) && (errno != EEXIST)) {
      sprintf(tmp,"creating outpath: %s, for variable %s (table: %s). Not enough permission?",outpath,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
      cmor_handle_error(tmp,CMOR_CRITICAL);
    }
  }
  
  if (isfixed==1) {
    strncat(outpath,"r0i0p0",CMOR_MAX_STRING-strlen(outpath) );
    cmor_set_cur_dataset_attribute_internal("physics_version","0",0);
    cmor_set_cur_dataset_attribute_internal("initialization_method","0",0);
  }
  else {
    /*realization */
    snprintf(tmp,CMOR_MAX_STRING,"r%d",cmor_current_dataset.realization);
    strncat(outpath,tmp,CMOR_MAX_STRING-strlen(outpath) );
    
    /* initialization id (optional) */
    if ( cmor_has_cur_dataset_attribute("initialization_method")==0) {
      cmor_get_cur_dataset_attribute("initialization_method",tmp);
      sscanf(tmp,"%i",&i);
      snprintf(tmp,CMOR_MAX_STRING,"i%d",i);
      strncat(outpath,tmp,CMOR_MAX_STRING-strlen(outpath) );
    }
    
    /* physics id (optional) */
    if ( cmor_has_cur_dataset_attribute("physics_version")==0) {
      cmor_get_cur_dataset_attribute("physics_version",tmp);
      sscanf(tmp,"%i",&i);
      snprintf(tmp,CMOR_MAX_STRING,"p%d",i);
      strncat(outpath,tmp,CMOR_MAX_STRING-strlen(outpath) );
    }
  }
  strncat(outpath,"/",CMOR_MAX_STRING-strlen(outpath));
  if (createdirs==1) {
    if ((mkdir(outpath, (S_IRWXU | S_IRWXG | S_IRWXO )) == -1) && (errno != EEXIST)) {
      sprintf(tmp,"creating outpath: %s, for variable %s (table: %s). Not enough permission?",outpath,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
      cmor_handle_error(tmp,CMOR_CRITICAL);
    }
  }

  cleanup_varid=-1;
  cmor_pop_traceback();
  return isfixed;
}

int cmor_close_variable(int var_id, char *file_name, int *preserve) 
{
  int ierr;
  extern int cmor_nvars;
  char outname[CMOR_MAX_STRING];
  char msg[CMOR_MAX_STRING];
  char msg2[CMOR_MAX_STRING];
  char ctmp[CMOR_MAX_STRING];
  char ctmp2[CMOR_MAX_STRING];
  cdCalenType icalo;
  cdCompTime comptime;
  int i,j,n;
  double interval;
  struct stat buf;
  off_t sz;
  long maxsz=(long) pow(2,32) -1;
  cmor_add_traceback("cmor_close_variable");
  cmor_is_setup();

  cleanup_varid=var_id;

  if (cmor_vars[var_id].initialized != -1) {
    ierr = nc_close(cmor_vars[var_id].initialized);
    
    if (ierr != NC_NOERR) {
      snprintf(msg,CMOR_MAX_STRING,"NetCDF Error (%i: %s) closing variable %s (table: %s)!",ierr,nc_strerror(ierr),cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
      cmor_handle_error(msg,CMOR_CRITICAL);
    }
    

    /* Ok we need to make the associated variables have been written in the case of a time varying grid */
    if ((cmor_vars[var_id].grid_id>-1) && (cmor_grids[cmor_vars[var_id].grid_id].istimevarying==1)) {
      for (i=0;i<4;i++) {
	if (cmor_grids[cmor_vars[var_id].grid_id].associated_variables[i]!=-1) { /* ok this associated coord should be stored */
	  if (cmor_vars[var_id].ntimes_written!=cmor_vars[var_id].ntimes_written_coords[i]) {
	    /* ok we either wrote more or less data but in any case not the right amount! */
	    if (cmor_vars[var_id].ntimes_written==0) {
	      for (j=0;j<cmor_vars[var_id].ndims;j++) {
		if (cmor_axes[cmor_vars[var_id].axes_ids[j]].axis=='T') {
		  sprintf(ctmp2,"%i",cmor_axes[cmor_vars[var_id].axes_ids[j]].length);
		  break;
		}
	      }
	    }
	    else {
	      sprintf(ctmp2,"%i",cmor_vars[var_id].ntimes_written);
	    }
	    if (cmor_vars[var_id].ntimes_written_coords[i]==-1) {
	      sprintf(ctmp,"no");
	    }
	    else {
	      sprintf(ctmp,"%i",cmor_vars[var_id].ntimes_written_coords[i]);
	    }
	    snprintf(msg,CMOR_MAX_STRING,"while closing variable %i (%s, table %s) we noticed it has a time varying grid, you wrote %s time steps for the variable, but its associated variable %i (%s) has %s times written", cmor_vars[var_id].self, cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id, ctmp2, cmor_vars[cmor_grids[cmor_vars[var_id].grid_id].associated_variables[i]].self,cmor_vars[cmor_grids[cmor_vars[var_id].grid_id].associated_variables[i]].id,ctmp);
	    cmor_handle_error(msg,CMOR_CRITICAL);
	  }
	}
      }
    }
    for (i=0;i<10;i++) {
      if (cmor_vars[var_id].associated_ids[i]!=-1) {
	if (cmor_vars[var_id].ntimes_written != cmor_vars[var_id].ntimes_written_associated[i]) {
	  sprintf(ctmp2,"%i",cmor_vars[var_id].ntimes_written);
	  sprintf(ctmp,"%i",cmor_vars[var_id].ntimes_written_associated[i]);
	  snprintf(msg,CMOR_MAX_STRING,"while closing variable %i (%s, table %s) we noticed it has a time varying associated variable, you wrote %s time steps for the variable, but its associated variable %i (%s) has %s times written", cmor_vars[var_id].self,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id, ctmp2, cmor_vars[cmor_vars[var_id].associated_ids[i]].self,cmor_vars[cmor_vars[var_id].associated_ids[i]].id,ctmp);
	  cmor_handle_error(msg,CMOR_CRITICAL);
	}
      }
    }
    /* ok at that point we need to construct the final name! */
    strncpytrim(outname,cmor_vars[var_id].base_path,CMOR_MAX_STRING);
    
    if (cmor_tables[cmor_axes[cmor_vars[var_id].axes_ids[0]].ref_table_id].axes[cmor_axes[cmor_vars[var_id].axes_ids[0]].ref_axis_id].axis=='T') {
      cmor_get_axis_attribute(cmor_vars[var_id].axes_ids[0],"units",'c',&msg);
      
      cmor_get_cur_dataset_attribute("calendar",msg2);
      
      if (cmor_calendar_c2i(msg2,&icalo)!=0) {
	snprintf(msg,CMOR_MAX_STRING,"Cannot convert times for calendar: %s, closing variable %s (table: %s)",msg2,cmor_vars[var_id].id,cmor_tables[cmor_vars[var_id].ref_table_id].table_id);
	cmor_handle_error(msg,CMOR_CRITICAL);
	cmor_pop_traceback();
	return 1;
      }
      /* ok makes a comptime out of input */
      i = cmor_vars[var_id].axes_ids[0];
      j=cmor_axes[i].ref_table_id;
      i=cmor_axes[i].ref_axis_id;
      if ((cmor_tables[j].axes[i].climatology==1)&&(cmor_vars[var_id].first_bound!=1.e20)) {
      	cdRel2Comp(icalo,msg,cmor_vars[var_id].first_bound,&comptime);
      }
      else {
	cdRel2Comp(icalo,msg,cmor_vars[var_id].first_time,&comptime);
      }
      /* need to figure out the approximate interval */
      interval  = cmor_convert_interval_to_seconds(cmor_tables[cmor_axes[cmor_vars[var_id].axes_ids[0]].ref_table_id].interval,cmor_tables[cmor_axes[cmor_vars[var_id].axes_ids[0]].ref_table_id].axes[cmor_axes[cmor_vars[var_id].axes_ids[0]].ref_axis_id].units);
      
      /* first time point */
      strncat(outname,"_",CMOR_MAX_STRING-strlen(outname));
      snprintf(msg2,CMOR_MAX_STRING,"%.4ld",comptime.year);
      strncat(outname,msg2,CMOR_MAX_STRING-strlen(outname));
      if (interval<29.E6) { /* less than a year */
	snprintf(msg2,CMOR_MAX_STRING,"%.2i",comptime.month);
	strncat(outname,msg2,CMOR_MAX_STRING-strlen(outname));
      }
      if (interval<2.E6) { /* less than a month */
	snprintf(msg2,CMOR_MAX_STRING,"%.2i",comptime.day);
	strncat(outname,msg2,CMOR_MAX_STRING-strlen(outname));
      }
      if (interval<86000) { /* less than a day */
	snprintf(msg2,CMOR_MAX_STRING,"%.2i",(int)comptime.hour);
	strncat(outname,msg2,CMOR_MAX_STRING-strlen(outname));
      }
      if (interval<21000) { /* less than 6hr */
	/* from now on add 1 more level of precision since that frequency */
	ierr = (int)((comptime.hour-(int)(comptime.hour))*60.);
	snprintf(msg2,CMOR_MAX_STRING,"%.2i",ierr);
	strncat(outname,msg2,CMOR_MAX_STRING-strlen(outname));
      }
      if (interval<3000) { /* less than an hour */
	snprintf(msg2,CMOR_MAX_STRING,"%.2i",(int)((comptime.hour-(int)(comptime.hour))*3600.)-ierr*60);
	strncat(outname,msg2,CMOR_MAX_STRING-strlen(outname));
      }
      
      /* separator between first and last time */
      strncat(outname,"-",CMOR_MAX_STRING-strlen(outname));
     
      if ((cmor_tables[j].axes[i].climatology==1) && (cmor_vars[var_id].last_bound!=1.e20)) {
      	cdRel2Comp(icalo,msg,cmor_vars[var_id].last_bound,&comptime);
	/* ok apparently we don't like the new time format if it's ending at midnight exactly so I'm removing one second...*/
	if (icalo==cdMixed) {
	  cdCompAddMixed(comptime,-1./3600.,&comptime);
	}
	else{
	  cdCompAdd(comptime,-1./3600.,icalo,&comptime);
	}
      }
      else {
	cdRel2Comp(icalo,msg,cmor_vars[var_id].last_time,&comptime);
      }
      
      /* last time point */
      snprintf(msg2,CMOR_MAX_STRING,"%.4ld",comptime.year);
      strncat(outname,msg2,CMOR_MAX_STRING-strlen(outname));
      if (interval<29.E6) { /* less than a year */
	snprintf(msg2,CMOR_MAX_STRING,"%.2i",comptime.month);
	strncat(outname,msg2,CMOR_MAX_STRING-strlen(outname));
      }
      if (interval<2.E6) { /* less than a month */
	snprintf(msg2,CMOR_MAX_STRING,"%.2i",comptime.day);
	strncat(outname,msg2,CMOR_MAX_STRING-strlen(outname));
      }
      if (interval<86000) { /* less than a day */
	snprintf(msg2,CMOR_MAX_STRING,"%.2i",(int)comptime.hour);
	strncat(outname,msg2,CMOR_MAX_STRING-strlen(outname));
      }
      if (interval<21000) { /* less than 6hr */
	/* from now on add 1 more level of precision since that frequency */
	ierr = (int)((comptime.hour-(int)(comptime.hour))*60.);
	snprintf(msg2,CMOR_MAX_STRING,"%.2i",ierr);
	strncat(outname,msg2,CMOR_MAX_STRING-strlen(outname));
      }
      if (interval<3000) { /* less than an hour */
	snprintf(msg2,CMOR_MAX_STRING,"%.2i",(int)((comptime.hour-(int)(comptime.hour))*3600.)-ierr*60);
	strncat(outname,msg2,CMOR_MAX_STRING-strlen(outname));
      }
      
      if (cmor_tables[cmor_axes[cmor_vars[var_id].axes_ids[0]].ref_table_id].axes[cmor_axes[cmor_vars[var_id].axes_ids[0]].ref_axis_id].climatology==1) {
	strncat(outname,"-clim",CMOR_MAX_STRING-strlen(outname));	
      }
    }
/*     else { */
/*       printf("first axis is not time axis ?\n"); */
/*     } */
    if (cmor_vars[var_id].suffix_has_date==1) {
      /* all right we need to pop out the date part.... */
      n = strlen(cmor_vars[var_id].suffix);
      i=0;
      while (cmor_vars[var_id].suffix[i]!='_') i++;
      i++;
      while ((cmor_vars[var_id].suffix[i]!='_') && i<n) i++;
      /* ok now we have the length of dates */
      /* at this point we are either at the _clim the actual _suffix or the end (==nosuffix) */
      /* checking if _clim needs to be added */
      if (cmor_tables[cmor_axes[cmor_vars[var_id].axes_ids[i]].ref_table_id].axes[cmor_axes[cmor_vars[var_id].axes_ids[0]].ref_axis_id].climatology==1) {
	i+=5;
      }
      strcpy(msg,"");
      for (j=i;j<n;j++) {
	msg[j-i]=cmor_vars[var_id].suffix[i];
	msg[j-i+1]='\0';
      }
    }
    else {
      strncpy(msg,cmor_vars[var_id].suffix,CMOR_MAX_STRING);
    }
    
    /* MKM to fix the SPECS file suffix */
    /*
    if (strlen(msg)>0) {
      strncat(outname,"_",CMOR_MAX_STRING-strlen(outname));
      strncat(outname,msg,CMOR_MAX_STRING-strlen(outname));
    }
    */
    strncat(outname,".nc",CMOR_MAX_STRING-strlen(outname));
    
    
    /* ok now we can actually move the file */
    /*     printf("moving: %s to %s\n",cmor_vars[var_id].current_path,outname); */
    /* here we need to make sure we are not in preserve mode! */
    if ((CMOR_NETCDF_MODE == CMOR_PRESERVE_4) || (CMOR_NETCDF_MODE == CMOR_PRESERVE_3)) {
      FILE *fperr;
    /* ok first let's check if the file does exists or not */
      fperr = NULL;
      fperr=fopen(outname,"r");
      if ( fperr != NULL) {
	sprintf(msg,"%s.copy",outname);
	if (rename(cmor_vars[var_id].current_path,msg)==0 ) {
	  snprintf(msg,CMOR_MAX_STRING,"Output file ( %s ) already exists, remove file or use CMOR_REPLACE or CMOR_APPEND for CMOR_NETCDF_MODE value in cmor_setup for convenience the file you were trying to write has been saved at: %s.copy",outname,outname);
	}
	else {
	  snprintf(msg,CMOR_MAX_STRING,"Output file ( %s ) already exists, remove file or use CMOR_REPLACE or CMOR_APPEND for CMOR_NETCDF_MODE value in cmor_setup.",outname);
	}
	cmor_handle_error(msg,CMOR_CRITICAL);
      }
    }
    if (rename(cmor_vars[var_id].current_path,outname)!=0) {
      snprintf(msg,CMOR_MAX_STRING,"could not rename temporary file: %s to final file name: %s",cmor_vars[var_id].current_path,outname);
      cmor_handle_error(msg,CMOR_CRITICAL);
    }
    if (file_name!=NULL) {
      strncpy(file_name,outname,CMOR_MAX_STRING);
    }

    /* At this point we need to check the file's size and issue a warning if greater than 4Gb*/
    stat(outname,&buf);
    sz = buf.st_size;
    if (sz > maxsz) {
      sprintf(msg,"Closing file: %s, size is greater than 4Gb, while this is acceptable it may be unreadable on older file systems",outname);
      cmor_handle_error(msg,CMOR_WARNING);
    }

    if (preserve != NULL) {
      cmor_vars[var_id].initialized=-1;
      cmor_vars[var_id].ntimes_written=0;
      cmor_vars[var_id].time_nc_id=-999;
      cmor_vars[var_id].time_bnds_nc_id=-999;
      for (i=0;i<10;i++) {
	cmor_vars[var_id].ntimes_written_coords[i]=-1;
	cmor_vars[var_id].ntimes_written_associated[i]=0;
	cmor_vars[var_id].associated_ids[i]=-1;
	cmor_vars[var_id].nc_var_id=-999;
      }
      for (i=0;i<cmor_vars[var_id].nattributes;i++) {
	if (strcmp(cmor_vars[var_id].attributes[i],"cell_methods")==0) {
	  cmor_set_variable_attribute_internal(var_id,"cell_methods",'c',cmor_tables[cmor_vars[var_id].ref_table_id].vars[cmor_vars[var_id].ref_var_id].cell_methods);
	}
      }
    }
    else {
      cmor_reset_variable(var_id);
      cmor_vars[var_id].closed=1;
    }
  }
  cleanup_varid=-1;
  cmor_pop_traceback();
  return 0;
}

int cmor_close(void) 
{
  int i,ierr,j;
  extern int cmor_nvars;
  char msg[CMOR_MAX_STRING];
  extern ut_system *ut_read;
  extern FILE *output_logfile;

  cmor_add_traceback("cmor_close");
  cmor_is_setup();
  if (output_logfile == NULL) output_logfile = stderr;
  /*ut_free_system(ut_read);*/
/*   if (ut_get_status() != UT_SUCCESS) { */
/*     snprintf(msg,CMOR_MAX_STRING,"Udunits: Error freeing units system"); */
/*     cmor_handle_error(msg,CMOR_CRITICAL); */
/*   } */
  for (i=0;i<cmor_nvars+1;i++) {
    if (cmor_vars[i].initialized != -1) {
      if (cmor_vars[i].closed==0) {
	ierr = cmor_close_variable(i,NULL,NULL);
      }
    }
    else if ((cmor_vars[i].needsinit==1)&&(cmor_vars[i].closed!=1)) {
if(strcmp(CMOR_PROJECT,"SPECS")==0){
      snprintf(msg,CMOR_MAX_STRING,"variable %s (%i, table: %s) has been defined but never initialized",cmor_vars[i].id,i,cmor_tables[cmor_vars[i].ref_table_id].table_id);
      cmor_handle_error(msg,CMOR_WARNING);
}
else{
if(strcmp("lead_time",cmor_vars[i].id)!=0) {
      snprintf(msg,CMOR_MAX_STRING,"variable %s (%i, table: %s) has been defined but never initialized",cmor_vars[i].id,i,cmor_tables[cmor_vars[i].ref_table_id].table_id);
      cmor_handle_error(msg,CMOR_WARNING);
    }
  }
}
}
  for (i=0;i<CMOR_MAX_TABLES;i++) {
    for(j=0;j<CMOR_MAX_ELEMENTS;j++) {
      if (cmor_tables[i].axes[j].requested!=NULL) {free(cmor_tables[i].axes[j].requested);cmor_tables[i].axes[j].requested=NULL;}
      if (cmor_tables[i].axes[j].requested_bounds!=NULL) {free(cmor_tables[i].axes[j].requested_bounds);cmor_tables[i].axes[j].requested_bounds=NULL;}
      if (cmor_tables[i].axes[j].crequested!=NULL) {free(cmor_tables[i].axes[j].crequested);cmor_tables[i].axes[j].crequested=NULL;}  
    }
    if (cmor_tables[i].nforcings>0) {
      for (j=0;j<cmor_tables[i].nforcings;j++) {
		if(strcmp(CMOR_PROJECT,"SPECS")!=0){
			free(cmor_tables[i].forcings[i]);
			cmor_tables[i].forcings[i]=NULL;
		}
      }
      free(cmor_tables[i].forcings);
      cmor_tables[i].forcings=NULL;
      cmor_tables[i].nforcings=0;
    }
  }
  for (i=0;i<CMOR_MAX_GRIDS;i++) {
    if (cmor_grids[i].lons!=NULL) {free(cmor_grids[i].lons);cmor_grids[i].lons=NULL;}
    if (cmor_grids[i].lats!=NULL) {free(cmor_grids[i].lats);cmor_grids[i].lats=NULL;}
    if (cmor_grids[i].blons!=NULL) {free(cmor_grids[i].blons);cmor_grids[i].blons=NULL;}
    if (cmor_grids[i].blats!=NULL) {free(cmor_grids[i].blats);cmor_grids[i].blats=NULL;}
/*     if (cmor_grids[i].area!=NULL) {free(cmor_grids[i].area);cmor_grids[i].area=NULL;} */
/*     if (cmor_grids[i].volumes!=NULL) {free(cmor_grids[i].volumes);cmor_grids[i].volumes=NULL;} */
  }
  if (cmor_nerrors!=0 || cmor_nwarnings!=0) {
    fprintf(output_logfile,"------\nCMOR is now closed.\n------\nDuring execution we encountered:\n");
#ifdef COLOREDOUTPUT
    fprintf(output_logfile,"%c[%d;%dm",0X1B,1,34);
#endif
    fprintf(output_logfile,"%3i Warning(s)",cmor_nwarnings);
#ifdef COLOREDOUTPUT
    fprintf(output_logfile,"%c[%dm",0X1B,0);
#endif
    fprintf(output_logfile,"\n");
#ifdef COLOREDOUTPUT
    fprintf(output_logfile,"%c[%d;%dm",0X1B,1,31);
#endif
    fprintf(output_logfile,"%3i Error(s)",cmor_nerrors);
#ifdef COLOREDOUTPUT
    fprintf(output_logfile,"%c[%dm",0X1B,0);
#endif
    fprintf(output_logfile,"\n------\nPlease review them.\n------\n");
  }
  else {
    fprintf(output_logfile,"------\nCMOR is now closed.\n------\n\nWe encountered no warnings or errors during execution\n------\nCongratulations!\n------\n");
  }
  if (output_logfile != stderr) fclose(output_logfile);
  cmor_pop_traceback();
  return 0;
}

void cmor_trim_string(char *in,char *out) {
  int n,i,j;
  if (in==NULL) {
    out=NULL;
    return;
  }
  n = strlen(in);
  if (n==0) {
    out[0]='\0';
    return;
  }
  
  if (n>CMOR_MAX_STRING) n=CMOR_MAX_STRING; /* make sure we don't go over the limit */
  j=0;
  for (i=0;i<n;i++) {
    if (in[i]!=' ' && in[i]!='\n' && in[i]!='\t') {
      break;
    }
    else {
      j++;
    }
  }
/*  puts("\n -2- \n"); */
  for(i=j;i<n;i++) {
    out[i-j]=in[i];
  }
  out[i-j]='\0';
  n = strlen(out);
  i=n;
  while((out[i]=='\0' || out[i]==' ')) { out[i]='\0'; i--;}
}
