/[MITgcm]/MITgcm_contrib/nesting_sannino/nest_driver/setdir.c
ViewVC logotype

Annotation of /MITgcm_contrib/nesting_sannino/nest_driver/setdir.c

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (hide annotations) (download)
Sun Nov 28 03:28:55 2010 UTC (14 years, 8 months ago) by jmc
Branch: MAIN
CVS Tags: HEAD
File MIME type: text/plain
little C subroutine to change current dir (same as used in coupling)

1 jmc 1.1 /*
2     * $Header: /u/gcmpack/MITgcm/pkg/compon_communic/setdir.c,v 1.1 2004/11/07 23:17:00 jmc Exp $
3     * $Name: $
4     */
5    
6     #include <stdlib.h>
7     #include <unistd.h>
8    
9     void setdir_(int *myPEListId )
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,"rank_%d",*myPEListId);
23     rc = chdir(RUN_DIR);
24     /* perror(strerror(rc));
25     exit(-1); */
26     }

  ViewVC Help
Powered by ViewVC 1.1.22