From 2571fc016866898255559355b92347cd354082ce Mon Sep 17 00:00:00 2001
From: laurenchilutti <60401591+laurenchilutti@users.noreply.github.com>
Date: Thu, 23 Feb 2023 12:48:31 -0500
Subject: [PATCH] fix: timer and intialization changes for shield coupler 
 (#79)

---
 SHiELD/coupler_main.F90 | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/SHiELD/coupler_main.F90 b/SHiELD/coupler_main.F90
index d132138d..05dc4d25 100644
--- 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)