Changeset 7e6dc50 in flexpart.git

Timestamp:

Sep 2, 2016, 11:51:56 PM (8 years ago)

Author:

Don Morton <Don.Morton@…>

Branches:

FPv9.3.1, FPv9.3.2, fp9.3.1-20161214-nc4, grib2nc4_repair

Children:

e4b7087

Parents:

29feaef

Message:

Removed a fair amount of annoying print statements.

Location:

flexpart_code

Files:

• class_vtable_mod.F90 (modified) (1 diff)
• gridcheck.F90 (modified) (2 diffs)
• readwind.F90 (modified) (2 diffs)

flexpart_code/class_vtable_mod.F90

@@ -188 +188 @@
         ! 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
 

flexpart_code/gridcheck.F90

@@ -155 +155 @@
     !!!!!!! 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
@@ -174 +174 @@
 
     ! 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
     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

flexpart_code/readwind.F90

@@ -224 +224 @@
     !!!!!!! 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
@@ -243 +243 @@
 
     ! 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
     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!