Skip to content

Commit 78ca691

Browse files
committed
Delete unused "use" statements and variables
Also cleaned up a comment when I realized I wrote the comment and wasn't sure what it meant
1 parent a2193cf commit 78ca691

3 files changed

Lines changed: 2 additions & 4 deletions

File tree

config_src/drivers/nuopc_cap/mom_cap.F90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -588,8 +588,8 @@ subroutine InitializeAdvertise(gcomp, importState, exportState, clock, rc)
588588
Ice_ocean_boundary%ice_ncat = 0
589589
if (cesm_coupled) then
590590
! Note that flds_i2o_per_cat is set by the env_run.xml variable CPL_I2O_PER_CAT
591-
! This xml variable is set by MOM_interface's buildnml script; it has the same
592-
! value as USE_MARBL in the case
591+
! In CESM, this xml variable is set by MOM_interface's buildnml script and by
592+
! default it is false unless ICE_NCAT>0 and USE_MARBL_TRACERS=True
593593
call NUOPC_CompAttributeGet(gcomp, name='flds_i2o_per_cat', value=cvalue, rc=rc)
594594
if (ChkErr(rc,__LINE__,u_FILE_u)) return
595595
read(cvalue,*) i2o_per_cat

config_src/drivers/nuopc_cap/mom_cap_methods.F90

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -89,7 +89,6 @@ subroutine mom_import(ocean_public, ocean_grid, importState, ice_ocean_boundary,
8989
real(ESMF_KIND_R8), allocatable :: tauy(:,:)
9090
real(ESMF_KIND_R8), allocatable :: stkx(:,:,:)
9191
real(ESMF_KIND_R8), allocatable :: stky(:,:,:)
92-
logical :: med_has_co2
9392
character(len=*) , parameter :: subname = '(mom_import)'
9493

9594
rc = ESMF_SUCCESS

src/tracer/MARBL_tracers.F90

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -41,7 +41,6 @@ module MARBL_tracers
4141
use MARBL_interface, only : MARBL_interface_class
4242
use MARBL_interface_public_types, only : marbl_diagnostics_type, marbl_saved_state_type
4343

44-
use coupler_types_mod, only : coupler_type_set_data, ind_csurf
4544
use atmos_ocean_fluxes_mod, only : aof_set_coupler_flux
4645

4746
implicit none ; private

0 commit comments

Comments
 (0)