54 lines
1.4 KiB
C
54 lines
1.4 KiB
C
#include "dg.h"
|
|
|
|
void dg_fall ( int *iret )
|
|
/************************************************************************
|
|
* dg_fall *
|
|
* *
|
|
* This subroutine frees the actual memory for all internal grids, and *
|
|
* reset the grid information. *
|
|
* *
|
|
* dg_fall ( iret ) *
|
|
* *
|
|
* Input parameters: *
|
|
* *
|
|
* Output parameters: *
|
|
* *iret int Return code *
|
|
* 0 = normal return *
|
|
** *
|
|
* Log: *
|
|
* R. Tian/SAIC 3/06 *
|
|
* T. Piper/SAIC 03/08 Replaced cmm_free1d with G_FREE *
|
|
***********************************************************************/
|
|
{
|
|
int ii;
|
|
/*---------------------------------------------------------------------*/
|
|
*iret = 0;
|
|
|
|
for ( ii = 0; ii < _dggrid.maxdgg; ii++ ) {
|
|
/*
|
|
* Reset the grid information.
|
|
*/
|
|
_dggrid.iusesv[ii] = 0;
|
|
_dggrid.dttimd1[ii][0] = '\0';
|
|
_dggrid.dttimd2[ii][0] = '\0';
|
|
_dggrid.leveld1[ii] = 0;
|
|
_dggrid.leveld2[ii] = 0;
|
|
_dggrid.ivcrdd[ii] = 0;;
|
|
_dggrid.gparmd[ii][0] = '\0';
|
|
_dggrid.savflg[ii] = G_FALSE;
|
|
|
|
/*
|
|
* If grid exists, free its memory.
|
|
*/
|
|
if ( _dggrid.dgg[ii].grid ) {
|
|
#ifdef MEM_DEBUG
|
|
printf ( "Freed grid at %p with size: %d\n",
|
|
(void *)(_dggrid.dgg[ii].grid), _dggrid.dgg[ii].size );
|
|
#endif
|
|
G_FREE ( _dggrid.dgg[ii].grid, float );
|
|
_dggrid.dgg[ii].size = 0;
|
|
}
|
|
}
|
|
|
|
return;
|
|
}
|