Adds "only" for all use statements

- In keeping with MOM6 style guide, all module use statements now have "only" and each imported entity is explicitly listed.
NOAA-GFDL · Jul 20, 2017 · beac3ed · beac3ed
1 parent 231d19e
commit beac3ed
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 8 deletions.
diff --git a/config_src/mct_driver/coupler_indices.F90 b/config_src/mct_driver/coupler_indices.F90
@@ -1,12 +1,15 @@
 module coupler_indices
 
-  ! From MCT:
+  ! MCT types
+  use mct_mod, only : mct_aVect
+  ! MCT fucntions
+  use mct_mod, only : mct_avect_indexra, mct_aVect_init, mct_aVect_clean
   use seq_flds_mod, only : seq_flds_x2o_fields, seq_flds_o2x_fields 
   use seq_flds_mod, only : seq_flds_i2o_per_cat, ice_ncat 
-  use mct_mod
 
-  ! From MOM:
+  ! MOM types
   use MOM_grid,       only : ocean_grid_type
+  ! MOM functions
   use MOM_domains,    only : pass_var
   use MOM_variables,  only : surface
 

diff --git a/config_src/mct_driver/ocn_comp_mct.F90 b/config_src/mct_driver/ocn_comp_mct.F90
@@ -11,9 +11,13 @@ module ocn_comp_mct
 ! !REVISION HISTORY:
 !
 ! !USES:
-  use esmf
-  use seq_cdata_mod
-  use mct_mod
+  use ESMF,               only: ESMF_clock, ESMF_time
+  use ESMF,               only: ESMF_ClockGet, ESMF_TimeGet
+  use seq_cdata_mod,      only: seq_cdata
+  use seq_cdata_mod,      only: seq_cdata_setptrs
+  use mct_mod,            only: mct_gsMap, mct_gsmap_init, mct_gsMap_lsize, mct_gsmap_orderedpoints
+  use mct_mod,            only: mct_aVect, mct_aVect_init, mct_aVect_zero, mct_aVect_nRattr
+  use mct_mod,            only: mct_gGrid, mct_gGrid_init, mct_gGrid_importRAttr, mct_gGrid_importIAttr
   use seq_flds_mod,       only: seq_flds_x2o_fields,            &
                                 seq_flds_o2x_fields,            &
                                 SEQ_FLDS_DOM_COORD,             &
@@ -92,7 +96,7 @@ subroutine ocn_init_mct( EClock, cdata_o, x2o_o, o2x_o, NLFilename )
 !
 ! !INPUT/OUTPUT PARAMETERS:
 
-  type(ESMF_Clock)            , intent(inout) :: EClock
+  type(ESMF_clock)            , intent(inout) :: EClock
   type(seq_cdata)             , intent(inout) :: cdata_o
   type(mct_aVect)             , intent(inout) :: x2o_o, o2x_o
   character(len=*), optional  , intent(in)    :: NLFilename ! Namelist filename
@@ -442,7 +446,7 @@ subroutine ocn_domain_mct( lsize, gsMap_ocn, dom_ocn)
   type(mct_ggrid), intent(inout) :: dom_ocn
 
 ! Local Variables
-  integer, parameter              :: SHR_REAL_R8 = selected_real_kind (12)
+  integer, parameter              :: SHR_REAL_R8 = selected_real_kind(12)
   integer, pointer                :: idata(:)
   integer                         :: i,j,k
   real(kind=SHR_REAL_R8), pointer :: data(:)