add only keywords

NOAA-GFDL · Jul 17, 2018 · 290d4f5 · 290d4f5
1 parent ad1a295
commit 290d4f5
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 7 deletions.
diff --git a/config_src/mct_driver/ocn_cap_methods.F90 b/config_src/mct_driver/ocn_cap_methods.F90
@@ -1,6 +1,6 @@
 module ocn_cap_methods
 
-  use ESMF
+  use ESMF,                only: ESMF_clock, ESMF_time, ESMF_ClockGet, ESMF_TimeGet
   use MOM_ocean_model,     only: ocean_public_type, ocean_state_type
   use MOM_surface_forcing, only: ice_ocean_boundary_type
   use MOM_grid,            only: ocean_grid_type

diff --git a/config_src/nuopc_driver/mom_cap.F90 b/config_src/nuopc_driver/mom_cap.F90
@@ -414,9 +414,9 @@ module mom_cap_mod
   use shr_file_mod,             only: shr_file_setLogUnit, shr_file_setLogLevel
 #endif
 
-  use ESMF
-  use NUOPC
-  use NUOPC_Model, &
+  use ESMF                      ! TODO: only: ...
+  use NUOPC                     ! TODO: only: ...
+  use NUOPC_Model, &            ! TODO: only: ...
     model_routine_SS           => SetServices, &
     model_label_DataInitialize => label_DataInitialize, &
     model_label_Advance        => label_Advance, &
@@ -425,7 +425,7 @@ module mom_cap_mod
 #endif
     model_label_Finalize       => label_Finalize
 
-  use time_utils_mod
+  use time_utils_mod,           only: esmf2fms_time
 
   implicit none
   private

diff --git a/config_src/nuopc_driver/mom_cap_methods.F90 b/config_src/nuopc_driver/mom_cap_methods.F90
@@ -4,7 +4,9 @@ module mom_cap_methods
   ! This file is part of MOM6. See LICENSE.md for the license.
 
   ! mct modules
-  use ESMF
+  use ESMF,                only: ESMF_time, ESMF_ClockGet, ESMF_TimeGet, ESMF_State, ESMF_Clock
+  use ESMF,                only: ESMF_KIND_R8, ESMF_Field, ESMF_SUCCESS, ESMF_LogFoundError
+  use ESMF,                only: ESMF_LOGERR_PASSTHRU, ESMF_StateGet, ESMF_FieldGet
   use perf_mod,            only: t_startf, t_stopf
   use MOM_ocean_model,     only: ocean_public_type, ocean_state_type
   use MOM_surface_forcing, only: ice_ocean_boundary_type
@@ -550,7 +552,7 @@ subroutine mom_import(ocean_public, grid, importState, ice_ocean_boundary, &
           write(logunit,F01)'import: day, secs, j, i, t_flux          = '&
                             ,day,secs,j,i,ice_ocean_boundary%t_flux(i-i0,j-j0)
           !write(logunit,F01)'import: day, secs, j, i, latent_flux     = '&
-                            ,day,secs,j,i,ice_ocean_boundary%latent_flux(i-i0,j-j0)
+          !                  ,day,secs,j,i,ice_ocean_boundary%latent_flux(i-i0,j-j0)
           write(logunit,F01)'import: day, secs, j, i, runoff          = '&
                             ,day,secs,j,i,ice_ocean_boundary%runoff(i-i0,j-j0)
           write(logunit,F01)'import: day, secs, j, i, psurf           = '&