From 16e1b4b29ea5be2e4fd73047f52f1dbe5e01455d Mon Sep 17 00:00:00 2001 From: Kate Hedstrom Date: Sun, 30 May 2021 15:27:16 -0800 Subject: [PATCH] Don't need the guts of icepack_query_tracer_sizes --- .../Icepack_interfaces/icepack_tracers.F90 | 31 ------------------- 1 file changed, 31 deletions(-) diff --git a/config_src/external/Icepack_interfaces/icepack_tracers.F90 b/config_src/external/Icepack_interfaces/icepack_tracers.F90 index fb0e2ab7..905f4f9d 100644 --- a/config_src/external/Icepack_interfaces/icepack_tracers.F90 +++ b/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