From 712cb554982e43d4f5ad63236b89413853d47eee Mon Sep 17 00:00:00 2001 From: Aron Roland Date: Tue, 16 Jan 2024 20:56:25 +0100 Subject: [PATCH] ww3_homp: add missing end parallel --- model/src/w3profsmd_pdlib.F90 | 20 +++++++++----------- 1 file changed, 9 insertions(+), 11 deletions(-) diff --git a/model/src/w3profsmd_pdlib.F90 b/model/src/w3profsmd_pdlib.F90 index 14a124a0f..6bc6f2273 100644 --- a/model/src/w3profsmd_pdlib.F90 +++ b/model/src/w3profsmd_pdlib.F90 @@ -872,21 +872,17 @@ SUBROUTINE PDLIB_W3XYPUG_DRIVER ( FACX, FACY, DTG, VGX, VGY, LCALC ) !/ | WAVEWATCH III NOAA/NCEP | !/ | | !/ | Aron Roland (BGS IT&E GmbH) | - !/ | Mathieu Dutour-Sikiric (IRB) | !/ | | !/ | FORTRAN 90 | - !/ | Last update : 10-Jan-2011 | + !/ | Last update : 10-Jan-2024 | !/ +-----------------------------------+ !/ - !/ 10-Jan-2008 : Origination. ( version 3.13 ) - !/ 10-Jan-2011 : Addition of implicit scheme ( version 3.14.4 ) - !/ 06-Feb-2014 : PDLIB parallelization + !/ 16-Jan-2024 : Origination. ( version 7.xx ) !/ ! 1. Purpose : Explicit advection schemes driver ! - ! Propagation in physical space for a given spectral component. - ! Gives the choice of scheme on unstructured grid - ! Use the geographical parall algorithms for further speed. + ! Propagation in physical space for all spectral components. + ! Used for OMPH ! ! 2. Method : ! @@ -911,7 +907,7 @@ SUBROUTINE PDLIB_W3XYPUG_DRIVER ( FACX, FACY, DTG, VGX, VGY, LCALC ) ! None. ! ! 7. Remarks : - ! make the interface between the WAVEWATCH and the WWM code. + ! make the interface for OMPH implementation ! ! 8. Structure : ! @@ -968,13 +964,15 @@ SUBROUTINE PDLIB_W3XYPUG_DRIVER ( FACX, FACY, DTG, VGX, VGY, LCALC ) FLUSH(740+IAPROC) #endif -#ifdef W3_O MPH +#ifdef W3_OMPH !$OMP PARALLEL DO PRIVATE (ISP) #endif DO ISP=1,NSPEC CALL PDLIB_W3XYPUG ( ISP, FACX, FACX, DTG, VGX, VGY, LCALC ) END DO - +#ifdef W3_OMPH + !$OMP END PARALLEL DO +#endif !/ !/ End of PDLIB_W3XYPUG ----------------------------------------------------- / !/