Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Feel free to join the next
Helmholtz Hacky Hour #26
on Wednesday, April 21, 2021 from 2PM to 3PM!
Open sidebar
CHS
progs
edk_nc
Commits
576d2b99
Commit
576d2b99
authored
Mar 10, 2020
by
Akash Koppa
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
added invert_y to netcdf DEM
parent
af44346e
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
47 additions
and
11 deletions
+47
-11
src/EDK_driver.f90
src/EDK_driver.f90
+15
-6
src/mo_write.f90
src/mo_write.f90
+32
-5
No files found.
src/EDK_driver.f90
View file @
576d2b99
...
...
@@ -199,12 +199,21 @@ program ED_Kriging
allocate
(
tmp_time
(
jEndTmp
-
jStartTmp
+
1
))
k
=
0
do
i
=
1
,
gridMeteo
%
ncols
do
j
=
1
,
gridMeteo
%
nrows
k
=
k
+
1
tmp_array
(
j
,
i
,:)
=
cell
(
k
)
%
z
end
do
end
do
if
(
invert_y
)
then
do
i
=
1
,
gridMeteo
%
ncols
do
j
=
1
,
gridMeteo
%
nrows
k
=
k
+
1
tmp_array
(
j
,
gridMeteo
%
ncols
-
i
+
1
,:)
=
cell
(
k
)
%
z
end
do
end
do
else
do
i
=
1
,
gridMeteo
%
ncols
do
j
=
1
,
gridMeteo
%
nrows
k
=
k
+
1
tmp_array
(
j
,
i
,:)
=
cell
(
k
)
%
z
end
do
end
do
end
if
do
i
=
1
,
jEndTmp
-
jStartTmp
+
1
tmp_time
(
i
)
=
t
...
...
src/mo_write.f90
View file @
576d2b99
...
...
@@ -27,6 +27,7 @@ CONTAINS
type
(
NcVariable
)
::
var_east
,
var_north
,
var_lat
,
var_lon
integer
(
i4
)
::
i
,
f
real
(
dp
),
allocatable
::
dummy
(:,
:)
real
(
dp
),
allocatable
::
dummy_lat
(:)
! 1.1 create a file
nc
=
NcDataset
(
trim
(
fileOut
),
"w"
)
...
...
@@ -51,14 +52,39 @@ CONTAINS
call
var_time
%
setAttribute
(
"calendar"
,
variable_calendar_type
)
if
(
DEMNcFlag
==
1
)
then
var_north
=
nc
%
setVariable
(
'northing'
,
'f32'
,
(/
dim_x
,
dim_y
/))
call
var_north
%
setData
(
gridMeteo
%
northing
)
if
(
invert_y
)
then
allocate
(
dummy
(
gridMeteo
%
nrows
,
gridMeteo
%
ncols
))
f
=
1
do
i
=
1
,
gridMeteo
%
ncols
dummy
(:,
gridMeteo
%
ncols
-
i
+
1
)
=
gridMeteo
%
northing
(:,
f
)
f
=
f
+
1
end
do
var_north
=
nc
%
setVariable
(
'northing'
,
'f32'
,
(/
dim_x
,
dim_y
/))
call
var_north
%
setData
(
dummy
)
else
var_north
=
nc
%
setVariable
(
'northing'
,
'f32'
,
(/
dim_x
,
dim_y
/))
call
var_north
%
setData
(
gridMeteo
%
northing
)
end
if
var_east
=
nc
%
setVariable
(
'easting'
,
'f32'
,
(/
dim_x
,
dim_y
/))
call
var_east
%
setData
(
gridMeteo
%
easting
)
var_lat
=
nc
%
setVariable
(
ncOut_dem_Latitude
,
'f32'
,
(/
dim_y
/))
call
var_lat
%
setData
(
gridMeteo
%
latitude
)
if
(
invert_y
)
then
allocate
(
dummy_lat
(
gridMeteo
%
ncols
))
f
=
1
do
i
=
1
,
gridMeteo
%
ncols
dummy_lat
(
gridMeteo
%
ncols
-
i
+
1
)
=
gridMeteo
%
latitude
(
f
)
f
=
f
+
1
end
do
var_lat
=
nc
%
setVariable
(
ncOut_dem_Latitude
,
'f32'
,
(/
dim_y
/))
call
var_lat
%
setData
(
dummy_lat
)
else
var_lat
=
nc
%
setVariable
(
ncOut_dem_Latitude
,
'f32'
,
(/
dim_y
/))
call
var_lat
%
setData
(
gridMeteo
%
latitude
)
end
if
var_lon
=
nc
%
setVariable
(
ncOut_dem_Longitude
,
'f32'
,
(/
dim_x
/))
call
var_lon
%
setData
(
gridMeteo
%
longitude
)
...
...
@@ -88,6 +114,7 @@ CONTAINS
call
var_east
%
setAttribute
(
"units"
,
"m"
)
call
var_east
%
setData
(
dummy
)
deallocate
(
dummy
)
deallocate
(
dummy_lat
)
end
if
!var_data = nc%setVariable(variable_name, "f32", (/dim_x, dim_y, dim_time/))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment