|
38 | 38 | ! BEGIN DART PREPROCESS GET_EXPECTED_OBS_FROM_DEF
|
39 | 39 | ! case(SAT_SEAICE_AGREG_FREEBOARD)
|
40 | 40 | ! call get_expected_agreg_freeboard(state_handle, ens_size, location, &
|
41 |
| -! QTY_SEAICE_CONCENTR, QTY_SEAICE_VOLUME, QTY_SEAICE_SNOWVOLUME, & |
42 | 41 | ! expected_obs, istatus)
|
43 | 42 | ! case(SAT_SEAICE_AGREG_THICKNESS)
|
44 | 43 | ! call get_expected_agreg_thickness(state_handle, ens_size, location, &
|
@@ -178,13 +177,11 @@ end subroutine initialize_module
|
178 | 177 | !>
|
179 | 178 |
|
180 | 179 | subroutine get_expected_agreg_freeboard(state_handle, ens_size, location, &
|
181 |
| - var_sic, var_siv, var_snv, & |
182 |
| - agreg_fb, istatus) |
| 180 | + agreg_fb, istatus) |
183 | 181 |
|
184 | 182 | type(ensemble_type), intent(in) :: state_handle
|
185 | 183 | integer, intent(in) :: ens_size
|
186 | 184 | type(location_type), intent(in) :: location
|
187 |
| -integer, intent(in) :: var_sic, var_siv, var_snv |
188 | 185 | real(r8), intent(out) :: agreg_fb(ens_size)
|
189 | 186 | integer, intent(out) :: istatus(ens_size)
|
190 | 187 |
|
|
0 commit comments