From 8afe969206a402b596700b09ebc0a342329e5214 Mon Sep 17 00:00:00 2001 From: pjpegion Date: Fri, 5 Feb 2021 20:50:56 +0000 Subject: [PATCH] clean up of mom_ocean_model_nuopc.F90 --- config_src/nuopc_driver/mom_ocean_model_nuopc.F90 | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/config_src/nuopc_driver/mom_ocean_model_nuopc.F90 b/config_src/nuopc_driver/mom_ocean_model_nuopc.F90 index aa40f1a1d1..6e57f66a95 100644 --- 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