pkg/atm_ocn_coupler/setdir.c

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