/*
 * $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/compon_communic/Attic/setdir.c,v 1.1 2004/11/07 23:17:00 jmc Exp $
 * $Name:  $
*/

#include <stdlib.h>
#include <unistd.h>
                                                                                
void setdir_(int *myPEListId )
{
   char RUN_DIR[1024];
   char *rundirsetting;
   char *SROOT;
   char *SPREF;
   char *scycle;
   char *endPtr;
   char SROOT_BUFFER[1024];
   int  rc;
   int  sDirNum;
   int sDirCycle;

   sprintf(RUN_DIR,"rank_%d",*myPEListId);
   rc = chdir(RUN_DIR);
   /* perror(strerror(rc));
      exit(-1); */
}