Skip to content

Commit

Permalink
fix unit tests
Browse files Browse the repository at this point in the history
  • Loading branch information
Courtney Peverley committed Sep 20, 2024
1 parent 75cdffb commit 006f412
Show file tree
Hide file tree
Showing 14 changed files with 28 additions and 28 deletions.
4 changes: 2 additions & 2 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 @@ -210,12 +210,12 @@ subroutine physics_read_data(file, suite_names, timestep, read_initialized_varia
end if
field_data_ptr(:,:,constituent_idx) = constituent_default_value
if (masterproc) then
write(iulog,*) 'Constituent ', trim(ccpp_required_data(req_idx)), ' initialized to default value: ', constituent_default_value
write(iulog,*) 'Constituent ', trim(std_name), ' initialized to default value: ', constituent_default_value
end if
else
field_data_ptr(:,:,constituent_idx) = 0._kind_phys
if (masterproc) then
write(iulog,*) 'Constituent ', trim(ccpp_required_data(req_idx)), ' default value not configured. Setting to 0.'
write(iulog,*) 'Constituent ', trim(std_name), ' default value not configured. Setting to 0.'
end if
end if
end if
Expand Down
4 changes: 2 additions & 2 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 @@ -210,12 +210,12 @@ subroutine physics_read_data(file, suite_names, timestep, read_initialized_varia
end if
field_data_ptr(:,:,constituent_idx) = constituent_default_value
if (masterproc) then
write(iulog,*) 'Constituent ', trim(ccpp_required_data(req_idx)), ' initialized to default value: ', constituent_default_value
write(iulog,*) 'Constituent ', trim(std_name), ' initialized to default value: ', constituent_default_value
end if
else
field_data_ptr(:,:,constituent_idx) = 0._kind_phys
if (masterproc) then
write(iulog,*) 'Constituent ', trim(ccpp_required_data(req_idx)), ' default value not configured. Setting to 0.'
write(iulog,*) 'Constituent ', trim(std_name), ' default value not configured. Setting to 0.'
end if
end if
end if
Expand Down
4 changes: 2 additions & 2 deletions test/unit/sample_files/write_init_files/physics_inputs_cnst.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -210,12 +210,12 @@ subroutine physics_read_data(file, suite_names, timestep, read_initialized_varia
end if
field_data_ptr(:,:,constituent_idx) = constituent_default_value
if (masterproc) then
write(iulog,*) 'Constituent ', trim(ccpp_required_data(req_idx)), ' initialized to default value: ', constituent_default_value
write(iulog,*) 'Constituent ', trim(std_name), ' initialized to default value: ', constituent_default_value
end if
else
field_data_ptr(:,:,constituent_idx) = 0._kind_phys
if (masterproc) then
write(iulog,*) 'Constituent ', trim(ccpp_required_data(req_idx)), ' default value not configured. Setting to 0.'
write(iulog,*) 'Constituent ', trim(std_name), ' default value not configured. Setting to 0.'
end if
end if
end if
Expand Down
4 changes: 2 additions & 2 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 @@ -210,12 +210,12 @@ subroutine physics_read_data(file, suite_names, timestep, read_initialized_varia
end if
field_data_ptr(:,:,constituent_idx) = constituent_default_value
if (masterproc) then
write(iulog,*) 'Constituent ', trim(ccpp_required_data(req_idx)), ' initialized to default value: ', constituent_default_value
write(iulog,*) 'Constituent ', trim(std_name), ' initialized to default value: ', constituent_default_value
end if
else
field_data_ptr(:,:,constituent_idx) = 0._kind_phys
if (masterproc) then
write(iulog,*) 'Constituent ', trim(ccpp_required_data(req_idx)), ' default value not configured. Setting to 0.'
write(iulog,*) 'Constituent ', trim(std_name), ' default value not configured. Setting to 0.'
end if
end if
end if
Expand Down
4 changes: 2 additions & 2 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 @@ -210,12 +210,12 @@ subroutine physics_read_data(file, suite_names, timestep, read_initialized_varia
end if
field_data_ptr(:,:,constituent_idx) = constituent_default_value
if (masterproc) then
write(iulog,*) 'Constituent ', trim(ccpp_required_data(req_idx)), ' initialized to default value: ', constituent_default_value
write(iulog,*) 'Constituent ', trim(std_name), ' initialized to default value: ', constituent_default_value
end if
else
field_data_ptr(:,:,constituent_idx) = 0._kind_phys
if (masterproc) then
write(iulog,*) 'Constituent ', trim(ccpp_required_data(req_idx)), ' default value not configured. Setting to 0.'
write(iulog,*) 'Constituent ', trim(std_name), ' default value not configured. Setting to 0.'
end if
end if
end if
Expand Down
4 changes: 2 additions & 2 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 @@ -210,12 +210,12 @@ subroutine physics_read_data(file, suite_names, timestep, read_initialized_varia
end if
field_data_ptr(:,:,constituent_idx) = constituent_default_value
if (masterproc) then
write(iulog,*) 'Constituent ', trim(ccpp_required_data(req_idx)), ' initialized to default value: ', constituent_default_value
write(iulog,*) 'Constituent ', trim(std_name), ' initialized to default value: ', constituent_default_value
end if
else
field_data_ptr(:,:,constituent_idx) = 0._kind_phys
if (masterproc) then
write(iulog,*) 'Constituent ', trim(ccpp_required_data(req_idx)), ' default value not configured. Setting to 0.'
write(iulog,*) 'Constituent ', trim(std_name), ' default value not configured. Setting to 0.'
end if
end if
end if
Expand Down
4 changes: 2 additions & 2 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 @@ -207,12 +207,12 @@ subroutine physics_read_data(file, suite_names, timestep, read_initialized_varia
end if
field_data_ptr(:,:,constituent_idx) = constituent_default_value
if (masterproc) then
write(iulog,*) 'Constituent ', trim(ccpp_required_data(req_idx)), ' initialized to default value: ', constituent_default_value
write(iulog,*) 'Constituent ', trim(std_name), ' initialized to default value: ', constituent_default_value
end if
else
field_data_ptr(:,:,constituent_idx) = 0._kind_phys
if (masterproc) then
write(iulog,*) 'Constituent ', trim(ccpp_required_data(req_idx)), ' default value not configured. Setting to 0.'
write(iulog,*) 'Constituent ', trim(std_name), ' default value not configured. Setting to 0.'
end if
end if
end if
Expand Down
4 changes: 2 additions & 2 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 @@ -211,12 +211,12 @@ subroutine physics_read_data(file, suite_names, timestep, read_initialized_varia
end if
field_data_ptr(:,:,constituent_idx) = constituent_default_value
if (masterproc) then
write(iulog,*) 'Constituent ', trim(ccpp_required_data(req_idx)), ' initialized to default value: ', constituent_default_value
write(iulog,*) 'Constituent ', trim(std_name), ' initialized to default value: ', constituent_default_value
end if
else
field_data_ptr(:,:,constituent_idx) = 0._kind_phys
if (masterproc) then
write(iulog,*) 'Constituent ', trim(ccpp_required_data(req_idx)), ' default value not configured. Setting to 0.'
write(iulog,*) 'Constituent ', trim(std_name), ' default value not configured. Setting to 0.'
end if
end if
end if
Expand Down
4 changes: 2 additions & 2 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 @@ -210,12 +210,12 @@ subroutine physics_read_data(file, suite_names, timestep, read_initialized_varia
end if
field_data_ptr(:,:,constituent_idx) = constituent_default_value
if (masterproc) then
write(iulog,*) 'Constituent ', trim(ccpp_required_data(req_idx)), ' initialized to default value: ', constituent_default_value
write(iulog,*) 'Constituent ', trim(std_name), ' initialized to default value: ', constituent_default_value
end if
else
field_data_ptr(:,:,constituent_idx) = 0._kind_phys
if (masterproc) then
write(iulog,*) 'Constituent ', trim(ccpp_required_data(req_idx)), ' default value not configured. Setting to 0.'
write(iulog,*) 'Constituent ', trim(std_name), ' default value not configured. Setting to 0.'
end if
end if
end if
Expand Down
4 changes: 2 additions & 2 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 @@ -203,12 +203,12 @@ subroutine physics_read_data(file, suite_names, timestep, read_initialized_varia
end if
field_data_ptr(:,:,constituent_idx) = constituent_default_value
if (masterproc) then
write(iulog,*) 'Constituent ', trim(ccpp_required_data(req_idx)), ' initialized to default value: ', constituent_default_value
write(iulog,*) 'Constituent ', trim(std_name), ' initialized to default value: ', constituent_default_value
end if
else
field_data_ptr(:,:,constituent_idx) = 0._kind_phys
if (masterproc) then
write(iulog,*) 'Constituent ', trim(ccpp_required_data(req_idx)), ' default value not configured. Setting to 0.'
write(iulog,*) 'Constituent ', trim(std_name), ' default value not configured. Setting to 0.'
end if
end if
end if
Expand Down
4 changes: 2 additions & 2 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 @@ -213,12 +213,12 @@ subroutine physics_read_data(file, suite_names, timestep, read_initialized_varia
end if
field_data_ptr(:,:,constituent_idx) = constituent_default_value
if (masterproc) then
write(iulog,*) 'Constituent ', trim(ccpp_required_data(req_idx)), ' initialized to default value: ', constituent_default_value
write(iulog,*) 'Constituent ', trim(std_name), ' initialized to default value: ', constituent_default_value
end if
else
field_data_ptr(:,:,constituent_idx) = 0._kind_phys
if (masterproc) then
write(iulog,*) 'Constituent ', trim(ccpp_required_data(req_idx)), ' default value not configured. Setting to 0.'
write(iulog,*) 'Constituent ', trim(std_name), ' default value not configured. Setting to 0.'
end if
end if
end if
Expand Down
4 changes: 2 additions & 2 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 @@ -210,12 +210,12 @@ subroutine physics_read_data(file, suite_names, timestep, read_initialized_varia
end if
field_data_ptr(:,:,constituent_idx) = constituent_default_value
if (masterproc) then
write(iulog,*) 'Constituent ', trim(ccpp_required_data(req_idx)), ' initialized to default value: ', constituent_default_value
write(iulog,*) 'Constituent ', trim(std_name), ' initialized to default value: ', constituent_default_value
end if
else
field_data_ptr(:,:,constituent_idx) = 0._kind_phys
if (masterproc) then
write(iulog,*) 'Constituent ', trim(ccpp_required_data(req_idx)), ' default value not configured. Setting to 0.'
write(iulog,*) 'Constituent ', trim(std_name), ' default value not configured. Setting to 0.'
end if
end if
end if
Expand Down
4 changes: 2 additions & 2 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 @@ -210,12 +210,12 @@ subroutine physics_read_data(file, suite_names, timestep, read_initialized_varia
end if
field_data_ptr(:,:,constituent_idx) = constituent_default_value
if (masterproc) then
write(iulog,*) 'Constituent ', trim(ccpp_required_data(req_idx)), ' initialized to default value: ', constituent_default_value
write(iulog,*) 'Constituent ', trim(std_name), ' initialized to default value: ', constituent_default_value
end if
else
field_data_ptr(:,:,constituent_idx) = 0._kind_phys
if (masterproc) then
write(iulog,*) 'Constituent ', trim(ccpp_required_data(req_idx)), ' default value not configured. Setting to 0.'
write(iulog,*) 'Constituent ', trim(std_name), ' default value not configured. Setting to 0.'
end if
end if
end if
Expand Down
4 changes: 2 additions & 2 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 @@ -210,12 +210,12 @@ subroutine physics_read_data(file, suite_names, timestep, read_initialized_varia
end if
field_data_ptr(:,:,constituent_idx) = constituent_default_value
if (masterproc) then
write(iulog,*) 'Constituent ', trim(ccpp_required_data(req_idx)), ' initialized to default value: ', constituent_default_value
write(iulog,*) 'Constituent ', trim(std_name), ' initialized to default value: ', constituent_default_value
end if
else
field_data_ptr(:,:,constituent_idx) = 0._kind_phys
if (masterproc) then
write(iulog,*) 'Constituent ', trim(ccpp_required_data(req_idx)), ' default value not configured. Setting to 0.'
write(iulog,*) 'Constituent ', trim(std_name), ' default value not configured. Setting to 0.'
end if
end if
end if
Expand Down

0 comments on commit 006f412

Please sign in to comment.