fix typo in pe variable name

rem1776 · Jun 28, 2024 · 432be50 · 432be50
1 parent 7d8aa21
commit 432be50
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/mpp/include/mpp_util.inc b/mpp/include/mpp_util.inc
@@ -122,11 +122,10 @@
 
   !> Opens the warning log file, called during mpp_init
   subroutine mpp_init_warninglog()
-  integer :: p
   logical :: exist
   character(len=11) :: this_pe
   if( pe.EQ.root_pe )then
-    write(this_pe,'(a,i6.6,a)') '.',p,'.out'
+    write(this_pe,'(a,i6.6,a)') '.',pe,'.out'
     inquire( file=trim(warnfile)//this_pe, exist=exist )
     if(exist)then
       open(newunit=warn_unit, file=trim(warnfile)//this_pe, status='REPLACE' )