Corrects subroutine names

E3SM-Project · Feb 27, 2024 · 6767fe7 · 6767fe7
1 parent 1662bc0
commit 6767fe7
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/components/elm/src/biogeochem/CNPBudgetMod.F90 b/components/elm/src/biogeochem/CNPBudgetMod.F90
@@ -376,7 +376,7 @@ subroutine Reset(mode, budg_fluxL, budg_fluxG, budg_fluxN, budg_stateL, budg_sta
     !
     integer :: year, mon, day, sec
     integer :: ip
-    character(*),parameter :: subName = '(WaterBudget_Reset) '
+    character(*),parameter :: subName = '(Reset) '
 
     if (.not.present(mode)) then
        call get_curr_date(year, mon, day, sec)
@@ -470,7 +470,7 @@ subroutine CNPBudget_Restart(bounds, ncid, flag)
     type(file_desc_t), intent(inout) :: ncid   ! netcdf id
     character(len=*) , intent(in)    :: flag   ! 'read' or 'write'
     !
-    character(len=*),parameter :: subname = 'WaterBudget_Restart'
+    character(len=*),parameter :: subname = 'CNPBudget_Restart'
 
     select case (trim(flag))
     case ('define')