@@ -143,7 +143,7 @@ subroutine physics_read_data(file, suite_names, timestep, read_initialized_varia
143
143
144
144
select case (trim (phys_var_stdnames(name_idx)))
145
145
case (' potential_temperature' )
146
- call read_field(file, ' potential_temperature' , input_var_names(:,name_idx), ' lev' , timestep, phys_state% theta)
146
+ call read_field(file, ' potential_temperature' , input_var_names(:,name_idx), ' lev' , timestep, phys_state% thermo % theta)
147
147
148
148
case (' air_pressure_at_sea_level' )
149
149
call read_field(file, ' air_pressure_at_sea_level' , input_var_names(:,name_idx), timestep, phys_state% slp)
@@ -321,8 +321,8 @@ subroutine physics_check_data(file_name, suite_names, timestep, min_difference,
321
321
322
322
select case (trim (phys_var_stdnames(name_idx)))
323
323
case (' potential_temperature' )
324
- call check_field(file, input_var_names(:,name_idx), ' lev' , timestep, phys_state% theta, ' potential_temperature' , min_difference, &
325
- min_relative_value, is_first, diff_found)
324
+ call check_field(file, input_var_names(:,name_idx), ' lev' , timestep, phys_state% thermo % theta, ' potential_temperature' , &
325
+ min_difference, min_relative_value, is_first, diff_found)
326
326
327
327
case (' air_pressure_at_sea_level' )
328
328
call check_field(file, input_var_names(:,name_idx), timestep, phys_state% slp, ' air_pressure_at_sea_level' , min_difference, &
0 commit comments