Minor cleanup

Remove placeholder / commmented out code in glc_comp_mct Correct revision history comment in glc section of seq_diag_mct
E3SM-Project · Dec 6, 2024 · 2a630b1 · 2a630b1
1 parent 84862b6
commit 2a630b1
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/components/mpas-albany-landice/driver/glc_comp_mct.F b/components/mpas-albany-landice/driver/glc_comp_mct.F
@@ -1490,11 +1490,12 @@ subroutine glc_export_mct(g2x_g, errorCode)
          do i = 1, nCellsSolve
             n = n + 1
 
-            !call route_ice_runoff(0.0_RKIND, & !Recuperate runoff routing switch code (originally in glc_route_ice_runoff module in earlier code), and attach to ice calving flux once present...
+            ! Recuperate runoff routing switch code (originally in glc_route_ice_runoff module in earlier code), 
+            ! and attach to ice calving flux once present...
+            !call route_ice_runoff(0.0_RKIND, & 
             !                      rofi_to_ocn=Fogg_rofi, &
             !                      rofi_to_ice=Figg_rofi)
             g2x_g % rAttr(index_g2x_Fogg_rofi,n)=0.0!...and remove these placeholders
-            !g2x_g % rAttr(index_g2x_Fogg_rofi,n)=0.0001d0 ! dummy value to allow tracking through coupler
             g2x_g % rAttr(index_g2x_Figg_rofi,n)=0.0 !...and remove these placeholders
             g2x_g % rAttr(index_g2x_Fogg_rofl,n) = 0.0 !Attach to subglacial liquid flux once present
 

diff --git a/driver-mct/main/seq_diag_mct.F90 b/driver-mct/main/seq_diag_mct.F90
@@ -1315,7 +1315,8 @@ end subroutine seq_diag_rof_mct
   !     Compute global glc input/output flux diagnostics
   !
   ! !REVISION HISTORY:
-  !    2024-Sept. - S. Price - update
+  !    2008-Jul-10 - T. Craig - update
+  !    2024-Dec-06 - S. Price, J. Wolfe - update
   !
   ! !INTERFACE: ------------------------------------------------------------------