Skip to content

Commit b0c3c67

Browse files
remove unused arguments get_expected_agreg_freeboard
fixes #843
1 parent 4eea462 commit b0c3c67

File tree

1 file changed

+1
-4
lines changed

1 file changed

+1
-4
lines changed

observations/forward_operators/obs_def_cice_mod.f90

Lines changed: 1 addition & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -38,7 +38,6 @@
3838
! BEGIN DART PREPROCESS GET_EXPECTED_OBS_FROM_DEF
3939
! case(SAT_SEAICE_AGREG_FREEBOARD)
4040
! call get_expected_agreg_freeboard(state_handle, ens_size, location, &
41-
! QTY_SEAICE_CONCENTR, QTY_SEAICE_VOLUME, QTY_SEAICE_SNOWVOLUME, &
4241
! expected_obs, istatus)
4342
! case(SAT_SEAICE_AGREG_THICKNESS)
4443
! call get_expected_agreg_thickness(state_handle, ens_size, location, &
@@ -178,13 +177,11 @@ end subroutine initialize_module
178177
!>
179178

180179
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)
183181

184182
type(ensemble_type), intent(in) :: state_handle
185183
integer, intent(in) :: ens_size
186184
type(location_type), intent(in) :: location
187-
integer, intent(in) :: var_sic, var_siv, var_snv
188185
real(r8), intent(out) :: agreg_fb(ens_size)
189186
integer, intent(out) :: istatus(ens_size)
190187

0 commit comments

Comments
 (0)