Changeset 7e6dc50 in flexpart.git for flexpart_code/readwind.F90

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.

File:

• flexpart_code/readwind.F90 (modified) (2 diffs)

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
     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!