Commit 7e6dc50d authored by Don Morton's avatar Don Morton
Browse files

Removed a fair amount of annoying print statements.

parent 29feaef9
......@@ -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
......
......@@ -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
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
......
......@@ -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
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
......
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