diff --git a/model/src/w3profsmd.F90 b/model/src/w3profsmd.F90 index 4b5f8c0ae6..3d50812d08 100644 --- a/model/src/w3profsmd.F90 +++ b/model/src/w3profsmd.F90 @@ -681,7 +681,7 @@ SUBROUTINE W3XYPFSN2 ( ISP, C, LCALC, RD10, RD20, DT, AC) IF (REFPARS(3).LT.0.5.AND.IOBPD(ITH,IP).EQ.0.AND.IOBPA(IP).EQ.0) THEN U(IP) = AC(IP) ! restores reflected boundary values ENDIF -#endif^ +#endif END DO ! update spectrum AC = U diff --git a/model/src/w3srcemd.F90 b/model/src/w3srcemd.F90 index 12ff81291f..11f6137a3d 100644 --- a/model/src/w3srcemd.F90 +++ b/model/src/w3srcemd.F90 @@ -1424,7 +1424,7 @@ SUBROUTINE W3SRCE ( srce_call, IT, ISEA, JSEA, IX, IY, IMOD, & #ifdef W3_PDLIB IF (B_JGS_LIMITER_FUNC == 2) THEN DO IK=1, NK - JAC = CG1(IK)/CLATSL + JAC = CG1(IK)/CLATSL JAC2 = 1./TPI/SIG(IK) FRLOCAL = SIG(IK)*TPIINV #ifdef W3_ST6 @@ -1449,7 +1449,7 @@ SUBROUTINE W3SRCE ( srce_call, IT, ISEA, JSEA, IX, IY, IMOD, & #ifdef W3_ST6 VS(IS) = VS(IS) + VSWL(IS) #endif -#ifndef W3_PDLIB +#ifndef W3_PDLIB #ifdef W3_TR1 VS(IS) = VS(IS) + VSTR(IS) #endif @@ -1491,8 +1491,8 @@ SUBROUTINE W3SRCE ( srce_call, IT, ISEA, JSEA, IX, IY, IMOD, & #endif END DO ! end of loop on IS - !VD = 0 - !VS = 0 + !VD = 0 + !VS = 0 ! DT = MAX ( 0.5, DT ) ! The hardcoded min. dt is a problem for certain cases e.g. laborotary scale problems. ! @@ -1702,7 +1702,8 @@ SUBROUTINE W3SRCE ( srce_call, IT, ISEA, JSEA, IX, IY, IMOD, & RETURN ! return everything is done for the implicit ... END IF ! srce_imp_pre -#endif !W3_PDLIB +!W3_PDLIB +#endif ! #ifdef W3_T WRITE (NDST,9040) DTRAW, DT, SHAVE @@ -1736,7 +1737,7 @@ SUBROUTINE W3SRCE ( srce_call, IT, ISEA, JSEA, IX, IY, IMOD, & eInc1 = VDTR(IS) * DT / MAX ( 1. , (1.-HDT*VDTR(IS))) SPEC(IS) = MAX ( 0. , SPEC(IS)+eInc1 ) END DO -#endif +#endif #ifdef W3_DEBUGSRC IF (IX == DEBUG_NODE) WRITE(44,'(1EN15.4)') SUM(VSIN) @@ -2257,7 +2258,7 @@ SUBROUTINE W3SRCE ( srce_call, IT, ISEA, JSEA, IX, IY, IMOD, & IF (IX .eq. DEBUG_NODE) THEN WRITE(740+IAPROC,*) '5 : sum(SPEC)=', sum(SPEC) END IF -#endif +#endif #ifdef W3_REF1 IF (REFLEC(1).GT.0.OR.REFLEC(2).GT.0.OR.(REFLEC(4).GT.0.AND.BERG.GT.0)) THEN diff --git a/regtests/bin/matrix_cmake_ncep b/regtests/bin/matrix_cmake_ncep index 19ce9c5e13..771b6f96ed 100755 --- a/regtests/bin/matrix_cmake_ncep +++ b/regtests/bin/matrix_cmake_ncep @@ -74,7 +74,7 @@ EOF batchq='slurm' basemodcomp='intel/2022.1.2' basemodmpi='impi/2022.1.2' - hpcstackpath='/work/noaa/epic-ps/hpc-stack/libs/intel/2022.1.2/modulefiles/stack' + hpcstackpath='/work/noaa/epic-ps/role-epic-ps/hpc-stack/libs/intel-2022.1.2/modulefiles/stack' hpcstackversion='hpc/1.2.0' modcomp='hpc-intel/2022.1.2' modmpi='hpc-impi/2022.1.2'