/[MITgcm]/MITgcm/eesupp/src/tim.c
ViewVC logotype

Annotation of /MITgcm/eesupp/src/tim.c

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


Revision 1.2 - (hide annotations) (download)
Tue Sep 29 21:22:33 1998 UTC (25 years, 8 months ago) by cnh
Branch: MAIN
CVS Tags: checkpoint15
Changes since 1.1: +14 -0 lines
File MIME type: text/plain
Correction to missing file tim.c and genmake
for checkpoint15

1 cnh 1.2 #include <mpi.h>
2     #include <stdio.h>
3     #include <stdlib.h>
4     #include <unistd.h>
5     #include <assert.h>
6     #include <sys/time.h>
7     void cloc_( double *curtim )
8     {
9     struct timespec tv1;
10     getclock(TIMEOFDAY, &tv1);
11     *curtim = (double)((tv1.tv_nsec)+(tv1.tv_sec)*1.E9);
12     *curtim = *curtim/1E9;
13     }
14    

  ViewVC Help
Powered by ViewVC 1.1.22