From ea04184abc05b5c1e618251b5c66b16a4c2df286 Mon Sep 17 00:00:00 2001 From: apcraig Date: Fri, 21 Feb 2020 14:33:54 +0000 Subject: [PATCH] add initialization of n_aero --- configuration/driver/icedrv_init.F90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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, &