diff --git a/Common/read_field_indices.F90 b/Common/read_field_indices.F90 index c906f41f1e2d55b6eebd3e3ab811750707120821..665285f2db0967bdbcf878118c1f762386ca7f5a 100644 --- a/Common/read_field_indices.F90 +++ b/Common/read_field_indices.F90 @@ -30,11 +30,18 @@ contains call dbf_get_field_index_03(hshp%outermost, "r_eq_area", & hshp%out_r_eq_area) call dbf_get_field_index_03(hshp%outermost, "ssh", hshp%out_ssh) + call dbf_get_field_index_03(hshp%outermost, "days_1950", hshp%out_date) + call dbf_get_field_index_03(hshp%outermost, "eddy_index", & + hshp%out_eddy_index) call dbf_get_field_index_03(hshp%outermost, "radius4", hshp%out_radius4) call dbf_get_field_index_03(hshp%max_speed, "r_eq_area", & hshp%max_speed_r_eq_area) call dbf_get_field_index_03(hshp%max_speed, "ssh", hshp%max_speed_ssh) + call dbf_get_field_index_03(hshp%max_speed, "days_1950", & + hshp%max_speed_date) + call dbf_get_field_index_03(hshp%max_speed, "eddy_index", & + hshp%max_speed_eddy_index) end if #ifdef HAVE_MPI @@ -45,9 +52,13 @@ contains call ezmpi_bcast(hshp%extr_speed, root = 0) call ezmpi_bcast(hshp%out_r_eq_area, root = 0) call ezmpi_bcast(hshp%out_ssh, root = 0) + call ezmpi_bcast(hshp%out_date, root = 0) + call ezmpi_bcast(hshp%out_eddy_index, root = 0) call ezmpi_bcast(hshp%out_radius4, root = 0) call ezmpi_bcast(hshp%max_speed_r_eq_area, root = 0) call ezmpi_bcast(hshp%max_speed_ssh, root = 0) + call ezmpi_bcast(hshp%max_speed_date, root = 0) + call ezmpi_bcast(hshp%max_speed_eddy_index, root = 0) #endif end subroutine read_field_indices