Skip to content
GitLab
Explore
Sign in
Primary navigation
Search or go to…
Project
Flexpart
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Deploy
Releases
Package registry
Model registry
Operate
Terraform modules
Monitor
Service Desk
Analyze
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
GitLab community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Benjamin Püschel
Flexpart
Commits
7e6dc50d
Commit
7e6dc50d
authored
Sep 2, 2016
by
Don Morton
Browse files
Options
Downloads
Patches
Plain Diff
Removed a fair amount of annoying print statements.
parent
29feaef9
No related branches found
No related tags found
No related merge requests found
Changes
3
Show whitespace changes
Inline
Side-by-side
Showing
3 changed files
flexpart_code/class_vtable_mod.F90
+2
-2
2 additions, 2 deletions
flexpart_code/class_vtable_mod.F90
flexpart_code/gridcheck.F90
+5
-5
5 additions, 5 deletions
flexpart_code/gridcheck.F90
flexpart_code/readwind.F90
+5
-5
5 additions, 5 deletions
flexpart_code/readwind.F90
with
12 additions
and
12 deletions
flexpart_code/class_vtable_mod.F90
+
2
−
2
View file @
7e6dc50d
...
...
@@ -187,9 +187,9 @@ contains
! Allocate array for storing the vtable records, and store
! num_entries
print
*
,
'Ready to allocate the_vtable_data'
!
print *, 'Ready to allocate the_vtable_data'
allocate
(
the_vtable_data
%
the_entries
(
num_vrecs
))
print
*
,
'Allocated the_vtable_data'
!
print *, 'Allocated the_vtable_data'
the_vtable_data
%
num_entries
=
num_vrecs
! Read, parse and store the vtable records
...
...
This diff is collapsed.
Click to expand it.
flexpart_code/gridcheck.F90
+
5
−
5
View file @
7e6dc50d
...
...
@@ -154,11 +154,11 @@ subroutine gridcheck_ecmwf
!!!!!!!!!!!!!!!!!!! VTABLE code
!!!!!!! Vtable choice
gribfile_name
=
path
(
3
)(
1
:
length
(
3
))//
trim
(
wfname
(
ifn
))
print
*
,
'gribfile_name: '
,
gribfile_name
!
print *, 'gribfile_name: ', gribfile_name
gribfile_type
=
vtable_detect_gribfile_type
(
gribfile_name
)
print
*
,
'gribfile_type: '
,
gribfile_type
!
print *, 'gribfile_type: ', gribfile_type
if
(
gribfile_type
.eq.
VTABLE_GRIBFILE_TYPE_ECMWF_GRIB1
)
then
vtable_path
=
VTABLE_ECMWF_GRIB1_PATH
...
...
@@ -173,10 +173,10 @@ subroutine gridcheck_ecmwf
! Load the Vtable into 'my_vtable'
print
*
,
'Loading Vtable: '
,
vtable_path
!
print *, 'Loading Vtable: ', vtable_path
call
vtable_load_by_name
(
vtable_path
,
my_vtable
)
print
*
,
'Vtable Initialized: '
,
my_vtable
%
initialized
print
*
,
'Vtable num_entries: '
,
my_vtable
%
num_entries
!
print *, 'Vtable Initialized: ', my_vtable%initialized
!
print *, 'Vtable num_entries: ', my_vtable%num_entries
!!!!!!!!!!!!!!!!!!! VTABLE code
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
...
...
This diff is collapsed.
Click to expand it.
flexpart_code/readwind.F90
+
5
−
5
View file @
7e6dc50d
...
...
@@ -223,11 +223,11 @@ subroutine readwind_ecmwf(indj,n,uuh,vvh,wwh)
!!!!!!!!!!!!!!!!!!! VTABLE code
!!!!!!! Vtable choice
gribfile_name
=
path
(
3
)(
1
:
length
(
3
))//
trim
(
wfname
(
indj
))
print
*
,
'gribfile_name: '
,
gribfile_name
!
print *, 'gribfile_name: ', gribfile_name
gribfile_type
=
vtable_detect_gribfile_type
(
gribfile_name
)
print
*
,
'gribfile_type: '
,
gribfile_type
!
print *, 'gribfile_type: ', gribfile_type
if
(
gribfile_type
.eq.
VTABLE_GRIBFILE_TYPE_ECMWF_GRIB1
)
then
vtable_path
=
VTABLE_ECMWF_GRIB1_PATH
...
...
@@ -242,10 +242,10 @@ subroutine readwind_ecmwf(indj,n,uuh,vvh,wwh)
! Load the Vtable into 'my_vtable'
print
*
,
'Loading Vtable: '
,
vtable_path
!
print *, 'Loading Vtable: ', vtable_path
call
vtable_load_by_name
(
vtable_path
,
my_vtable
)
print
*
,
'Vtable Initialized: '
,
my_vtable
%
initialized
print
*
,
'Vtable num_entries: '
,
my_vtable
%
num_entries
!
print *, 'Vtable Initialized: ', my_vtable%initialized
!
print *, 'Vtable num_entries: ', my_vtable%num_entries
!!!!!!!!!!!!!!!!!!! VTABLE code
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment