SUBROUTINE CG_INIT ( iret ) C************************************************************************ C* CG_INIT * C* * C* This subroutine initializes certain report parameters to missing for * C* for a new report. All initialized values are in common. * C* * C* CG_INIT ( IRET ) * C* * C* Output parameters: * C* IRET INTEGER Return code * C* 0 = normal return * C* * C** * C* Log: * C* R. Hollern/NCEP 6/96 * C* K. Tyle/GSC 4/97 Cleaned up * C* D. Kidwell/NCEP 4/97 Added argument rarray * C* D. Kidwell/NCEP 4/97 Added initialization for ixind * C* R. Hollern/NCEP 10/97 Added initialization for wsped * C* D. Kidwell/NCEP 10/97 Changed interface, cleaned up * C* R. Hollern/NCEP 11/99 Added initialization for ispwds, removed* C* wdgflg, gums * C* R. Hollern/NCEP 11/99 Added initialization for jnprcv * C* R. Hollern/NCEP 3/00 Removed initialization of interface vals* C* C. Caruso Magee/NCEP 4/00 Modifying for Coast Guard data. * C************************************************************************ INCLUDE 'GEMPRM.PRM' INCLUDE 'cgcmn.cmn' C----------------------------------------------------------------------- iret = 0 C iwindslsh = 0 iwxvsb = .false. iwind = .false. iwave = .false. isea = .false. iair = .false. ipres = .false. irmk = .false. gothdr = .false. C* RETURN END