理水詣
个人信息
理水诣
日历
最新文章
最新评论
最新留言
链接 リンク link
文章分类
音乐播放器
计数器
          
rss
 
推荐订阅:订阅到RSS阅读
内容
  •  
    2008-07-20 02:02:36
    标签:杂谈
    7月9日,周三
      基于新安江、马斯京根、水库调度的多模型耦合计算程序通过。
     
    7月10日,周四
      调整节点输出成果。
     
      一个多月时间的编程告一段落
      其间,大部分辗转于旅途
      诣广宁,上贵阳,下舞阳,奔海陆
      在广宁三防,在贵阳蟠桃宫,在镇远古镇
      在舞阳河畔,在清水江畔,在红海湾畔
      甚至在机场,在车站
      也在办公室,也在家
      在时空变换人来人往的深处
      宁静,从容,持之以往
      哑然,欣然
      似醉,似梦
      无人,无我
      不过如此,唯心自知
     
      回报?Q70,快乐,新的dll
      仿佛翻越了十万大山
     
    7月16日,周三
      林小要dog
      到6楼,发现是自己借了那dog,不见还
      找dog,找到燕小,竟有了6月baby
    7月17日,周四
      找dog,找到LJ,掉线
      DJ说何不问CB
      电CB,dog在他家里
      够晕
     
     
     
  •  
    2008-07-20 01:17:18
    标签:杂谈
     

    ! 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
    !

     
  •  
    2008-07-20 00:31:16
    标签:杂谈
    6月29日,周日
      安装ArcGIS9.0和MikeBasin,试用,导入若干工程。
    6月30日,周一
      到设计院,关于资料,上网,MikeBasin仍不可用。
      中午,楼下酒店,遇(?)副院、六盘水来客,小饮,与赵别。
      将表121、140、142等改名为表333等;继续新安江模型、马斯京根模型参数率定程序。
    7月1日,周二
      在蟠桃八B闭关造程序,晚餐果然香,记一菜一汤。
    7月2日,周三
      貌似感冒了。
      上午起来先收拾行李,然后编程,午餐后继续,傍晚6点后离开蟠桃大厦,将钥匙交赵先进,打的到机场,进咖啡厅,一瓶芒果汁,一个面包,乘机前输入一段纳须单位线参数计算的程序,测试通过后20点30分登机,23点多在总统大酒店下大巴,打的到家。
     
  •  
    2008-07-17 01:43:42
    标签:杂谈
     舞阳河诣
     
    6月20日 周日
      同贵州省院赵先进、杨全明、罗志远等到黔东南州凯里。 
      午餐后与石副局、赵、杨别,前往舞阳河。
      下午,到两叉河水库,看舞阳湖。
      晚餐于湖畔船上,喝两壶米酒、一锅舞阳鱼。
      夜宿旧州镇。
     
    6月21日 周一
      上午,到观音岩水电站。
      中午,在坝上景区口午餐,一锅舞阳鱼、一大瓶米酒。
      午后,到漂城施秉。
      下午,到镇远古镇。
      傍晚一游。
      宿名城。
     
    6月22日 周二
      上午,8点过后到镇远县水利局;
      9点时分到红旗水电站;
      11点半乘舟看舞阳河风光,来回1小时。
      中午,清水江船上鱼馆,一锅清水鱼。
      下午,回到凯里,到州水电设计院。
      晚上,返回贵阳蟠桃宫。
     
     
     
     
  •  
    2008-06-20 21:24:07
    标签:杂谈
    6月19日 周四
      出差到贵阳。
      下午到设计院。
      编程中。
  •  
    2008-06-13 18:05:41
    标签:杂谈
     
     
    6月12日 周四
      上午,同小查、小刘乘大巴(45.0一票),接近11点发车,中午1点半到达广宁车站;开一个标间。
      在广宁三防办午餐(盒饭)。
      下午,在防办,了解、介绍(动态监管系统)有关情况,收集意见和资料;黄小生副主任陪同查刘外出安装设备。
      晚餐,同陈家语副主任、罗祥文、冯航花等,饮木格米酒。
      晚,买拖鞋、毛巾等,在三防办的一个值班室睡。
     
    6月13日 周五
      早餐时遇黄主任。
      上班后,罗工发现春水水位陡然“大涨”,电话告小张;小型水库动态监管系统还存在一些问题,给张发了一部分。
      午餐,打一盒饭,炒墨鱼仔。
      下午,陈副局来三防;罗工发现春水、花山的雨量有一时“很大”(200、140),反馈给张。
      近日连降雨,下班后陈主任说,肇庆启动了四级预案,晚上他值班。
     
     
  •  
    2008-06-05 08:44:38
    标签:杂谈
    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人失踪。
       
  •  
    2008-05-21 18:20:49
    标签:杂谈
     
    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月19日 周一
     
      下午2:48,公司员工在电梯口默哀三分钟。
     
  •  
    2008-05-13 01:30:58
    标签:杂谈
    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日 周一
     
  •  
    2008-05-13 00:03:03
    标签:杂谈
     
    5月1日 周四
      同岳母乘T172(242.0,249.0)19:34离东站。
     
    5月2日 周五
      7点半到hero城(晚点半小时,下午得知,弟因8点去接朋友的新娘,等不及,已去),转219路到劳改局站下,到帅家;进新惠隆超市;9点半到家。
      下午,弟与弟媳接姐与然然到家。
     
      PS: 强热带风暴“纳尔吉斯”
    ·登陆时间:5月2日早晨缅甸伊洛瓦底省的海基岛附近
    ·最高时速:登陆时最大风力超过190公里,最高时速240公里
    ·重灾区:仰光区、伊洛瓦底区、勃固区、孟邦和克伦邦
    ·死亡人数:据缅甸国家电台12日报道,遇难的人数已升至31938人。 
     
    5月3日 周六
      中午,家人于某酒店聚,共12人。
      下午,同姐、弟、然、篱,到赢上,扫墓。
     

    Snap1.jpg

     
    5月4日 周日
      上午,岳母来;到银行;至菜市场,购煌上煌酱鸭。
      中午,1:45离家,弟送至火车站;乘L49次(74.0)14:39发车。
     
    5月5日 周一
      5点到东站,下雨,打的到家(12.0)。
     
    5月7日 周三
      奥运火炬传递在广州。未去现场。晚7点和熊、王一起出办公室,一路上,从体育中心散去的行人络绎不绝。从早到晚,一日盛况倾城,据说有150万人夹道相迎。
     


     5月9日 周五
       在燕岭大厦17楼参加江门市水资源综合规划评审会。
     
    Snap2.jpg
    Snap2.jpg
    Snap2.jpg
    Snap2.jpg
    Snap2.jpg