From 93aab17f5852cf102b73f2534676b132efcaee39 Mon Sep 17 00:00:00 2001 From: "denise.worthen" Date: Mon, 24 Apr 2023 15:37:55 -0400 Subject: [PATCH 1/2] fix unassociated pointer --- model/src/w3iorsmd.F90 | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/model/src/w3iorsmd.F90 b/model/src/w3iorsmd.F90 index a969aa9af..d802ec878 100644 --- a/model/src/w3iorsmd.F90 +++ b/model/src/w3iorsmd.F90 @@ -822,10 +822,12 @@ SUBROUTINE W3IORS ( INXOUT, NDSR, DUMFPI, IMOD, FLRSTRT ) IF ( IAPROC .EQ. NAPRST ) THEN ! #ifdef W3_MPI - ALLOCATE ( STAT2(MPI_STATUS_SIZE,NRQRS) ) - CALL MPI_WAITALL & - ( NRQRS, IRQRS , STAT2, IERR_MPI ) - DEALLOCATE ( STAT2 ) + if (asociated(irqrs)) then + ALLOCATE ( STAT2(MPI_STATUS_SIZE,NRQRS) ) + CALL MPI_WAITALL & + ( NRQRS, IRQRS , STAT2, IERR_MPI ) + DEALLOCATE ( STAT2 ) + end if #endif ! RPOS = 1_8 + LRECL*(NREC-1_8) From 85c3f44fe738e78e6651d25af30910e30a662bac Mon Sep 17 00:00:00 2001 From: "denise.worthen" Date: Mon, 24 Apr 2023 16:04:41 -0400 Subject: [PATCH 2/2] fix misspelling --- model/src/w3iorsmd.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/model/src/w3iorsmd.F90 b/model/src/w3iorsmd.F90 index d802ec878..4c65e75f3 100644 --- a/model/src/w3iorsmd.F90 +++ b/model/src/w3iorsmd.F90 @@ -822,7 +822,7 @@ SUBROUTINE W3IORS ( INXOUT, NDSR, DUMFPI, IMOD, FLRSTRT ) IF ( IAPROC .EQ. NAPRST ) THEN ! #ifdef W3_MPI - if (asociated(irqrs)) then + if (associated(irqrs)) then ALLOCATE ( STAT2(MPI_STATUS_SIZE,NRQRS) ) CALL MPI_WAITALL & ( NRQRS, IRQRS , STAT2, IERR_MPI )