7月9日，周三

  基于新安江、马斯京根、水库调度的多模型耦合计算程序通过。

 

7月10日，周四

  调整节点输出成果。

 

  一个多月时间的编程告一段落

  其间，大部分辗转于旅途

  诣广宁，上贵阳，下舞阳，奔海陆

  在广宁三防，在贵阳蟠桃宫，在镇远古镇

  在舞阳河畔，在清水江畔，在红海湾畔

  甚至在机场，在车站

  也在办公室，也在家

  在时空变换人来人往的深处

  宁静，从容，持之以往

  哑然，欣然

  似醉，似梦

  无人，无我

  不过如此，唯心自知

 

  回报？Q70，快乐，新的dll

  仿佛翻越了十万大山

 

7月16日，周三

  林小要dog

  到6楼，发现是自己借了那dog，不见还

  找dog，找到燕小，竟有了6月baby

 

 

! GN_Module.F90(20080528-20080710) 为广宁项目增加

! 变量、常数和数组封装模块
module GN_Mod
implicit none
!
character(len=81) :: GN_RSPath
 ! 系统基本路径，存放.CVS文件，如，G:\GN_RS  20080527 18:21
!
character(len=81) :: FileSUB
 ! 某文件名,如，333ST_NDTP_B.CSV (无路径）! 20080529 12:05
integer :: LFS ! 某文件名字符串长度
character(len=81) :: Filename320
 ! 输入文件名，...\GN_FD_SUB\320ST_FSCH_F.CSV ! 20080615 17:07
character(len=81) :: Filename321
 ! 输入文件名，...\GN_FD_SUB\321ST_FORE_F.CSV ! 20080615 12:35
character(len=81) :: Filename333
 ! 输入文件名，...\GN_FD_SUB\333ST_NDTP_F.CSV ! 20080630 23:16
character(len=81) :: Filename334
 ! 输入文件名，...\GN_FD_SUB\334ST_XAJPAR_F.CSV ! 20080701 0:28
character(len=81) :: Filename335
 ! 输入文件名，...\GN_FD_SUB\335ST_UNPAR_F.CSV ! 20080701 23:01
character(len=81) :: Filename336
 ! 输入文件名，...\GN_FD_SUB\336ST_MSKPAR_F.CSV ! 20080701 0:52
character(len=81) :: Filename337
 ! 输入文件名，...\GN_FD_SUB\337ST_FDISP_F.CSV ! 20080707 2:32
! character(len=81) :: Filename121
 ! 输入(输出)文件名，...\GN_SM_SUB\121ST_NDTP_B.CSV (含路径) ! 20080602 11:14
!  character(len=81) :: Filename140 ! 输入文件名，...\GN_SM_SUB\140ST_XAJPAR_B.CSV ! 20080630 19:53
! character(len=81) :: Filename142
 ! 输入(输出)文件名，...\GN_SM_SUB\142ST_MSKPAR_B.CSV (含路径)
character(len=81) :: Filename340
 ! 输入文件名，...\GN_FD_SUB\340ST_PBGCD_F.CSV ! 20080701 18:14 降雨量边界条件
character(len=81) :: Filename341
 ! 输入文件名，...\GN_FD_SUB\341ST_ZBGCD_F.CSV ! 20080701 18:25 水位边界条件
character(len=81) :: Filename342
 ! 输入文件名，...\GN_FD_SUB\342ST_QBGCD_F.CSV ! 20080701 18:25 流量边界条件
character(len=81) :: Filename101
 ! 输入文件名，...\GN_SM_SUB\101ST_STBPRP_B.CSV (含路径) ! 20080603 18:44
character(len=81) :: Filename111
 ! 输入文件名，...\GN_SM_SUB\111ST_ZVARL_B.CSV ! 20080605
character(len=81) :: Filename106
 ! 输入文件名，...\GN_SM_SUB\106ST_RSVRFCCH_B.CSV ! 20080608 1:58
character(len=81) :: Filename107
 ! 输入文件名，...\GN_SM_SUB\107ST_RSVRFSR_B.CSV  ! 20080608
character(len=81) :: Filename205
 ! 输入文件名，...\GN_SM_SUB\205ST_RIVER_R.CSV  ! 20080617 16:23
character(len=81) :: Filename302
 ! 输入文件名，...\GN_FD_SUB\302ST_RIVER_F.CSV  ! 20080609
character(len=81) :: Filename251
 ! 输入文件名，...\GN_FD_SUB\251ST_PREX_R.CSV  ! 20080619 21:49 guiyang de
character(len=81) :: Filename201
 ! 输入文件名，...\GN_FD_SUB\201ST_PPTN_R.CSV  ! 20080624 2:00 guiyang de
character(len=81) :: Filename204
 ! 输入文件名，...\GN_FD_SUB\204ST_DAYEV_R.CSV  ! 20080625 2:14 guiyang de
character(len=81) :: Filename503
 ! 输出文件名，...\GN_FD_SUB\503ST_MSKND_F.CSV ! 20080703 14:20 存放当前作业预报节点流量汇总成果
character(len=81) :: Filename505
 ! 输出文件名，...\GN_FD_SUB\505ST_RSVND_F.CSV ! 20080703 14:20 存放当前作业预水库水情汇总成果
character(len=81) :: Filename804
 ! 输出文件名，...\GN_FD_SUB\804ST_LS_Y.CSV ! 20080703 17:29 存放自查成果
!
character(len=333) :: CLS(21) ! 临时字符串 ! 20080630 19:21
!      character(len=33) :: CLS(9) ! 临时字符串 ! 20080529 17:02
character(len=1) :: Blank ! 空格 ! 20080604 23:16
character(len=333) :: EWSHOW ! 说明 ! 20080604 23:46
integer :: ILS(21) ! 临时整型数
real :: FLS(21) ! 临时实型数
real :: PLS,ALS,QLS ! 临时实型数，针对雨量、面积、流量等
integer :: OTPAR
 ! 0 or 1；是否自动率定参数，如，1为自动率定，0为给定，还有其它；
 !马斯京根模型和新安江模型参数自动率定用 ! 20080701 10:36
integer :: DBID(666) ! 表编号 20080604 23:27
!
integer :: N_NF ! 预报方案总数 ! 20080615 16:59
character(len=81),allocatable :: FRSCHCD(:)
 ! 预报方案编码；: 预报方案数量 20080615 17:10
character(len=81),allocatable :: SCHNM(:) ! 方案名称
!
character(len=333),allocatable :: NDSCP(:) ! 预报方案节点范围 20080617 23:21
!   integer,allocatable :: OSTN(:) ! 出口站(节点)数
!   integer,allocatable :: OSTCD(:,:) ! 出口站编码；:,: 预报方案数量,出口站数量
!   integer :: OSTNmax ! 最多出口站方案的出口数
!
character(len=81) :: FRSCHCD_now ! 当前预报方案编码 20080615 20:47
character(len=81) :: JFRCD_now ! 当前作业预报编号 20080616 0:14
character(len=81) :: DSCHCD_now ! 当前洪水调度编号 20080707 2:33
!
character(len=10) :: BGTM_ymd ! 起始年月日 ! 20080615 14:00
character(len=8) :: BGTM_hms ! 起始时分秒
character(len=10) :: EDTM_ymd ! 结束年月日
character(len=8) :: EDTM_hms ! 结束时分秒
!
integer :: BGTM_year ! 起始年
integer :: BGTM_mon ! 起始月
integer :: BGTM_day ! 起始日
integer :: BGTM_hh ! 起始时
integer :: BGTM_mm ! 起始时
integer :: EDTM_year ! 结束年
integer :: EDTM_mon ! 结束月
integer :: EDTM_day ! 结束日
integer :: EDTM_hh ! 结束时
integer :: EDTM_mm ! 结束时
integer :: N_day ! 天数
!
character(len=10) :: TM_ymd ! 年月日，兼时段之始
character(len=8) :: TM_hms ! 时分秒
integer :: TM_year ! 年 ! 20080625 17:26
integer :: TM_mon ! 月
integer :: TM_day ! 日
integer :: TM_hh ! 时
integer :: TM_mm ! 分
integer :: iTM ! iTM  = TM_mon*100000 + TM_day*1000 + TM_hh*10 ! 20080625 19:24
!
character(len=10),allocatable :: CTM_ymd(:) ! 年月日；: NT；输出成果对应的时间 20080709 22:20
character(len=8),allocatable :: CTM_hms(:) ! 时分秒
integer,allocatable :: ITM_mon(:) ! 月；: NT；输出成果对应的月份 20080710 9:47
integer,allocatable :: ITM_day(:) ! 日
integer,allocatable :: ITM_hh(:) ! 时
integer,allocatable :: ITM_year(:) ! 年
!
!
character(len=10) :: ETM_ymd ! 年月日，时段之末 ! 20080620 1:13
character(len=8) :: ETM_hms ! 时分秒
integer :: ETM_year ! 年 ! 20080625 19:01
integer :: ETM_mon ! 月 ! 未用 20080624 3:54
integer :: ETM_day ! 日
integer :: ETM_hh ! 时
integer :: ETM_mm ! 分
!
integer :: MON(12),MONDAY(12) ! 20080617 16:20
data MON/31,28,31,30,31,30,31,30,31,31,30,31/
data MONDAY/0,31,59,90,120,151,181,212,243,273,304,334/
integer,allocatable :: TIME1(:) ! 等时段时间序列对应的时间 20080617 19:35
real,allocatable :: TIME2(:,:) ! 时间序列(降雨量摘录表)对应的起始、终止时间 20080623 14:06
integer,allocatable :: MDH(:,:) ! 实测数据对应的月、日、时、分；:,: 4,12*NT 20080617 20:20 ! 兼起始 20080622 22:46 镇远
!   integer,allocatable :: MDHM(:,:,:)
 ! 实测数据对应的月、日、时、分；:,:,: M_JH,4,12*NT 20080617 20:20
real,allocatable :: OBQ(:,:)
 ! 实测或作为边界条件的流量值；:,: M_JH,12*NT 20080620 11:48
real,allocatable :: OBT(:,:)
 ! 插值计算用的与OBQ对应的横坐标值；:,: M_JH,12*NT 20080620 17:12
!
real,allocatable :: XT(:)
 ! 插值计算用的与YQ对应的横坐标值；: 12*NT 20080620 17:12
real,allocatable :: YQ(:)
 ! 与XQ对应的纵坐标值；: 12*NT 20080620 17:12
real :: Ti,Qi ! 20080620 23:59 ! 表251，降水量摘录表中的数据
integer,allocatable :: EMDH(:,:)
 ! 实测数据对应的终止月、日、时、分；:,: 4,12*NT 20080622 20:45 镇远古镇
real,allocatable :: OBP(:,:)
 ! 实测雨量值；:,: M_PP,12*NT 20080619 23:00
real,allocatable :: OBTP(:,:)
 ! 插值计算用的与OBP对应的横坐标值；:,: M_PP,12*NT 20080623 0:10
real,allocatable :: OBPH(:,:) ! 中间变量；:,: M_PP,12*NT 20080619 23:00
!
integer :: N_ST ! 各类测站总数 ! 20080608 2:38
character(len=30),allocatable :: STNM(:) ! 全部节点(测站)名称 20080530 9:48
character(len=8),allocatable :: STCD(:) ! 测站编码
character(len=2),allocatable :: STTP(:) ! 站类；: 测站总数N_ST ! 20080603 2:41
! PP雨量站，BB蒸发站，PQ单元流域，QQ流量站，ZZ水位站，ZQ水文站，ZC断面站，ZN链接点（简单节点），ZC河段站，RR水库站，DD堰闸站
integer,allocatable :: I1STCD(:) ! 测站编号 20080603 19:04 ! 表101中的测站编号 ! 不用
integer,allocatable :: ISTCD(:) ! 测站编号 20080604 10:04 ! 表333中的测站编号
integer :: ID_STmax ! 测站最大编号 ! 20080608 1:58
integer,allocatable :: ISThash(:) ! 测站哈稀数；: 测站最大编号 ! 20080608 1:48
real,allocatable :: DRNA(:) ! 集雨面积；: N_ND
!
integer :: N_ND ! 节点图中的各类模型节点总数 ! 20080529 10:50
integer :: M_PP ! 节点图中的降雨站总数 ! 20080616 18:07
integer :: M_BB ! 节点图中的蒸发站总数
integer :: M_PQ ! 节点图中的单元流域总数 ! 20080626
integer :: M_QQ ! 节点图中的流量边界总数 ! 20080616 21:48
integer :: M_ZZ ! 节点图中的水位边界总数
integer :: M_ZQ ! 节点图中的水位流量关系边界总数
integer,allocatable :: NT_JH(:)
 ! 供插值的节点（边界）时间序列的总数；: 河网节点总数 ! 20080616 23:02
!real,allocatable :: QT_JH(:,:)
 ! 供插值节点（边界）的出流过程；:,: M_JH,3*NT ! 20080618 4:53 ! 用OBQ 20080620 12:16
!
integer :: iND,iWJ ! 总体节点序号,外节点序号 ! 20080616 9:31
!

integer,allocatable :: NDID(:) ! 节点ID号 20080530 10:43
integer :: ID_NDmax ! 节点最大ID号 ! 20080603 1:58
integer,allocatable :: INDhash(:) ! 节点哈稀数；: 节点最大ID号
integer,allocatable :: NDTP(:) ! 节点类型；: 各类模型节点总数N_ND ! 20080527 新定义
! 11雨量站，12蒸发站，21单元流域，22流量站，31水位站，32水文站，41断面站，42链接点（简单节点），51河段站，61水库站，62堰闸站
integer,allocatable :: LNDN(:) ! 相邻节点数
real,allocatable :: CHLEN(:) ! 河段长
!integer,allocatable :: HNDID(:) ! 首节点ID号，: N_ND ! 河网仍用ID_SJ(:)，: M_NH
!integer,allocatable :: ENDID(:) ! 末节点ID号 ! 仍用ID_MJ(:)
!
!integer :: N_JH ! 节点图中的河网节点总数 ! 20080603 1:32 ! 仍用M_JH
!integer :: N_NH ! 节点图中的河段节点总数 ! 20080603 0:37 ! 仍用M_NH
!
integer :: LNDNmax ! 最大相邻节点数 ! 20080530 11:18
integer,allocatable :: LNDID(:,:) ! 相邻节点节点ID号；:,: N_ND,LNDNmax
integer,allocatable :: LSID(:) ! 临时相邻节点节点ID号；: LNDNmax
character(len=33),allocatable :: C333N(:)
 ! 节点拓扑信息表等字段名字符串 ! 20080529 11:25 未用 0701
!   character(len=33),allocatable :: C121S(:)
 ! 节点拓扑信息表等标识符字符串 ! 不用
!
!integer,allocatable :: IWJhash(:)
 ! 外节点哈稀数；: (外)节点最大ID号 ! 20080530 17:43 在其它中
!
real,allocatable :: H_NR3(:) ! 汛限水位；: M_NR ! 表107 20080608 17:33
!
integer,allocatable :: CHID(:) ! 河段ID号；: M_NH ! 未用
integer,allocatable :: SCHN(:) ! 子河段数；: M_NH ! 仍用M_ZHD(:)
real,allocatable :: SCHDT(:) ! 子河段传播时间；: M_NH ! 仍用DT_ZHD(:)
real,allocatable :: SCHK(:) ! 子河段参数K
real,allocatable :: SCHX(:) ! 子河段参数x
!
!
real,allocatable :: TRTM1(:) ! 最小传播时间(估计)；: M_NH；20080627 2:12
real,allocatable :: TRTM2(:) ! 平均传播时间
real,allocatable :: TRTM3(:) ! 最大传播时间
real :: V_MN,V_AV,V_MX ! 最小/平均/最大流速(估计) 20080627 2:43
!
!real,allocatable :: Q_WJ(:,:)
 ! 外边界入流过程；:,: 外边界节点数M_WJ,总时段数  ! 20080618 1:16 已被定义
real,allocatable :: Q_XAJ(:,:)
 ! 单元流域外边界入流过程；:,: 单元流域节点数M_PQ,总时段数  ! 20080616 21:09
!
integer,allocatable :: ID_PP(:) ! 雨量节点ID号；: M_PP ! 20080620 2:23
integer,allocatable :: IPPhash(:) ! 雨量节点哈稀数；: 节点最大ID号
integer :: iPP ! 雨量节点序号 ! 兼蒸发节点序号 20080626 1:26
integer,allocatable :: NT_PP(:)
 ! 供插值的雨量节点时间序列的总数；: 雨量节点总数 ! 20080620 3:20 goto sleep
real,allocatable :: P_PP(:,:)
 ! 降雨量时间序列成果（等时距）；:,: M_PP,NT ! 20080622 23:59
real :: INTV ! 时段长 ! 20080624 14:13
!
integer,allocatable :: ID_BB(:) ! 蒸发节点ID号；: M_PP ! 20080620 2:23
integer,allocatable :: IBBhash(:) ! 蒸发节点哈稀数；: 节点最大ID号
!      integer :: iBB ! 蒸发节点序号
integer,allocatable :: NT_BB(:)
 ! 供插值的蒸发节点时间序列的总数；: 蒸发节点总数 ! 20080620 3:20 goto sleep
real,allocatable :: E_BB(:,:)
 ! 蒸发时间序列成果（等时距） ! 20080622 23:59
!
integer,allocatable :: ID_PQ(:) ! 单元流域节点ID号；: M_PQ ! 20080626 19:11
integer,allocatable :: IPQhash(:) ! 单元流域节点哈稀数；: 节点最大ID号
integer,allocatable :: M_PQLP(:) ! 单元流域节点的相邻雨量节点数；: M_PQ
integer :: M_PQLPmax ! 最多相邻雨量节点数 ! 20080626 22:07
integer,allocatable :: ID_PQLP(:,:) ! 相邻雨量节点ID号；:,: M_PQ,M_PQLPmax
integer :: iPQ ! 单元流域节点序号 ! 20080626 21:04
real,allocatable :: P_PQ(:,:)
 ! 单元流域平均降雨量时间序列成果（等时距）；:,: M_PQ,NT  ! 20080628 11:16
integer,allocatable :: M_PQLE(:) ! 单元流域节点的相邻蒸发节点数；: M_PQ
integer :: M_PQLEmax ! 最多相邻蒸发节点数 ! 20080628 12:00
integer,allocatable :: ID_PQLE(:,:)
 ! 相邻蒸发节点ID号；:,: M_PQ,M_PQLPmax
real,allocatable :: E_PQ(:,:)
 ! 单元流域平均蒸发量时间序列成果（等时距）；:,: M_PQ,NT  ! 20080628 11:50
!
integer,allocatable :: MP_PQ(:) ! 单元流域有资料的雨量节点数；: M_PQ
integer,allocatable :: ME_PQ(:) ! 单元流域有资料蒸发节点数；: M_PQ
real,allocatable :: PP_PQ(:)
 ! 全流域平均降雨量时间序列成果（等时距）；: NT  ! 20080628 13:52
real,allocatable :: EE_PQ(:)
 ! 全流域平均蒸发量时间序列成果（等时距）；: NT  ! 20080628 13:52
!
! 与新安江模型相关
real,allocatable :: X_PAR(:,:) ! 基本参数13个，初始值7个；表334；:,: M_PQ,13+7
real,allocatable :: XX_PAR(:)
 ! 1、流域平均值；: 13+7 !
 ! 2、临时存放某单元流域的参数 20080703 11:11
 ! 注：PP_PQ、EE_PQ、RR_PQ同样 20080703 11:27
integer,allocatable :: MPAR_PQ(:) ! 有参数资料的单元流域数；: M_PQ
real,allocatable :: UADT(:) ! : M_PQ ! 20080706 1:05
!  real :: UADT
 ! = DRNA/(DT*3.6),单位换算系数 (净雨mm转换为单元流域出流m^3/s) ! 20080630 20:17
! real,allocatable :: X_W(:,:)  ! 上中下层张力水初始含量 20080701 1:16
! real,allocatable :: XX_W(:)  ! 上中下层张力水初始含量 20080704 2:00
! real,allocatable :: X_FR(:)  ! 初始产流面积
! real,allocatable :: X_S(:)  ! 初始自由水含量
! real,allocatable :: QRG0(:)  ! 初始地下水流量
! real,allocatable :: QRSS0(:)  ! 初始壤中流流量
real :: QRGOT ! = WG/A/(0.365*0.24*3.6)=0.00852,基流自动率定采用
 !(WG=126.0，A=46894，系根据北江流域多年平均地下水资源量亿m^3计算单位基流m^3/s/km^2) ! 20080701 10:22
real,allocatable :: R_PQ(:,:)
 ! 单元流域净雨深时间序列成果；:,: M_PQ,NT  ! 20080703 11:47
real,allocatable :: RR_PQ(:)
 ! 暂时单元流域（全流域亦可）净雨深时间序列成果；: NT  ! 20080703 11:48
real,allocatable :: QQ_PQ(:) ! 暂时单元流域出流时间序列成果；: NT  ! 20080703 12:05
real,allocatable :: Q_PQ(:,:)
 ! 单元流域出流时间序列成果；:,: M_PQ,NT ! 20080703 12:22
! 与单位线相关
integer,allocatable :: YON(:) ! 20080702 18:28
! 表334现有单位线是否采用；0 不用或无,自动生成；1 启用  ! 20080702 0:47
real :: AREAmax ! 最大的单元流域面积 ! 20080702 2:06
integer :: UNMmax ! 最大的单位线时段数
integer,allocatable :: UNM(:) ! 单位线时段数；: UNMmax ! 20080702 2:44
real,allocatable :: UNH(:,:) ! 单位线值；:,: M_PQ,UNMmax
real,allocatable :: UNLS(:) ! 单位线值；: UNMmax
integer,allocatable :: n_NASH(:) ! 纳须单位线参数n；: M_PQ
real,allocatable :: k_NASH(:) ! 纳须单位线参数k；: M_PQ
real :: DLT ! 单位线时段长 ! 20080702 3:52
real,allocatable :: RU_PQ(:,:)
  ! 单位线净雨,参与计算某一出流量的M个时段净雨；:,: M_PQ,UNMmax 20080705 23:51
real,allocatable :: RRU_PQ(:) ! : UNMmax
!   real,allocatable :: RU(:) ! 单位线净雨,参与计算某一出流量的M个时段净雨；: UNMmax 20080702 13:11
! 此名用子程序所用的RU 20080703 13:11
!
character(len=30),allocatable :: NDNM(:) ! 节点(部分,可变)名称 20080703 15:46
integer,allocatable :: NDND(:) ! 节点(部分,可变)ID号 20080703 16:29
character(len=30),allocatable :: NDCD(:) ! 节点(部分,可变)编码 20080710 12:24
real,allocatable :: NDRA(:) ! 节点(部分,可变)集雨面积
!
end module
!

 

6月29日，周日

  安装ArcGIS9.0和MikeBasin，试用，导入若干工程。

6月30日，周一

  到设计院，关于资料，上网，MikeBasin仍不可用。

  中午，楼下酒店，遇（？）副院、六盘水来客，小饮，与赵别。

  将表121、140、142等改名为表333等；继续新安江模型、马斯京根模型参数率定程序。

7月1日，周二

  在蟠桃八B闭关造程序，晚餐果然香，记一菜一汤。

7月2日，周三

  貌似感冒了。

  上午起来先收拾行李，然后编程，午餐后继续，傍晚6点后离开蟠桃大厦，将钥匙交赵先进，打的到机场，进咖啡厅，一瓶芒果汁，一个面包，乘机前输入一段纳须单位线参数计算的程序，测试通过后20点30分登机，23点多在总统大酒店下大巴，打的到家。

 

 舞阳河诣

 

6月20日 周日

  同贵州省院赵先进、杨全明、罗志远等到黔东南州凯里。 

  午餐后与石副局、赵、杨别，前往舞阳河。

  下午，到两叉河水库，看舞阳湖。

  晚餐于湖畔船上，喝两壶米酒、一锅舞阳鱼。

  夜宿旧州镇。

 

6月21日 周一

  上午，到观音岩水电站。

  中午，在坝上景区口午餐，一锅舞阳鱼、一大瓶米酒。

  午后，到漂城施秉。

  下午，到镇远古镇。

  傍晚一游。

  宿名城。

 

6月22日 周二

  上午，8点过后到镇远县水利局；

  9点时分到红旗水电站；

  11点半乘舟看舞阳河风光，来回1小时。

  中午，清水江船上鱼馆，一锅清水鱼。

  下午，回到凯里，到州水电设计院。

  晚上，返回贵阳蟠桃宫。

 

 

 

 

6月19日 周四

  出差到贵阳。

  下午到设计院。

  编程中。

 

 

6月12日 周四

  上午，同小查、小刘乘大巴（45.0一票），接近11点发车，中午1点半到达广宁车站；开一个标间。

  在广宁三防办午餐（盒饭）。

  下午，在防办，了解、介绍（动态监管系统）有关情况，收集意见和资料；黄小生副主任陪同查刘外出安装设备。

  晚餐，同陈家语副主任、罗祥文、冯航花等，饮木格米酒。

  晚，买拖鞋、毛巾等，在三防办的一个值班室睡。

 

6月13日 周五

  早餐时遇黄主任。

  上班后，罗工发现春水水位陡然“大涨”，电话告小张；小型水库动态监管系统还存在一些问题，给张发了一部分。

  午餐，打一盒饭，炒墨鱼仔。

  下午，陈副局来三防；罗工发现春水、花山的雨量有一时“很大”（200、140），反馈给张。

  近日连降雨，下班后陈主任说，肇庆启动了四级预案，晚上他值班。

 

 

2008年6月4日 周三

 

  编程中，8+8 or 8*8 or 64 h ，n多时间，9*9归一，还要继续。

  发一盒粽子，10只，1400g，晚餐在办公室吃2只。1:28打卡，走回家。

 

  再过64天就是奥运会开幕日。

  中新网6月4日电 今日下午，国务院新闻办公室根据国务院抗震救灾总指挥部授权，发布四川汶川地震抗震救灾进展情况：据民政部报告，截至6月4日12时，四川汶川地震已造成69122人遇难，373606人受伤，17991人失踪。

   

 

5月21日 周三

 

  下午，党员的特别党费捐款。拿了100，告知少。原来有要求，1000以上才正式登记，以下则记入令类，再拿出100，合计200。同室的高只有100，向登记的沈借了100，也是200。

  这两天在家里也说到捐款的事，还问过夫人如果捐1000怎样，被“责”。在央视募捐晚会过程中，还提议过是否也打个现场电话，也没通过；倒是小孩还算大方，问是否愿意拿出500捐，点点头同意了。不过，前天学校组织捐款时，只是来要了40，借给同学20，他自己捐了21。昨天晚上，让孩子从存钱盒里交还了20。

  手头拿不出什么钱。想起已经自费购买笔记本的支出一直分文未报，夫人也知道钱是自己出的，但以为大约只是6000多（因为从卡里取了6000），实际上自己“小金库”的全部，都拿出来了，还把才到手的1000也贴了进去。呜呼，够干净了。最近夫人还偶尔会追问是否报了。她是疑心偶有私房钱的，也揪心偶太不懂赚钱却不珍惜钱的。有什么办法呢，为房子，至今欠了别人五、六万。自己从来就没有指望天上似乎早该“掉下”的那笔“赞助”。

  应该1000，只出200，于心不甘。下班前打申请购买笔记本的报告。内容如下。

 

       申购报告

 

  **公司领导：

 

    我公司为水利信息化专业的高新技术产业公司，

    计算机是最基本、最重要的工具。

    为了更快、更好、更安全地开展本职工作，

    我申请购买一台笔记本电脑。

 

    基本配置为

    硬盘：200G

    内存：2048M

    处理器：酷睿双核T9300(2.5G)

    屏幕尺寸：13.3寸

 

    注：

    本人原有一部台式机（硬盘40G，内存256M），已交公司；

    现有一台华硕笔记本（硬盘40G，内存512M），难以应付工作要求。

 

    请酌情批复。

 

 

    申请人：

    ***

 

    申请时间：

    2008年5月21日17:31:57

 

  将报告交赵，陈总告知当买台式机。其实，够本本的事实早已交待。

  还好，这个博客夫人并不知道，知道的人少之又少。现在还可以记一些琐事于此。

 

 

5月20日 周二

 

  下午，第二次捐款，登记收款的小王转了一圈，收了几位的，好像无意找本人，掉头离开的时候，发声叫住，和日前一样录了100。

 

 

5月12日 周一

  中午，2点25分后，第一次较详细看缅甸灾情报道，暗叹，恐怖于自然；近3点，张忽然告知四川汶川发生7.6级地震（后看报道，是7.8级），并说湖北黄石也有5、6级地震；忐忑，打电话，姐接，说南昌没感觉到。

  下午，简单填写广宁项目周报6；下班时初步完成广宁洪水预报调度决策支持系统设计报告；发现Q70笔记本上的XP系统不能运行。

  晚上，从sohu网站看到，四川汶川大地震已确认8533人遇难。 

  

5月13日 周二
  下午，参加天秀中学家长会。

  晚上，四川汶川大地震已确认12012人遇难。

5月14日 周三

  上午，捐款。
  下午，和赵、范商讨广宁项目。

  重装系统。

  新华网快讯：据有关部门统计，截至5月14日14时，汶川地震死亡人数达14866人，其中四川达14463人。

 

5月15日 周四

  早上7:10诣珠海。晚餐后返。

  新华网快讯：国务院抗震救灾指挥部今天确认，汶川地震已造成19509人死亡，遇难人数估计在5万人以上。

 

5月16日 周五

  按预定计划，公司全体员工8:10出发，到增城白水寨，登4099级。

  晚，宿滴翠山庄。

 

5月17日 周六

  到欢乐佤谷。

  傍晚返。

 

5月18日 周日

  晚,看央视《爱的奉献》晚会。

 

5月19日 周一

 

5月1日 周四