Don't need the guts of icepack_query_tracer_sizes

config_src/external/Icepack_interfaces/icepack_tracers.F90

@@ -204,37 +204,6 @@ subroutine icepack_query_tracer_sizes(&
          nbtrcr_out , & ! number of bio tracers in use
          nbtrcr_sw_out  ! number of shortwave bio tracers in use
 
-        if (present(max_algae_out))  max_algae_out = max_algae
-        if (present(max_dic_out))    max_dic_out   = max_dic
-        if (present(max_doc_out))    max_doc_out   = max_doc
-        if (present(max_don_out))    max_don_out   = max_don
-        if (present(max_fe_out))     max_fe_out    = max_fe
-        if (present(nmodal1_out))    nmodal1_out   = nmodal1
-        if (present(nmodal2_out))    nmodal2_out   = nmodal2
-        if (present(max_aero_out))   max_aero_out  = max_aero
-        if (present(max_nbtrcr_out)) max_nbtrcr_out= max_nbtrcr
-
-        if (present(ncat_out)     ) ncat_out      = ncat
-        if (present(nilyr_out)    ) nilyr_out     = nilyr
-        if (present(nslyr_out)    ) nslyr_out     = nslyr
-        if (present(nblyr_out)    ) nblyr_out     = nblyr
-        if (present(nfsd_out)     ) nfsd_out      = nfsd
-
-        if (present(n_algae_out)  ) n_algae_out   = n_algae
-        if (present(n_DOC_out)    ) n_DOC_out     = n_DOC
-        if (present(n_DON_out)    ) n_DON_out     = n_DON
-        if (present(n_DIC_out)    ) n_DIC_out     = n_DIC
-        if (present(n_fed_out)    ) n_fed_out     = n_fed
-        if (present(n_fep_out)    ) n_fep_out     = n_fep
-        if (present(n_zaero_out)  ) n_zaero_out   = n_zaero
-        if (present(n_aero_out)   ) n_aero_out    = n_aero
-        if (present(n_iso_out)    ) n_iso_out     = n_iso
-
-        if (present(ntrcr_out)    ) ntrcr_out     = ntrcr
-        if (present(ntrcr_o_out)  ) ntrcr_o_out   = ntrcr_o
-        if (present(nbtrcr_out)   ) nbtrcr_out    = nbtrcr
-        if (present(nbtrcr_sw_out)) nbtrcr_sw_out = nbtrcr_sw
-
       end subroutine icepack_query_tracer_sizes
 
       end module icepack_tracers