address review comments

ESCOMP · May 23, 2024 · 5abf5a7 · 5abf5a7
1 parent 6aff3eb
commit 5abf5a7
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/musica/micm/micm.F90 b/musica/micm/micm.F90
@@ -66,7 +66,7 @@ subroutine micm_register(constituents, errcode, errmsg)
         errcode = errcode, &
         errmsg = errmsg)
       if (errcode /= 0) return
-    end associate
+    end associate ! map
     end do
 
   end subroutine micm_register

diff --git a/musica/util.F90 b/musica/util.F90
@@ -35,4 +35,4 @@ logical function has_error_occurred(error, error_code, error_message)
     has_error_occurred = .true.
   end function has_error_occurred
 
-end module musica_ccpp_util
+end module musica_ccpp_util