clean up of mom_ocean_model_nuopc.F90

jiandewang · Feb 5, 2021 · 8afe969 · 8afe969
1 parent 25ed4fc
commit 8afe969
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/config_src/nuopc_driver/mom_ocean_model_nuopc.F90 b/config_src/nuopc_driver/mom_ocean_model_nuopc.F90
@@ -51,7 +51,7 @@ module MOM_ocean_model_nuopc
 use coupler_types_mod,       only : coupler_type_spawn, coupler_type_write_chksums
 use coupler_types_mod,       only : coupler_type_initialized, coupler_type_copy_data
 use coupler_types_mod,       only : coupler_type_set_diags, coupler_type_send_data
-use mpp_domains_mod,         only : domain2d, mpp_get_layout, mpp_get_global_domain,mpp_get_pelist
+use mpp_domains_mod,         only : domain2d, mpp_get_layout, mpp_get_global_domain
 use mpp_domains_mod,         only : mpp_define_domains, mpp_get_compute_domain, mpp_get_data_domain
 use fms_mod,                 only : stdout
 use mpp_mod,                 only : mpp_chksum
@@ -442,7 +442,6 @@ subroutine ocean_model_init(Ocean_sfc, OS, Time_init, Time_in, gas_fields_ocn, i
   if (OS%do_sppt .OR. OS%pert_epbl) then
      num_procs=num_PEs()
      allocate(pelist(num_procs))
-     !call mpp_get_pelist(pelist, commID=mom_comm)
      call Get_PElist(pelist,commID = mom_comm)
      me=PE_here()
      master=root_PE()
@@ -698,7 +697,6 @@ subroutine update_ocean_model(Ice_ocean_boundary, OS, Ocean_sfc, &
           call step_MOM(OS%forces, OS%fluxes, OS%sfc_state, Time2, dtdia, OS%MOM_CSp, &
                         Waves=OS%Waves, do_dynamics=.false., do_thermodynamics=.true., &
                         start_cycle=.false., end_cycle=(n==n_max), cycle_length=dt_coupling)
-
         endif
       endif