!&&&&&&&&
! PROGRAM DOCUMENTATION BLOCK
!
!PROGRAM: narr_disag_us_mex
!  PRGMMR:  M. CARRERA               ORG: W/NP52    DATE: 2005-04
!
!ABSTRACT: 
!   Disaggregates us_mex precip using hourly weights from CMORPH.
!
!   The us_mex precip data is a daily average that we want to convert to
!hourly values.  Use hourly CMORPH data to calculate time weights.
!
!            :(1)  IF CMORPH_SUM=0.0 BUT US_MEX P > 0 THEN
!            : WE ATTEMPT TO CALCULATE THE HOURLY WEIGHTS BY
!            : AVERAGING THE SURROUNDING WEIGHTS
!            :(2) IF WE HAVE UNDEFINED CMORPH VALUES THEN
!            : WE ASSUME EQUAL WEIGHTS OF 1/24 FOR EACH HOUR
!
!Program History log:
!   2005-04   M. Carrera
!   2007-02   W. Ebisuzaki change in file_to_process format, close(1), rename -> date(*), 
!                change to f95
!   2013-01    W. Ebisuzaki changed from f95 to f90
!
!USAGE:
!
!   fort.1 has list of input files
!
!   % narr_disag_us_mex.x
!
!
!INPUT FILES:
!    UNIT1 with list of input files
!
!OUTPUT FILES:
!    UNIT51  text file: undefined_cmorph
!    UNIT52  text file: bad.sum.weights
!    UNIT53  text file: cmorph == 0 and us_mex > 0 
!    dynamic date(ii)//us.mex
!
!ROUTINES CALLED:
!     ave2 (included)
!
!ATTRIBUTES:
!   LANGUAGE: F95
!
!$$$$$$$$$$$$