pkg/atm_ocn_coupler/setdir.c

7de3cc5237 Jean*0001 /*
                0002 */
                0003
                0004 #include <stdlib.h>
86f389907b Jean*0005 #include <stdio.h>
7de3cc5237 Jean*0006 #include <unistd.h>
                0007 /*  Here, we get the definition of the FC_NAMEMANGLE() macro. */
                0008 #include "FC_NAMEMANGLE.h"
                0009
                0010 void FC_NAMEMANGLE(setdir) (int *myPEListId )
                0011 {
                0012    char RUN_DIR[1024];
                0013    char *rundirsetting;
                0014    char *SROOT;
                0015    char *SPREF;
                0016    char *scycle;
                0017    char *endPtr;
                0018    char SROOT_BUFFER[1024];
                0019    int  rc;
                0020    int  sDirNum;
                0021    int sDirCycle;
                0022
                0023    sprintf(RUN_DIR,"rank_%d",*myPEListId);
                0024    rc = chdir(RUN_DIR);
                0025    /* perror(strerror(rc));
                0026       exit(-1); */
                0027 }