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

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

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


Revision 1.2 - (show annotations) (download)
Tue Sep 29 21:22:33 1998 UTC (25 years, 9 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 #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