Commit 09a2c027 authored by Friedrich Boeing's avatar Friedrich Boeing
Browse files

corrected day allocation in netcdf file. added option to define projection_name in namelist

parent 36f7f39c
......@@ -35,8 +35,8 @@ contains
use VarFit, only: vType, nParam, dh, hMax, beta
use runControl, only: interMth, fnameDEM, DataPathOut, DataPathIn, fNameSta, correctNeg, &
distZero, flagVario, fNameVario, flagEDK
use NetCDFVar, only: FileOut, author_name, variable_name, variable_unit, variable_long_name, &
ncIn_variable_name, ncIn_yCoord_name, ncIn_xCoord_name
use NetCDFVar, only: FileOut, author_name, projection_name, variable_name, variable_unit, &
variable_long_name, ncIn_variable_name, ncIn_yCoord_name, ncIn_xCoord_name
use mo_message, only: message
use mo_string_utils, only: divide_string
......@@ -53,7 +53,7 @@ contains
!
namelist/mainVars/noDataValue, DataPathIn, fNameDEM, &
DataPathOut, FileOut, fNameSTA, cellFactor, DataConvertFactor, InterMth, correctNeg, &
distZero, author_name, variable_name, variable_unit, variable_long_name, &
distZero, author_name, projection_name, variable_name, variable_unit, variable_long_name, &
yStart, mStart, dStart, yEnd, mEnd, dEnd, maxDist, flagVario, vType, nParam, &
fNameVario, dh, hMax, ncIn_variable_name, ncIn_yCoord_name, ncIn_xCoord_name
!
......
......@@ -14,7 +14,7 @@ CONTAINS
use mo_netcdf, only: NcDataset, NcDimension, NcVariable
use mo_string_utils, only: num2str
use mainVar, only: gridMeteo, yStart, mStart, dStart
use NetCDFVar, only: fileOut, author_name, variable_name, variable_unit, variable_long_name
use NetCDFVar, only: fileOut, author_name, variable_name, variable_unit, variable_long_name, projection_name
implicit none
......@@ -32,7 +32,7 @@ CONTAINS
! create dimensions
dim_x = nc%setDimension("x", gridMeteo%ncols)
dim_y = nc%setDimension("y", gridMeteo%nrows)
dim_time = nc%setDimension("time", -1)
dim_time = nc%setDimension("time", 0)
! create variables
var_time = nc%setVariable('time', "i32", (/dim_time/))
......@@ -68,7 +68,7 @@ CONTAINS
! add global attributes
call nc%setAttribute("Author", trim(author_name))
call nc%setAttribute("Projection", "EPSG:XXXX")
call nc%setAttribute("Projection", trim(projection_name))
end subroutine open_netcdf
......
......@@ -182,6 +182,7 @@ module NetCDFVar
character(256) :: variable_unit ! unit of netcdf variable
character(256) :: variable_long_name ! long name of netcdf variable
character(256) :: author_name ! author name of netcdf file
character(256) :: projection_name ! name of EPSG (EPSG:XXXX)
!
! netcdf input specifications
character(256) :: ncIn_variable_name
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment