Skip to content

Commit

Permalink
Updating reference sample files to reflect updates to fortran output.
Browse files Browse the repository at this point in the history
  • Loading branch information
@mwaxmonsky
mwaxmonsky committed Aug 1, 2023
1 parent 66e540d commit 2b2e2a9
Show file tree
Hide file tree
Showing 13 changed files with 52 additions and 52 deletions.
8 changes: 4 additions & 4 deletions test/unit/sample_files/write_init_files/physics_inputs_4D.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -153,15 +153,15 @@ subroutine physics_read_data(file, suite_names, timestep, read_initialized_varia
constituent_has_default = .false.
call const_props(constituent_idx)%has_default(constituent_has_default, &
constituent_errflg, constituent_errmsg)
if (constituent_errflg .ne. 0) then
call endrun(constituent_errmsg)
if (constituent_errflg /= 0) then
call endrun(constituent_errmsg, file=__FILE__, line=__LINE__)
end if
if (constituent_has_default) then
call &
const_props(constituent_idx)%default_value(constituent_default_value, constituent_errflg,&
constituent_errmsg)
if (constituent_errflg .ne. 0) then
call endrun(constituent_errmsg)
if (constituent_errflg /= 0) then
call endrun(constituent_errmsg, file=__FILE__, line=__LINE__)
end if
field_data_ptr(:,:,constituent_idx) = constituent_default_value
if (masterproc) then
Expand Down
8 changes: 4 additions & 4 deletions test/unit/sample_files/write_init_files/physics_inputs_bvd.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -153,15 +153,15 @@ subroutine physics_read_data(file, suite_names, timestep, read_initialized_varia
constituent_has_default = .false.
call const_props(constituent_idx)%has_default(constituent_has_default, &
constituent_errflg, constituent_errmsg)
if (constituent_errflg .ne. 0) then
call endrun(constituent_errmsg)
if (constituent_errflg /= 0) then
call endrun(constituent_errmsg, file=__FILE__, line=__LINE__)
end if
if (constituent_has_default) then
call &
const_props(constituent_idx)%default_value(constituent_default_value, constituent_errflg,&
constituent_errmsg)
if (constituent_errflg .ne. 0) then
call endrun(constituent_errmsg)
if (constituent_errflg /= 0) then
call endrun(constituent_errmsg, file=__FILE__, line=__LINE__)
end if
field_data_ptr(:,:,constituent_idx) = constituent_default_value
if (masterproc) then
Expand Down
8 changes: 4 additions & 4 deletions test/unit/sample_files/write_init_files/physics_inputs_ddt.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -153,15 +153,15 @@ subroutine physics_read_data(file, suite_names, timestep, read_initialized_varia
constituent_has_default = .false.
call const_props(constituent_idx)%has_default(constituent_has_default, &
constituent_errflg, constituent_errmsg)
if (constituent_errflg .ne. 0) then
call endrun(constituent_errmsg)
if (constituent_errflg /= 0) then
call endrun(constituent_errmsg, file=__FILE__, line=__LINE__)
end if
if (constituent_has_default) then
call &
const_props(constituent_idx)%default_value(constituent_default_value, constituent_errflg,&
constituent_errmsg)
if (constituent_errflg .ne. 0) then
call endrun(constituent_errmsg)
if (constituent_errflg /= 0) then
call endrun(constituent_errmsg, file=__FILE__, line=__LINE__)
end if
field_data_ptr(:,:,constituent_idx) = constituent_default_value
if (masterproc) then
Expand Down
8 changes: 4 additions & 4 deletions test/unit/sample_files/write_init_files/physics_inputs_ddt2.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -153,15 +153,15 @@ subroutine physics_read_data(file, suite_names, timestep, read_initialized_varia
constituent_has_default = .false.
call const_props(constituent_idx)%has_default(constituent_has_default, &
constituent_errflg, constituent_errmsg)
if (constituent_errflg .ne. 0) then
call endrun(constituent_errmsg)
if (constituent_errflg /= 0) then
call endrun(constituent_errmsg, file=__FILE__, line=__LINE__)
end if
if (constituent_has_default) then
call &
const_props(constituent_idx)%default_value(constituent_default_value, constituent_errflg,&
constituent_errmsg)
if (constituent_errflg .ne. 0) then
call endrun(constituent_errmsg)
if (constituent_errflg /= 0) then
call endrun(constituent_errmsg, file=__FILE__, line=__LINE__)
end if
field_data_ptr(:,:,constituent_idx) = constituent_default_value
if (masterproc) then
Expand Down
8 changes: 4 additions & 4 deletions test/unit/sample_files/write_init_files/physics_inputs_ddt_array.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -154,15 +154,15 @@ subroutine physics_read_data(file, suite_names, timestep, read_initialized_varia
constituent_has_default = .false.
call const_props(constituent_idx)%has_default(constituent_has_default, &
constituent_errflg, constituent_errmsg)
if (constituent_errflg .ne. 0) then
call endrun(constituent_errmsg)
if (constituent_errflg /= 0) then
call endrun(constituent_errmsg, file=__FILE__, line=__LINE__)
end if
if (constituent_has_default) then
call &
const_props(constituent_idx)%default_value(constituent_default_value, constituent_errflg,&
constituent_errmsg)
if (constituent_errflg .ne. 0) then
call endrun(constituent_errmsg)
if (constituent_errflg /= 0) then
call endrun(constituent_errmsg, file=__FILE__, line=__LINE__)
end if
field_data_ptr(:,:,constituent_idx) = constituent_default_value
if (masterproc) then
Expand Down
8 changes: 4 additions & 4 deletions test/unit/sample_files/write_init_files/physics_inputs_host_var.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -153,15 +153,15 @@ subroutine physics_read_data(file, suite_names, timestep, read_initialized_varia
constituent_has_default = .false.
call const_props(constituent_idx)%has_default(constituent_has_default, &
constituent_errflg, constituent_errmsg)
if (constituent_errflg .ne. 0) then
call endrun(constituent_errmsg)
if (constituent_errflg /= 0) then
call endrun(constituent_errmsg, file=__FILE__, line=__LINE__)
end if
if (constituent_has_default) then
call &
const_props(constituent_idx)%default_value(constituent_default_value, constituent_errflg,&
constituent_errmsg)
if (constituent_errflg .ne. 0) then
call endrun(constituent_errmsg)
if (constituent_errflg /= 0) then
call endrun(constituent_errmsg, file=__FILE__, line=__LINE__)
end if
field_data_ptr(:,:,constituent_idx) = constituent_default_value
if (masterproc) then
Expand Down
8 changes: 4 additions & 4 deletions test/unit/sample_files/write_init_files/physics_inputs_mf.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -154,15 +154,15 @@ subroutine physics_read_data(file, suite_names, timestep, read_initialized_varia
constituent_has_default = .false.
call const_props(constituent_idx)%has_default(constituent_has_default, &
constituent_errflg, constituent_errmsg)
if (constituent_errflg .ne. 0) then
call endrun(constituent_errmsg)
if (constituent_errflg /= 0) then
call endrun(constituent_errmsg, file=__FILE__, line=__LINE__)
end if
if (constituent_has_default) then
call &
const_props(constituent_idx)%default_value(constituent_default_value, constituent_errflg,&
constituent_errmsg)
if (constituent_errflg .ne. 0) then
call endrun(constituent_errmsg)
if (constituent_errflg /= 0) then
call endrun(constituent_errmsg, file=__FILE__, line=__LINE__)
end if
field_data_ptr(:,:,constituent_idx) = constituent_default_value
if (masterproc) then
Expand Down
8 changes: 4 additions & 4 deletions test/unit/sample_files/write_init_files/physics_inputs_no_horiz.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -153,15 +153,15 @@ subroutine physics_read_data(file, suite_names, timestep, read_initialized_varia
constituent_has_default = .false.
call const_props(constituent_idx)%has_default(constituent_has_default, &
constituent_errflg, constituent_errmsg)
if (constituent_errflg .ne. 0) then
call endrun(constituent_errmsg)
if (constituent_errflg /= 0) then
call endrun(constituent_errmsg, file=__FILE__, line=__LINE__)
end if
if (constituent_has_default) then
call &
const_props(constituent_idx)%default_value(constituent_default_value, constituent_errflg,&
constituent_errmsg)
if (constituent_errflg .ne. 0) then
call endrun(constituent_errmsg)
if (constituent_errflg /= 0) then
call endrun(constituent_errmsg, file=__FILE__, line=__LINE__)
end if
field_data_ptr(:,:,constituent_idx) = constituent_default_value
if (masterproc) then
Expand Down
8 changes: 4 additions & 4 deletions test/unit/sample_files/write_init_files/physics_inputs_noreq.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -152,15 +152,15 @@ subroutine physics_read_data(file, suite_names, timestep, read_initialized_varia
constituent_has_default = .false.
call const_props(constituent_idx)%has_default(constituent_has_default, &
constituent_errflg, constituent_errmsg)
if (constituent_errflg .ne. 0) then
call endrun(constituent_errmsg)
if (constituent_errflg /= 0) then
call endrun(constituent_errmsg, file=__FILE__, line=__LINE__)
end if
if (constituent_has_default) then
call &
const_props(constituent_idx)%default_value(constituent_default_value, constituent_errflg,&
constituent_errmsg)
if (constituent_errflg .ne. 0) then
call endrun(constituent_errmsg)
if (constituent_errflg /= 0) then
call endrun(constituent_errmsg, file=__FILE__, line=__LINE__)
end if
field_data_ptr(:,:,constituent_idx) = constituent_default_value
if (masterproc) then
Expand Down
8 changes: 4 additions & 4 deletions test/unit/sample_files/write_init_files/physics_inputs_param.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -153,15 +153,15 @@ subroutine physics_read_data(file, suite_names, timestep, read_initialized_varia
constituent_has_default = .false.
call const_props(constituent_idx)%has_default(constituent_has_default, &
constituent_errflg, constituent_errmsg)
if (constituent_errflg .ne. 0) then
call endrun(constituent_errmsg)
if (constituent_errflg /= 0) then
call endrun(constituent_errmsg, file=__FILE__, line=__LINE__)
end if
if (constituent_has_default) then
call &
const_props(constituent_idx)%default_value(constituent_default_value, constituent_errflg,&
constituent_errmsg)
if (constituent_errflg .ne. 0) then
call endrun(constituent_errmsg)
if (constituent_errflg /= 0) then
call endrun(constituent_errmsg, file=__FILE__, line=__LINE__)
end if
field_data_ptr(:,:,constituent_idx) = constituent_default_value
if (masterproc) then
Expand Down
8 changes: 4 additions & 4 deletions test/unit/sample_files/write_init_files/physics_inputs_protect.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -153,15 +153,15 @@ subroutine physics_read_data(file, suite_names, timestep, read_initialized_varia
constituent_has_default = .false.
call const_props(constituent_idx)%has_default(constituent_has_default, &
constituent_errflg, constituent_errmsg)
if (constituent_errflg .ne. 0) then
call endrun(constituent_errmsg)
if (constituent_errflg /= 0) then
call endrun(constituent_errmsg, file=__FILE__, line=__LINE__)
end if
if (constituent_has_default) then
call &
const_props(constituent_idx)%default_value(constituent_default_value, constituent_errflg,&
constituent_errmsg)
if (constituent_errflg .ne. 0) then
call endrun(constituent_errmsg)
if (constituent_errflg /= 0) then
call endrun(constituent_errmsg, file=__FILE__, line=__LINE__)
end if
field_data_ptr(:,:,constituent_idx) = constituent_default_value
if (masterproc) then
Expand Down
8 changes: 4 additions & 4 deletions test/unit/sample_files/write_init_files/physics_inputs_scalar.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -153,15 +153,15 @@ subroutine physics_read_data(file, suite_names, timestep, read_initialized_varia
constituent_has_default = .false.
call const_props(constituent_idx)%has_default(constituent_has_default, &
constituent_errflg, constituent_errmsg)
if (constituent_errflg .ne. 0) then
call endrun(constituent_errmsg)
if (constituent_errflg /= 0) then
call endrun(constituent_errmsg, file=__FILE__, line=__LINE__)
end if
if (constituent_has_default) then
call &
const_props(constituent_idx)%default_value(constituent_default_value, constituent_errflg,&
constituent_errmsg)
if (constituent_errflg .ne. 0) then
call endrun(constituent_errmsg)
if (constituent_errflg /= 0) then
call endrun(constituent_errmsg, file=__FILE__, line=__LINE__)
end if
field_data_ptr(:,:,constituent_idx) = constituent_default_value
if (masterproc) then
Expand Down
8 changes: 4 additions & 4 deletions test/unit/sample_files/write_init_files/physics_inputs_simple.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -153,15 +153,15 @@ subroutine physics_read_data(file, suite_names, timestep, read_initialized_varia
constituent_has_default = .false.
call const_props(constituent_idx)%has_default(constituent_has_default, &
constituent_errflg, constituent_errmsg)
if (constituent_errflg .ne. 0) then
call endrun(constituent_errmsg)
if (constituent_errflg /= 0) then
call endrun(constituent_errmsg, file=__FILE__, line=__LINE__)
end if
if (constituent_has_default) then
call &
const_props(constituent_idx)%default_value(constituent_default_value, constituent_errflg,&
constituent_errmsg)
if (constituent_errflg .ne. 0) then
call endrun(constituent_errmsg)
if (constituent_errflg /= 0) then
call endrun(constituent_errmsg, file=__FILE__, line=__LINE__)
end if
field_data_ptr(:,:,constituent_idx) = constituent_default_value
if (masterproc) then
Expand Down

0 comments on commit 2b2e2a9

Please sign in to comment.