Changeset 7e6dc50 in flexpart.git for flexpart_code/gridcheck.F90
- Timestamp:
- Sep 2, 2016, 11:51:56 PM (8 years ago)
- Branches:
- FPv9.3.1, FPv9.3.2, fp9.3.1-20161214-nc4, grib2nc4_repair
- Children:
- e4b7087
- Parents:
- 29feaef
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
flexpart_code/gridcheck.F90
r496c607 r7e6dc50 155 155 !!!!!!! Vtable choice 156 156 gribfile_name = path(3)(1:length(3))//trim(wfname(ifn)) 157 print *, 'gribfile_name: ', gribfile_name157 !print *, 'gribfile_name: ', gribfile_name 158 158 159 159 gribfile_type = vtable_detect_gribfile_type( gribfile_name ) 160 160 161 print *, 'gribfile_type: ', gribfile_type161 !print *, 'gribfile_type: ', gribfile_type 162 162 163 163 if (gribfile_type .eq. VTABLE_GRIBFILE_TYPE_ECMWF_GRIB1) then … … 174 174 175 175 ! Load the Vtable into 'my_vtable' 176 print *, 'Loading Vtable: ', vtable_path176 !print *, 'Loading Vtable: ', vtable_path 177 177 call vtable_load_by_name(vtable_path, my_vtable) 178 print *, 'Vtable Initialized: ', my_vtable%initialized179 print *, 'Vtable num_entries: ', my_vtable%num_entries178 !print *, 'Vtable Initialized: ', my_vtable%initialized 179 !print *, 'Vtable num_entries: ', my_vtable%num_entries 180 180 !!!!!!!!!!!!!!!!!!! VTABLE code 181 181 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Note: See TracChangeset
for help on using the changeset viewer.