pkg/atm_ocn_coupler/setdir.c

/*
 * $Header: /u/gcmpack/MITgcm/pkg/compon_communic/setdir.c,v 1.2 2011/11/16 17:00:04 jmc Exp $
 * $Name:  $
*/

#include <stdlib.h>
#include <unistd.h>
/*  Here, we get the definition of the FC_NAMEMANGLE() macro. */
#include "FC_NAMEMANGLE.h"

void FC_NAMEMANGLE(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); */
}
1	jmc	1.1	/*
2			* $Header: /u/gcmpack/MITgcm/pkg/compon_communic/setdir.c,v 1.2 2011/11/16 17:00:04 jmc Exp $
3			* $Name: $
4			*/
5
6			#include <stdlib.h>
7			#include <unistd.h>
8			/* Here, we get the definition of the FC_NAMEMANGLE() macro. */
9			#include "FC_NAMEMANGLE.h"
10
11			void FC_NAMEMANGLE(setdir) (int *myPEListId )
12			{
13			char RUN_DIR[1024];
14			char *rundirsetting;
15			char *SROOT;
16			char *SPREF;
17			char *scycle;
18			char *endPtr;
19			char SROOT_BUFFER[1024];
20			int rc;
21			int sDirNum;
22			int sDirCycle;
23
24			sprintf(RUN_DIR,"rank_%d",*myPEListId);
25			rc = chdir(RUN_DIR);
26			/* perror(strerror(rc));
27			exit(-1); */
28			}