diff --git a/configuration/driver/icedrv_init.F90 b/configuration/driver/icedrv_init.F90 index 5d797fe04..24f56ecfb 100644 --- a/configuration/driver/icedrv_init.F90 +++ b/configuration/driver/icedrv_init.F90 @@ -674,6 +674,7 @@ subroutine input_data write(nu_diag,1020) 'nslyr = ', nslyr write(nu_diag,1020) 'nblyr = ', nblyr write(nu_diag,1020) 'nfsd = ', nfsd + write(nu_diag,1020) 'n_aero = ', n_aero write(nu_diag,*)' ' write(nu_diag,1020) 'nx = ', nx write(nu_diag,*)' ' @@ -736,7 +737,7 @@ subroutine input_data wave_spec_type_in=wave_spec_type, wave_spec_in=wave_spec) call icepack_init_tracer_sizes(ntrcr_in=ntrcr, & ncat_in=ncat, nilyr_in=nilyr, nslyr_in=nslyr, nblyr_in=nblyr, & - nfsd_in=nfsd) + nfsd_in=nfsd, n_aero_in=n_aero) call icepack_init_tracer_flags(tr_iage_in=tr_iage, & tr_FY_in=tr_FY, tr_lvl_in=tr_lvl, tr_aero_in=tr_aero, & tr_pond_in=tr_pond, tr_pond_cesm_in=tr_pond_cesm, &