190 likes | 295 Views
Pcptye initial vaule. print*,'initial value as -99999' do iprecip_type =0,5 cldpcp_type_3d=-99999 itype = cldpcp_type_3d itype = itype - ( itype /16)*16 itype = itype + iprecip_type * 16 cldpcp_type_3d = itype /16
E N D
print*,'initial value as -99999' do iprecip_type=0,5 cldpcp_type_3d=-99999 itype = cldpcp_type_3d itype = itype - (itype/16)*16 itype = itype + iprecip_type * 16 cldpcp_type_3d = itype/16 print*,iprecip_type,cldpcp_type_3d enddo The soure code : cldpcp_type_3d=-99999 itype = cldpcp_type_3d(i,j,k) itype = itype - (itype/16)*16 itype = itype + iprecip_type * 16 cldpcp_type_3d(i,j,k) = itype iarg = cldpcp_type_3d(i,j,k) pcptype = iarg/16 initial value as -99999 0 0 1 0 2 1 3 2 4 3 5 4 initial value as 0 0 0 1 1 2 2 3 3 4 4 5 5 print*,'initial value as 0' do iprecip_type=0,5 cldpcp_type_3d=0 itype = cldpcp_type_3d itype = itype - (itype/16)*16 itype = itype + iprecip_type * 16 cldpcp_type_3d = itype/16 print*,iprecip_type,cldpcp_type_3d enddo
Wet buld temperature GSI orgin version GSI modified Qr:Green Qs:blue Qs:purple
13km 3km
12 hour observed and forecasted accumulated rainfall from 2009061600 NoRef ob Control VarCld NoTrad CtrCv IAUDFI WRFDFI VarDCld
6 hour observed and 0~6 hour forecasted accumulated rainfall from 2009061600 NoRef ob Control VarCld NoTrad CtrCv IAUDFI WRFDFI VarDCld
6 hour observed and 6~12 hour forecasted accumulated rainfall from 2009061600 NoRef ob Control VarCld NoTrad CtrCv IAUDFI WRFDFI VarDCld
12 hour observed and forecasted accumulated rainfall from 2009061606 NoRef ob Control VarCld NoTrad CtrCv IAUDFI WRFDFI VarDCld
6 hour observed and 0~6 hour forecasted accumulated rainfall from 2009061606 NoRef ob Control VarCld NoTrad CtrCv IAUDFI WRFDFI VarDCld
6 hour observed and 6~12 hour forecasted accumulated rainfall from 2009061606 NoRef ob Control VarCld NoTrad CtrCv IAUDFI WRFDFI VarDCld