Check if irqrs is associated before use in w3iorsmd.F90 (#1001)

NOAA-EMC · Apr 25, 2023 · 0392615 · 0392615
1 parent e219907
commit 0392615
Showing 1 changed file with 6 additions and 4 deletions.
diff --git 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 (associated(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)