comments

GEOS-ESM · Nov 25, 2024 · 8ce9c6a · 8ce9c6a
1 parent 935a4b8
commit 8ce9c6a
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/griddedio/FieldBundleRead.F90 b/griddedio/FieldBundleRead.F90
@@ -91,6 +91,15 @@ subroutine MAPL_create_bundle_from_metdata_id(bundle,metadata_id,file_name,only_
                enddo
             end if
 
+            write(*,*)'bmaa exclude ',','//trim(exclude_vars)//','
+            write(*,*)'bmaa var_name ',trim(var_name)
+            write(*,*)'bmaa index(exclude_var,var_name) ',index(','//trim(exclude_vars)//',',','//trim(var_name)//',')
+            write(*,*)'bmaa hardcode string index comma vs no ',index(',lon,lat,lon_bnds,lat_bnds,lev,time,lons,lats,time_bnds,',",lat_bnds,"),index(',lon,lat,lon_bnds,lat_bnds,lev,time,lons,lats,time_bnds,',"lat_bnds")
+            write(*,*)'bmaa allocatable string index comma vs no ',index(exclude_vars,",lat_bnds,"),index(exclude_vars,"lat_bnds")
+            write(*,*)'bmaa allocatable string index comma vs no ',index(exclude_vars,",time_bnds,"),index(exclude_vars,"time_bnds")
+            write(*,*)'bmaa allocatable string index comma vs no ',index(exclude_vars,",time,"),index(exclude_vars,"time")
+            write(*,*)'bmaa allocatable string index comma vs no ',index(exclude_vars,",lat,"),index(exclude_vars,"lat")
+
             if (index(','//trim(exclude_vars)//',',','//trim(var_name)//',') > 0) then
                call var_iter%next()
                   cycle
@@ -137,6 +146,7 @@ subroutine MAPL_create_bundle_from_metdata_id(bundle,metadata_id,file_name,only_
                _VERIFY(status)
                call ESMF_AttributeSet(field,name='VLOCATION',value=location,rc=status)
                _VERIFY(status)
+               write(*,*)"bmaa getting units for ",trim(var_name)
                units = metadata%get_var_attr_string(var_name,'units',_RC)
                long_name = metadata%get_var_attr_string(var_name,'long_name',_RC)
                call ESMF_AttributeSet(field,name='UNITS',value=units,rc=status)