beaufort/code/setdir_ocean.c

/*
 * $Header: $
 * $Name:  $
*/

#include <stdlib.h>
#include <unistd.h>

void setdir_ocean_( )
{
   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,"ocean");
   rc = chdir(RUN_DIR);
   /* perror(strerror(rc));
      exit(-1); */
}
1	dimitri	1.1	/*
2			* $Header: $
3			* $Name: $
4			*/
5
6			#include <stdlib.h>
7			#include <unistd.h>
8
9			void setdir_ocean_( )
10			{
11			char RUN_DIR[1024];
12			char *rundirsetting;
13			char *SROOT;
14			char *SPREF;
15			char *scycle;
16			char *endPtr;
17			char SROOT_BUFFER[1024];
18			int rc;
19			int sDirNum;
20			int sDirCycle;
21
22			sprintf(RUN_DIR,"ocean");
23			rc = chdir(RUN_DIR);
24			/* perror(strerror(rc));
25			exit(-1); */
26			}