Skip to content

Commit

Permalink
Removed print statements
Browse files Browse the repository at this point in the history
  • Loading branch information
tclune committed Oct 28, 2024
1 parent 43a694a commit 925cda7
Showing 1 changed file with 0 additions and 4 deletions.
4 changes: 0 additions & 4 deletions esmf_utils/FieldDimensionInfo.F90
Original file line number Diff line number Diff line change
Expand Up @@ -183,9 +183,7 @@ function get_ungridded_dims_bundle_info(info, rc) result(vec)
type(UngriddedDims) :: dims

do i=1, size(info)
_HERE
dims = make_ungriddedDims(info(i), key=KEY_UNGRIDDED_DIMS, _RC)
_HERE
call merge_ungridded_dims(vec, dims, rc)
end do
_RETURN(_SUCCESS)
Expand All @@ -200,9 +198,7 @@ function get_ungridded_dims_field(field, rc) result(ungridded)
type(ESMF_Info) :: info

info = MAPL_InfoCreateFromInternal(field, _RC)
_HERE
ungridded = make_UngriddedDims(info, key=KEY_UNGRIDDED_DIMS, _RC)
_HERE
call ESMF_InfoDestroy(info, _RC)

_RETURN(_SUCCESS)
Expand Down

0 comments on commit 925cda7

Please sign in to comment.