Skip to content

Commit

Permalink
more hard coded double precision register_fields corrected in fv_regi…
Browse files Browse the repository at this point in the history 
…onal_bc
  • Loading branch information
@laurenchilutti
laurenchilutti committed Oct 16, 2023
1 parent eae88b4 commit 0759d86
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions model/fv_regional_bc.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -5823,7 +5823,7 @@ subroutine dump_field_3d (domain, name, field, isd, ied, jsd, jed, nlev, stag)
call register_global_attribute(fileobj, "jhalo_shift", halo )
call register_global_attribute(fileobj, "hstagger", stagname )

call register_field(fileobj, name, "double", dim_names_3d)
call register_field(fileobj, name, axis_type, dim_names_3d)

call write_data(fileobj, name, glob_field)

Expand Down Expand Up @@ -5935,7 +5935,7 @@ subroutine dump_field_2d (domain, name, field, isd, ied, jsd, jed, stag)
call register_global_attribute(fileobj, "jhalo_shift", halo )
call register_global_attribute(fileobj, "hstagger", stagname )

call register_field(fileobj, name, "double", dim_names_3d)
call register_field(fileobj, name, axis_type, dim_names_3d)

call write_data(fileobj, name, glob_field)

Expand Down

0 comments on commit 0759d86

Please sign in to comment.