15
LAMPIRAN Lampiran 1 Source code pembacaan data netCDF pada Ms. Visual Basic 6 ‘Pembacaan file netCDF DoEvents dimName1 = "longitude" dimName2 = "latitude" varName = "hrf" 'Open File status = nc_open(fileName, NC_NOWRITE, ncid) If status <> 0 Then 'kalau error file tidak ada MsgBox fileName, vbExclamation, "No File" Exit Sub Err.Raise Number:=vbObjectError + 1, Description:="Error while opening Netcdf file " & fileName FileKosong = FileKosong + 1 End If 'Read dimension status = nc_inq_dimid(ncid, dimName1, dimId1) If status <> 0 Then Err.Raise Number:=vbObjectError + 2, Description:="Error : the specified dimension " & dimName & " is not in the Netcdf file" End If status = nc_inq_dimid(ncid, dimName2, dimId2) If status <> 0 Then Err.Raise Number:=vbObjectError + 2, Description:="Error : the specified dimension " & dimName & " is not in the Netcdf file" End If status = nc_inq_dimlen(ncid, dimId1, dimLen1) If status <> 0 Then Err.Raise Number:=vbObjectError + 3, Description:="Error while rereiving dimension length for dimId" & dimId End If status = nc_inq_dimlen(ncid, dimId2, dimLen2) If status <> 0 Then Err.Raise Number:=vbObjectError + 3, Description:="Error while rereiving dimension length for dimId" & dimId End If 'Read variable ReDim myVar(1 To dimLen1, 1 To dimLen2) status = nc_inq_varid(ncid, varName, varid) If status <> 0 Then
16
Err.Raise Number:=vbObjectError + 4, Description:="Error : the specified variable " & varName & " is not in the Netcdf file" End If status = nc_get_var_double(ncid, varid, myVar(1, 1)) If status <> 0 Then Err.Raise Number:=vbObjectError + 5, Description:="Error while reading variable " & varName & " in the Netcdf file" End If 'Closing File status = nc_close(ncid) If status <> 0 Then Err.Raise Number:=vbObjectError + 6, Description:="Error while closing Netcdf file" End If
17
Lampiran 2 Petunjuk penggunaan (User Manual) perangkat lunak WeGet 1.0
Petunjuk penggunaan (User Manual) perangkat lunak WeGet 1.0
Perangkat lunak WeGet 1.0 memiliki 4 fungsi utama, yaitu: 1. Membangkitkan data cuaca spasial untuk daerah Indonesia 2. Membangkitkan data cuaca titik time series untuk daerah Indonesia 3. Membaca data TRMM 3B42 harian menjadi data curah hujan harian (mm/hari) global (50o LU – 50o LS) 4. Membaca data TRMM 3B42 harian menjadi data curah hujan titik time series (mm/hari) global (50o LU – 50o LS)
I. Membangkitkan data cuaca spasial untuk daerah Indonesia
1. 2. 3. 4. 5.
Klik tab Spatial Data Masukan tanggal data yang ingin dimunculkan Masukan rentang lintang dan bujur (dalam degree decimal) dari daerah yang diinginkan Centang Export to txt apabila menginginkan data XYZ dalam bentuk file txt (optional) Klik tombol Run
18
6. 7.
Setelah proses selesai, akan muncul tujuh data cuaca spasial pada setiap tabs Gambar hasil running bisa didapatkan dengan cara kilk Menu File Directory of Image File
II. Membangkitkan data cuaca titik time series untuk daerah Indonesia
1. 2. 3. 4.
Klik tab Point Data Masukan rentang tahun data yang ingin dimunculkan Masukan lintang dan bujur (dalam degree decimal) dari daerah yang diinginkan Klik tombol Run
19
5. 6.
Setelah proses selesai, akan muncul tujuh data cuaca titik time series pada Ms. Excel File txt hasil running bisa didapatkan dengan cara kilk Menu File Directory of Text File
III.Membaca data TRMM 3B42 harian menjadia data curah hujan harian (mm/hari) global (50o LU – 50o LS)
1. 2. 3. 4. 5.
Klik tab TRMM 3B42 Viewer Klik tab Spatial Masukan tanggal data yang ingin dimunculkan Centang data txt apabila menginginkan data XYZ dalam bentuk file txt (optional) Klik tombol Run
20
6. 7.
Setelah proses selesai, akan muncul data curah hujan spasial Gambar hasil running bisa didapatkan dengan cara kilk Menu File Directory of Image File
IV. Membaca data TRMM 3B42 harian menjadia data curah hujan titik time series (mm/hari) global (50o LU – 50o LS)
1. 2. 3. 4.
Klik tab TRMM Viewer Klik tab Point Masukan rentang tahun data yang ingin dimunculkan Klik tombol Run
21
5. 6.
Setelah proses selesai, akan muncul tujuh data cuaca titik time series pada Ms. Excel File txt hasil running bisa didapatkan dengan cara kilk Menu File Directory of Text File
V. Menambah data netCDF TRMM 3B42 yang baru
1. 2. 3. 4.
Klik Menu File Klik Directory of TRMM 3B42 Data Buat folder baru dengan nama tahun yang dinginkan Masukan data netCDF TRMM 3B42 yang baru dengan 3B42_daily.Year.Month.day.6.nc (contoh: 3B42_daily.1998.01.13.6.nc)
nama
file
