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
9fcedbf7
Commit
9fcedbf7
authored
Oct 23, 2020
by
Sebastian Müller
🎸
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
clean: call clean routine of the new edk_dist class in the end
parent
ec78d063
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
8 deletions
+3
-8
src/clean.f90
src/clean.f90
+3
-8
No files found.
src/clean.f90
View file @
9fcedbf7
...
...
@@ -16,24 +16,19 @@ subroutine clean
!
! DEM will be reused...
!
! Stations
do
i
=
1
,
nSta
if
(
allocated
(
MetSta
(
i
)
%
z
)
)
deallocate
(
MetSta
(
i
)
%
z
)
end
do
if
(
allocated
(
MetSta
)
)
deallocate
(
MetSta
)
do
i
=
1
,
nSta
-1
if
(
allocated
(
dS
(
i
)
%
S
)
)
deallocate
(
dS
(
i
)
%
S
)
end
do
if
(
allocated
(
dS
)
)
deallocate
(
dS
)
do
i
=
1
,
nCell
if
(
allocated
(
cell
(
i
)
%
listNS
)
)
deallocate
(
cell
(
i
)
%
listNS
)
end
do
if
(
allocated
(
cell
))
deallocate
(
cell
)
if
(
allocated
(
dCS
)
)
deallocate
(
dCS
)
if
(
allocated
(
dz2S
))
deallocate
(
dz2S
)
call
edk_dist
%
clean
end
subroutine
clean
...
...
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