fix: timer and intialization changes for shield coupler (#79)

NOAA-GFDL · Feb 23, 2023 · 2571fc0 · 2571fc0
1 parent 7c47be3
commit 2571fc0
Showing 1 changed file with 9 additions and 5 deletions.
diff --git a/SHiELD/coupler_main.F90 b/SHiELD/coupler_main.F90
@@ -118,19 +118,20 @@ program coupler_main
 !#######################################################################
 
  call fms_init()
- call sat_vapor_pres_init()
- call fmsconstants_init()
 
- initClock = mpp_clock_id( 'Initialization' )
+ initClock = mpp_clock_id( '-Initialization' )
  call mpp_clock_begin (initClock) !nesting problem
 
+ call sat_vapor_pres_init()
+ call fmsconstants_init()
+
  call coupler_init
  call print_memuse_stats('after coupler init')
 
  call mpp_set_current_pelist()
  call mpp_clock_end (initClock) !end initialization
- mainClock = mpp_clock_id( 'Main loop' )
- termClock = mpp_clock_id( 'Termination' )
+
+ mainClock = mpp_clock_id( '-Main Loop' )
  call mpp_clock_begin(mainClock) !begin main loop
 
  do nc = 1, num_cpld_calls
@@ -178,9 +179,12 @@ program coupler_main
 
  call mpp_set_current_pelist()
  call mpp_clock_end(mainClock)
+
+ termClock = mpp_clock_id( '-Termination' )
  call mpp_clock_begin(termClock)
 
  call coupler_end
+
  call mpp_set_current_pelist()
  call mpp_clock_end(termClock)