Changes in / [da10dc8:9cdf8bd] in flexpart.git

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