C&&&&&&&& C PROGRAM DOCUMENTATION BLOCK C CPROGRAM: narr_pcpto32 C PRGMMR: PERRY SHAFRAN ORG: W/NP20 DATE: 2000-03 C CABSTRACT: C Reads precip data on 1/8th degree LDAS GRID and format for E-GRID C C PROGRAM HISTORY LOG: C 2000-03 P. SHAFRAN original program C 2001-03 P. SHAFRAN added Pentad data C 2001-03 P. SHAFRAN added Mexico data C 2001-11 P. SHAFRAN 32-km version C 2001-12 P. SHAFRAN 32-km version C - 32-km version: C - CONUS data now in GRIB C - blending of US and Canada using new LDAS mask C - blending of US and Mexico using new LDAS mask C - blending of Mexico and CMAP using 50/50 mask C - No CMAP north of 50 degrees north C 2004-03 P. SHAFRAN New version for 2003 and real-time R-CDAS: C Uses CMORPH for oceans, NLDAS for Conus C and US/Mexico for Mexico C 2012-01 W. EBISUZAKI allow missing cmorph and us-mex data C quick cleanup, minor bug fix, C increase size of KPDS, KGDS C enable reading us-mex precip C typo incroduced with new us-mex dataset? C 2013-01 W. EBISUZAKI fixed call to getgb C C USAGE: C echo "YY MM DD" | narr_pcpto32.x C YY, MM, DD are the date code C C INPUT FILES: C UNIT2 binary file: land sea mask C UNIT3 grib file: land/sea mask e-grid C UNIT4 grib file: blending mask C UNIT5 text file: line 1: "iyear imonth iday" C C UNIT11-UNIT34: conus hourly precip on grid 192 (grib) C UNIT35-UNIT58: cmorph hourly precip on grid 192 (grib) C UNIT59-UNIT82: mexico hourly precip on grid 192 (grib) C C OUTPUT FILES: C OUTPUT FILES: C UNIT101-108 observed precip files, hourly in 3 hour chunks C C C ROUTINES CALLED C BAOPEN C GETGB C PUTGB C CATTRIBUTES: C LANGUAGE: F90 C C$$$$$$$$$$$$