7f90924706
Former-commit-id:7fa9dbd5fb[formerly4bfbdad17d] [formerly9f8cb727a5] [formerly7fa9dbd5fb[formerly4bfbdad17d] [formerly9f8cb727a5] [formerly8485b90ff8[formerly9f8cb727a5[formerly bf53d06834caa780226121334ac1bcf0534c3f16]]]] Former-commit-id:8485b90ff8Former-commit-id:40aa780b3d[formerly33a67cdd82] [formerly 73930fb29d0c1e91204e76e6ebfdbe757414f319 [formerlya28d70b5c5]] Former-commit-id: a16a1b4dd44fc344ee709abbe262aeed58a8339b [formerlye5543a0e86] Former-commit-id:0c25458510
123 lines
4.1 KiB
C
123 lines
4.1 KiB
C
#include "dg.h"
|
|
|
|
void dgc_qtms ( const int *mxtms, const int *both, char *tmlst, int *ntms,
|
|
char *trange, int *iret )
|
|
/************************************************************************
|
|
* dgc_qtms *
|
|
* *
|
|
* This subroutine retrieves the list of times stored in the NFILE *
|
|
* block of DGCMN.CMN. *
|
|
* *
|
|
* If BOTH is false, only the first times are returned. If BOTH is *
|
|
* .true. the first and second times are returned in the same element *
|
|
* of tmlst with : between them. If the second time is blank, no : is *
|
|
* included. *
|
|
* *
|
|
* dgc_qtms ( mxtms, both, tmlst, ntms, trange, iret ) *
|
|
* *
|
|
* Input parameters: *
|
|
* *mxtms const int Maximum # of times to return *
|
|
* *both const int Flag to return two times with : *
|
|
* *
|
|
* Output parameters: *
|
|
* *tmlst char List of times *
|
|
* *ntms int Number of times *
|
|
* *trange char Range of grid times *
|
|
* *iret int Return code *
|
|
* 0 = normal return *
|
|
** *
|
|
* Log: *
|
|
* K. Brill/HPC 3/04 *
|
|
* R. Tian/SAIC 4/04 Added TRANGE output *
|
|
* R. Tian/SAIC 3/06 Recoded from Fortran *
|
|
************************************************************************/
|
|
{
|
|
char tstrt[37], tstop[37];
|
|
int lstrt, i;
|
|
/*----------------------------------------------------------------------*/
|
|
*iret = 0;
|
|
|
|
if ( _nfile.ntmlst > *mxtms ) {
|
|
*ntms = *mxtms;
|
|
} else {
|
|
*ntms = _nfile.ntmlst;
|
|
if ( *ntms <= 0 ) return;
|
|
}
|
|
|
|
strcpy ( tmlst, _nfile.dtmlst1[0] );
|
|
if ( *both == G_TRUE && _nfile.dtmlst2[0][0] != '\0' ) {
|
|
strcat ( tmlst, ":" );
|
|
strcat ( tmlst, _nfile.dtmlst2[0] );
|
|
}
|
|
for ( i = 1; i < *ntms; i++ ) {
|
|
strcat ( tmlst, ";" );
|
|
strcat ( tmlst, _nfile.dtmlst1[i] );
|
|
if ( *both == G_TRUE && _nfile.dtmlst2[i][0] != '\0' ) {
|
|
strcat ( tmlst, ":" );
|
|
strcat ( tmlst, _nfile.dtmlst2[i] );
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Encode the times into the "actual" grid time range (used in
|
|
* building the default title) . . . reduce the start/stop times
|
|
* to YYMMDD/HHthh if the other stuff is zero. Drop A00 if both
|
|
* have it, and drop however much of the stop YYMMDD/HH matches
|
|
* the start values (starting at the left).
|
|
*/
|
|
memset ( tstrt, 0, sizeof ( tstrt ) );
|
|
memset ( tstop, 0, sizeof ( tstop ) );
|
|
strcpy ( tstrt, _nfile.dtmlst1[0] );
|
|
if ( *both == G_TRUE && _nfile.dtmlst2[0][0] != '\0' ) {
|
|
strcat ( tstrt, ":" );
|
|
strcat ( tstrt, _nfile.dtmlst2[0] );
|
|
}
|
|
strcpy ( tstop, _nfile.dtmlst1[(*ntms)-1] );
|
|
if ( *both == G_TRUE && _nfile.dtmlst2[(*ntms)-1][0] != '\0' ) {
|
|
strcat ( tstop, ":" );
|
|
strcat ( tstop, _nfile.dtmlst2[(*ntms)-1] );
|
|
}
|
|
|
|
/*
|
|
* The test on character 15 (last digit of 'hhh') ensures that
|
|
* the work hasn't already been done on 13:17 ('hhhmm').
|
|
*/
|
|
if ( ( tstrt[14] != '\0' ) && ( tstop[14] != '\0' ) ) {
|
|
if ( ( strncmp ( &tstrt[15], "00", 2 ) == 0 ) &&
|
|
( strncmp ( &tstop[15], "00", 2 ) == 0 ) ) {
|
|
memset ( &tstrt[15], 0, 2 );
|
|
memset ( &tstop[15], 0, 2 );
|
|
}
|
|
if ( ( tstrt[12] == '0' ) && ( tstop[12] == '0' ) ) {
|
|
memmove ( &tstrt[12], &tstrt[13], strlen(&tstrt[13])+1 );
|
|
memmove ( &tstop[12], &tstop[13], strlen(&tstop[13])+1 );
|
|
}
|
|
}
|
|
|
|
if ( ( strncmp ( &tstrt[9], "00", 2 ) == 0 ) &&
|
|
( strncmp ( &tstop[9], "00", 2 ) == 0 ) ) {
|
|
memmove ( &tstrt[9], &tstrt[11], strlen(&tstrt[11])+1 );
|
|
memmove ( &tstop[9], &tstop[11], strlen(&tstop[11])+1 );
|
|
}
|
|
lstrt = strlen ( tstrt );
|
|
if ( ( strncmp ( &tstrt[lstrt-3], "A00", 3 ) == 0 ) &&
|
|
( strncmp ( &tstop[lstrt-3], "A00", 3 ) == 0 ) ) {
|
|
lstrt -= 3;
|
|
tstop[lstrt] = '\0';
|
|
} else if ( strncmp ( tstrt, tstop, 9 ) == 0 ) {
|
|
strcpy ( tstop, &tstop[9] );
|
|
}
|
|
|
|
if ( strncmp ( tstrt, tstop, 6 ) == 0 ) {
|
|
strcpy ( tstop, &tstop[6] );
|
|
} else if ( strncmp ( tstrt, tstop, 4 ) == 0 ) {
|
|
strcpy ( tstop, &tstop[4] );
|
|
} else if ( strncmp ( tstrt, tstop, 2 ) == 0 ) {
|
|
strcpy ( tstop, &tstop[2] );
|
|
}
|
|
strncpy ( trange, tstrt, lstrt );
|
|
strcpy ( &trange[lstrt],"-" );
|
|
strcat ( trange, tstop );
|
|
|
|
return;
|
|
}
|