diff --git a/model/src/w3initmd.F90 b/model/src/w3initmd.F90
index 044a18760..4badbcb1a 100644
--- a/model/src/w3initmd.F90
+++ b/model/src/w3initmd.F90
@@ -2272,22 +2272,18 @@ SUBROUTINE W3MPIO ( IMOD )
!
IF ( IAPROC .LE. NAPROC ) THEN
IT = IT0
-#endif
#ifdef W3_MPIT
WRITE (NDST,9010) '(SEND)'
#endif
!
-#ifdef W3_MPI
IF ( FLGRDALL( 1, 12) ) THEN
IH = IH + 1
IT = IT + 1
CALL MPI_SEND_INIT (ICEF (IAPROC), 1, WW3_FIELD_VEC, IROOT, IT, &
MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 1/09', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 1) ) THEN
@@ -2295,11 +2291,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (HS (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/01', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 2) ) THEN
@@ -2307,11 +2301,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (WLM (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/02', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 3) ) THEN
@@ -2319,11 +2311,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (T02 (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/03', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 4) ) THEN
@@ -2331,11 +2321,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (T0M1 (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/04', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 5) ) THEN
@@ -2343,11 +2331,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (T01 (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/05', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 6) .OR. FLGRDALL( 2,18) ) THEN
@@ -2356,11 +2342,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (FP0 (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/06', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 7) ) THEN
@@ -2368,11 +2352,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (THM (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/07', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 8) ) THEN
@@ -2380,11 +2362,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (THS (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/09', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 9) ) THEN
@@ -2392,11 +2372,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (THP0 (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/09', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 10) ) THEN
@@ -2404,11 +2382,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (HSIG (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/10', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 11) ) THEN
@@ -2416,11 +2392,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (STMAXE (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/11', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 12) ) THEN
@@ -2428,11 +2402,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (STMAXD (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/12', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 13) ) THEN
@@ -2440,11 +2412,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (HMAXE (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/13', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 14) ) THEN
@@ -2452,11 +2422,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (HCMAXE (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/14', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 15) ) THEN
@@ -2464,11 +2432,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (HMAXD (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/15', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 16) ) THEN
@@ -2476,11 +2442,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (HCMAXD (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/16', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 17) ) THEN
@@ -2488,11 +2452,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (WBT (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/17', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 19) ) THEN
@@ -2500,11 +2462,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (WNMEAN(1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/19', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 3, 1) ) THEN
@@ -2513,11 +2473,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (EF(1,IK),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, 'EF', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -2527,11 +2485,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (TH1M(1,IK),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, 'TH1M', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -2541,11 +2497,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (STH1M(1,IK),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, 'STH1M', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -2555,11 +2509,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (TH2M(1,IK),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, 'TH2M', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -2569,11 +2521,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (STH2M(1,IK),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, 'STH2M', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -2583,11 +2533,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (PHS(1,K),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/01', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -2597,11 +2545,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (PTP(1,K),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/02', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -2611,11 +2557,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (PLP(1,K),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/03', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -2625,11 +2569,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (PDIR(1,K),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/04', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -2639,11 +2581,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (PSI(1,K),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/05', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -2653,11 +2593,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (PWS(1,K),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/06', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -2667,11 +2605,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (PTHP0(1,K),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/07', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -2681,11 +2617,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (PQP (1,K),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/08', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -2695,11 +2629,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (PPE (1,K),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/09', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -2709,11 +2641,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (PGW (1,K),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/10', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -2723,11 +2653,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (PSW (1,K),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/11', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -2737,11 +2665,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (PTM1(1,K),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/12', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -2752,11 +2678,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (PT1 (1,K),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/13', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -2766,11 +2690,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (PT2 (1,K),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/14', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -2780,11 +2702,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (PEP (1,K),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/15', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -2793,11 +2713,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (PWST (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/16', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 4,17) ) THEN
@@ -2805,11 +2723,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (PNR (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/17', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 5, 1) ) THEN
@@ -2817,29 +2733,23 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (UST (IAPROC), 1, WW3_FIELD_VEC, &
IROOT, IT, MPI_COMM_WAVE, IRQGO(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 5/01', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_SEND_INIT (USTDIR(IAPROC), 1, WW3_FIELD_VEC, &
IROOT, IT, MPI_COMM_WAVE, IRQGO(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 5/01', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_SEND_INIT (ASF (IAPROC), 1, WW3_FIELD_VEC, &
IROOT, IT, MPI_COMM_WAVE, IRQGO(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 5/01', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 5, 2) ) THEN
@@ -2847,11 +2757,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (CHARN(1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 5/02', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 5, 3) ) THEN
@@ -2859,11 +2767,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (CGE (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 5/03', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 5, 4) ) THEN
@@ -2871,11 +2777,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (PHIAW(1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 5/04', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 5, 5) ) THEN
@@ -2883,20 +2787,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (TAUWIX(1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 5/05', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_SEND_INIT (TAUWIY(1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 5/05', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 5, 6) ) THEN
@@ -2904,20 +2804,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (TAUWNX(1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 5/06', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_SEND_INIT (TAUWNY(1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 5/06', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 5, 7) ) THEN
@@ -2925,11 +2821,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (WHITECAP(1,1),NSEALM , MPI_REAL, IROOT,&
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 5/07', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 5, 8) ) THEN
@@ -2937,11 +2831,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (WHITECAP(1,2),NSEALM , MPI_REAL, IROOT,&
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 5/08', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 5, 9) ) THEN
@@ -2949,11 +2841,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (WHITECAP(1,3),NSEALM , MPI_REAL, IROOT,&
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 5/09', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 5,10) ) THEN
@@ -2961,11 +2851,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (WHITECAP(1,4),NSEALM , MPI_REAL, IROOT,&
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 5/10', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 5, 11) ) THEN
@@ -2973,11 +2861,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (TWS(1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 5/11', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 6, 1) ) THEN
@@ -2985,29 +2871,23 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (SXX (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/01', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_SEND_INIT (SYY (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/01', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_SEND_INIT (SXY (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/01', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 6, 2) ) THEN
@@ -3015,20 +2895,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (TAUOX (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/02', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_SEND_INIT (TAUOY (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/02', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 6, 3) ) THEN
@@ -3036,11 +2912,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (BHD(1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/03', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 6, 4) ) THEN
@@ -3048,11 +2922,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (PHIOC (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/04', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 6, 5) ) THEN
@@ -3060,20 +2932,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (TUSX (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/05', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_SEND_INIT (TUSY (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/05', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 6, 6) ) THEN
@@ -3081,20 +2949,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (USSX (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/06', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_SEND_INIT (USSY (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/06', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 6, 7) ) THEN
@@ -3102,20 +2966,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (PRMS (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/07', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_SEND_INIT (TPMS (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/07', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 6, 8) ) THEN
@@ -3124,11 +2984,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (US3D(1,IK),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, 'US3D ', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -3138,11 +2996,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (P2SMS(1,K),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, 'P2SMS', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -3151,20 +3007,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (TAUICE (1,1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/10', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_SEND_INIT (TAUICE (1,2),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/10', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 6,11) ) THEN
@@ -3172,11 +3024,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (PHICE (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/11', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 6, 12) ) THEN
@@ -3185,11 +3035,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (USSP(1,IK),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, 'USSP ', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -3198,20 +3046,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (TAUOCX(1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/13', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_SEND_INIT (TAUOCY(1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/13', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 7, 1) ) THEN
@@ -3219,20 +3063,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (ABA (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 7/01', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_SEND_INIT (ABD (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 7/01', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 7, 2) ) THEN
@@ -3240,20 +3080,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (UBA (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 7/02', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_SEND_INIT (UBD (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 7/02', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 7, 3) ) THEN
@@ -3261,29 +3097,23 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (BEDFORMS(1,1),NSEALM , MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 7/03', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_SEND_INIT (BEDFORMS(1,2),NSEALM , MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 7/03', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_SEND_INIT (BEDFORMS(1,3),NSEALM , MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 7/03', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 7, 4) ) THEN
@@ -3291,11 +3121,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (PHIBBL(1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 7/04', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 7, 5) ) THEN
@@ -3303,20 +3131,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (TAUBBL(1,1),NSEALM , MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 7/05', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_SEND_INIT (TAUBBL(1,2),NSEALM , MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 7/05', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 8, 1) ) THEN
@@ -3324,20 +3148,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (MSSX (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 8/01', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_SEND_INIT (MSSY (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 8/01', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 8, 2) ) THEN
@@ -3345,20 +3165,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (MSCX (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 8/02', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_SEND_INIT (MSCY (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 8/02', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 8, 3) ) THEN
@@ -3366,11 +3182,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (MSSD (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 8/03', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 8, 4) ) THEN
@@ -3378,11 +3192,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (MSCD (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 8/04', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 8, 5) ) THEN
@@ -3390,11 +3202,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (QP (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 8/05', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 8, 6) ) THEN
@@ -3402,67 +3212,49 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (QKK (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 8/06', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
-#endif
!
-#ifdef W3_MPI
IF ( FLGRDALL( 8, 7) ) THEN
IH = IH + 1
IT = IT + 1
CALL MPI_SEND_INIT (SKEW (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 8/07', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
-#endif
!
-#ifdef W3_MPI
IF ( FLGRDALL( 8, 8) ) THEN
IH = IH + 1
IT = IT + 1
CALL MPI_SEND_INIT (EMBIA1 (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 8/08', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
-#endif
!
-#ifdef W3_MPI
IF ( FLGRDALL( 8, 9) ) THEN
IH = IH + 1
IT = IT + 1
CALL MPI_SEND_INIT (EMBIA2 (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 8/09', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
-#endif
!
-#ifdef W3_MPI
IF ( FLGRDALL( 9, 1) ) THEN
IH = IH + 1
IT = IT + 1
CALL MPI_SEND_INIT (DTDYN(1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 9/01', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 9, 2) ) THEN
@@ -3470,11 +3262,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (FCUT (1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 9/02', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 9, 3) ) THEN
@@ -3482,11 +3272,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (CFLXYMAX(1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 9/03', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 9, 4) ) THEN
@@ -3494,11 +3282,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (CFLTHMAX(1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 9/04', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 9, 5) ) THEN
@@ -3506,11 +3292,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (CFLKMAX(1),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 9/05', IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
DO I=1, NOEXTR
@@ -3519,23 +3303,19 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_SEND_INIT (USERO(1,I),NSEALM , MPI_REAL, IROOT, &
IT, MPI_COMM_WAVE, IRQGO(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (STRING,'(A3,I2.2)') '10/', I
WRITE (NDST,9011) IH, STRING, IROOT, IT, IRQGO(IH), IERR
#endif
-#ifdef W3_MPI
END IF
END DO
!
NRQGO = IH
-#endif
#ifdef W3_MPIT
WRITE (NDST,9012)
WRITE (NDST,9013) NRQGO, NRQMAX
#endif
!
-#ifdef W3_MPI
END IF !IF ( IAPROC .LE. NAPROC ) THEN
!
IF ( NRQGO .GT. NRQMAX ) THEN
@@ -3556,12 +3336,10 @@ SUBROUTINE W3MPIO ( IMOD )
! 1.c Receives of fields
!
CALL W3XETA ( IMOD, NDSE, NDST )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9010) '(RECV)'
#endif
!
-#ifdef W3_MPI
IH = 0
!
DO I0=1, NAPROC
@@ -3573,11 +3351,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (ICEF (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 1/09', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 1) ) THEN
@@ -3585,11 +3361,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (HS (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/01', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 2) ) THEN
@@ -3597,11 +3371,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (WLM (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/02', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 3) ) THEN
@@ -3609,11 +3381,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (T02 (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/03', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 4) ) THEN
@@ -3621,11 +3391,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (T0M1 (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/04', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 5) ) THEN
@@ -3633,11 +3401,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (T01(I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/05', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 6) .OR. FLGRDALL( 2,18) ) THEN
@@ -3646,11 +3412,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (FP0 (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/06', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 7) ) THEN
@@ -3658,11 +3422,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (THM (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/07', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 8) ) THEN
@@ -3670,11 +3432,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (THS (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/08', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 9) ) THEN
@@ -3682,11 +3442,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (THP0 (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/09', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 10) ) THEN
@@ -3694,11 +3452,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (HSIG (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/10', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 11) ) THEN
@@ -3706,11 +3462,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (STMAXE (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/11', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 12) ) THEN
@@ -3718,11 +3472,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (STMAXD(I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/12', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 13) ) THEN
@@ -3730,11 +3482,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (HMAXE (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/13', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 14) ) THEN
@@ -3742,11 +3492,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (HCMAXE(I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/14', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 15) ) THEN
@@ -3754,11 +3502,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (HMAXD (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/15', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 16) ) THEN
@@ -3766,11 +3512,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (HCMAXD(I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/16', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 17) ) THEN
@@ -3778,11 +3522,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (WBT(I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/17', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 2, 19) ) THEN
@@ -3790,11 +3532,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (WNMEAN(I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 2/19', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 3, 1) ) THEN
@@ -3803,11 +3543,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (EF(I0,IK),1,WW3_FIELD_VEC, IFROM, IT,&
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, 'EF', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -3817,11 +3555,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (TH1M(I0,IK),1,WW3_FIELD_VEC, IFROM, IT,&
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, 'TH1M', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -3831,11 +3567,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (STH1M(I0,IK),1,WW3_FIELD_VEC, IFROM, IT,&
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, 'STH1M', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -3845,11 +3579,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (TH2M(I0,IK),1,WW3_FIELD_VEC, IFROM, IT,&
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, 'TH2M', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -3859,11 +3591,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (STH2M(I0,IK),1,WW3_FIELD_VEC, IFROM, IT,&
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, 'STH2M', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -3873,11 +3603,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (PHS(I0,K),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/01', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -3887,11 +3615,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (PTP(I0,K),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/02', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -3901,11 +3627,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (PLP(I0,K),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/03', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -3915,11 +3639,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (PDIR(I0,K),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/04', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -3929,11 +3651,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (PSI(I0,K),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/05', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -3943,11 +3663,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (PWS(I0,K),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/06', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -3957,11 +3675,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (PTHP0(I0,K),1,WW3_FIELD_VEC, IFROM, IT,&
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/07', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -3971,11 +3687,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (PQP(I0,K),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/08', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -3985,11 +3699,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (PPE(I0,K),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/09', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -3999,11 +3711,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (PGW(I0,K),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/10', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -4013,11 +3723,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (PSW(I0,K),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/11', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -4027,11 +3735,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (PTM1(I0,K),1,WW3_FIELD_VEC, IFROM, IT,&
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/12', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -4041,11 +3747,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (PT1(I0,K),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/13', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -4055,11 +3759,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (PT2(I0,K),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/14', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -4069,11 +3771,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (PEP(I0,K),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/15', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -4082,11 +3782,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (PWST (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/16', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 4,17) ) THEN
@@ -4094,11 +3792,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (PNR (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 4/17', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 5, 1) ) THEN
@@ -4106,29 +3802,23 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (UST (I0), 1, WW3_FIELD_VEC, IFROM, &
IT, MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 5/01', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_RECV_INIT (USTDIR(I0), 1, WW3_FIELD_VEC, IFROM, &
IT, MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 5/01', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_RECV_INIT (ASF (I0), 1, WW3_FIELD_VEC, IFROM, &
IT, MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 5/01', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 5, 2) ) THEN
@@ -4136,11 +3826,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (CHARN(I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 5/02', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 5, 3) ) THEN
@@ -4148,11 +3836,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (CGE (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 5/03', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 5, 4) ) THEN
@@ -4160,11 +3846,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (PHIAW(I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 5/04', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 5, 5) ) THEN
@@ -4172,20 +3856,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (TAUWIX(I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 5/05', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_RECV_INIT (TAUWIY(I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 5/05', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 5, 6) ) THEN
@@ -4193,20 +3873,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (TAUWNX(I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 5/06', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_RECV_INIT (TAUWNY(I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 5/06', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 5, 7) ) THEN
@@ -4214,11 +3890,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (WHITECAP(I0,1),1,WW3_FIELD_VEC, IFROM, &
IT, MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 5/07', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 5, 8) ) THEN
@@ -4226,11 +3900,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (WHITECAP(I0,2),1,WW3_FIELD_VEC, IFROM, &
IT, MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 5/08', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 5, 9) ) THEN
@@ -4238,11 +3910,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (WHITECAP(I0,3),1,WW3_FIELD_VEC, IFROM, &
IT, MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 5/09', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 5,10) ) THEN
@@ -4250,11 +3920,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (WHITECAP(I0,4),1,WW3_FIELD_VEC, IFROM, &
IT, MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 5/10', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 5,11) ) THEN
@@ -4262,11 +3930,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (TWS(I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 5/11', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 6, 1) ) THEN
@@ -4274,29 +3940,23 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (SXX (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/01', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_RECV_INIT (SYY (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/01', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_RECV_INIT (SXY (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/01', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 6, 2) ) THEN
@@ -4304,20 +3964,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (TAUOX (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/02', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_RECV_INIT (TAUOY (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/02', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 6, 3) ) THEN
@@ -4325,11 +3981,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (BHD(I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/03', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 6, 4) ) THEN
@@ -4337,11 +3991,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (PHIOC (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/04', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 6, 5) ) THEN
@@ -4349,20 +4001,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (TUSX (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/05', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_RECV_INIT (TUSY (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/05', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 6, 6) ) THEN
@@ -4370,20 +4018,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (USSX (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/06', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_RECV_INIT (USSY (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/06', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 6, 7) ) THEN
@@ -4391,20 +4035,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (PRMS (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/07', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_RECV_INIT (TPMS (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/07', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 6, 8) ) THEN
@@ -4413,11 +4053,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (US3D(I0,IK),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, 'US3D ', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -4427,11 +4065,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (P2SMS(I0,K),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, 'P3SMS', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -4440,20 +4076,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (TAUICE (I0,1),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/10', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_RECV_INIT (TAUICE (I0,2),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/10', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 6,11) ) THEN
@@ -4461,11 +4093,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (PHICE (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/11', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 6, 12) ) THEN
@@ -4474,11 +4104,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (USSP(I0,IK),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, 'USSP ', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END DO
END IF
!
@@ -4487,20 +4115,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (TAUOCX(I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/13', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_RECV_INIT (TAUOCY(I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 6/13', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 7, 1) ) THEN
@@ -4508,20 +4132,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (ABA (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 7/01', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_RECV_INIT (ABD (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 7/01', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 7, 2) ) THEN
@@ -4529,20 +4149,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (UBA (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 7/02', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_RECV_INIT (UBD (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 7/02', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 7, 3) ) THEN
@@ -4550,29 +4166,23 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (BEDFORMS(I0,1),1,WW3_FIELD_VEC, IFROM, &
IT, MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 7/03', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_RECV_INIT (BEDFORMS(I0,2),1,WW3_FIELD_VEC, IFROM, &
IT, MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 7/03', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_RECV_INIT (BEDFORMS(I0,3),1,WW3_FIELD_VEC, IFROM, &
IT, MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 7/03', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 7, 4) ) THEN
@@ -4580,11 +4190,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (PHIBBL(I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 7/04', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 7, 5) ) THEN
@@ -4592,20 +4200,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (TAUBBL(I0,1),1,WW3_FIELD_VEC, IFROM, &
IT, MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 7/05', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_RECV_INIT (TAUBBL(I0,2),1,WW3_FIELD_VEC, IFROM, &
IT, MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 7/05', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 8, 1) ) THEN
@@ -4613,20 +4217,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (MSSX (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 8/01', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_RECV_INIT (MSSY (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 8/01', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 8, 2) ) THEN
@@ -4634,20 +4234,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (MSCX (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 8/02', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT + 1
CALL MPI_RECV_INIT (MSCY (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 8/02', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 8, 3) ) THEN
@@ -4655,11 +4251,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (MSSD (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 8/03', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 8, 4) ) THEN
@@ -4667,11 +4261,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (MSCD (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 8/04', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 8, 5) ) THEN
@@ -4679,11 +4271,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (QP (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 8/05', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 8, 6) ) THEN
@@ -4691,67 +4281,49 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (QKK (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 8/06', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
-#endif
!
-#ifdef W3_MPI
IF ( FLGRDALL( 8, 7) ) THEN
IH = IH + 1
IT = IT + 1
CALL MPI_RECV_INIT (SKEW (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 8/07', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
-#endif
!
-#ifdef W3_MPI
IF ( FLGRDALL( 8, 8) ) THEN
IH = IH + 1
IT = IT + 1
CALL MPI_RECV_INIT (EMBIA1 (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 8/08', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
-#endif
!
-#ifdef W3_MPI
IF ( FLGRDALL( 8, 9) ) THEN
IH = IH + 1
IT = IT + 1
CALL MPI_RECV_INIT (EMBIA2 (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 8/09', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
-#endif
!
-#ifdef W3_MPI
IF ( FLGRDALL( 9, 1) ) THEN
IH = IH + 1
IT = IT + 1
CALL MPI_RECV_INIT (DTDYN(I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 9/01', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 9, 2) ) THEN
@@ -4759,11 +4331,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (FCUT (I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 9/02', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 9, 3) ) THEN
@@ -4771,11 +4341,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (CFLXYMAX(I0),1,WW3_FIELD_VEC, IFROM, IT,&
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 9/03', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 9, 4) ) THEN
@@ -4783,11 +4351,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (CFLTHMAX(I0),1,WW3_FIELD_VEC, IFROM, IT,&
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 9/04', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLGRDALL( 9, 5) ) THEN
@@ -4795,11 +4361,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (CFLKMAX(I0),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9011) IH, ' 9/05', IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
DO I=1, NOEXTR
@@ -4809,25 +4373,21 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT + 1
CALL MPI_RECV_INIT (USERO(I0,I),1,WW3_FIELD_VEC, IFROM, IT, &
MPI_COMM_WAVE, IRQGO2(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (STRING,'(A3,I2.2)') '10/', I
WRITE (NDST,9011) IH, STRING, IFROM, IT, IRQGO2(IH), IERR
#endif
-#ifdef W3_MPI
END IF
END DO
!
END DO
!
NRQGO2 = IH
-#endif
#ifdef W3_MPIT
WRITE (NDST,9012)
WRITE (NDST,9014) NRQGO2, NRQMAX*NAPROC
#endif
!
-#ifdef W3_MPI
CALL W3SETA ( IMOD, NDSE, NDST )
!
END IF ! IF ( IAPROC .EQ. NAPFLD ) THEN
@@ -4853,7 +4413,6 @@ SUBROUTINE W3MPIO ( IMOD )
ALLOCATE ( OUTPTS(IMOD)%OUT4%IRQRS(3*NAPROC) )
ENDIF
IRQRS => OUTPTS(IMOD)%OUT4%IRQRS
-#endif
!
! 2.b Fields at end of file (always)
!
@@ -4861,39 +4420,32 @@ SUBROUTINE W3MPIO ( IMOD )
WRITE (NDST,9020)
#endif
!
-#ifdef W3_MPI
IF ( IAPROC.NE.NAPRST .AND. IAPROC.LE.NAPROC ) THEN
!
IH = IH + 1
IT = IT0 + 1
CALL MPI_SEND_INIT (UST (IAPROC), 1, WW3_FIELD_VEC, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S U*', IROOT, IT, IRQRS(IH), IERR
#endif
!
-#ifdef W3_MPI
IH = IH + 1
IT = IT0 + 2
CALL MPI_SEND_INIT (USTDIR(IAPROC), 1, WW3_FIELD_VEC, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S UD', IROOT, IT, IRQRS(IH), IERR
#endif
!
-#ifdef W3_MPI
IH = IH + 1
IT = IT0 + 3
CALL MPI_SEND_INIT (FPIS(IAPROC), 1, WW3_FIELD_VEC, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S FP', IROOT, IT, IRQRS(IH), IERR
#endif
!
-#ifdef W3_MPI
ELSE IF ( IAPROC .EQ. NAPRST ) THEN
DO I0=1, NAPROC
IFROM = I0 - 1
@@ -4903,31 +4455,25 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 1
CALL MPI_RECV_INIT (UST (I0),1,WW3_FIELD_VEC, &
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R U*', IFROM, IT, IRQRS(IH), IERR
#endif
!
-#ifdef W3_MPI
IH = IH + 1
IT = IT0 + 2
CALL MPI_RECV_INIT (USTDIR(I0),1,WW3_FIELD_VEC, &
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R UD', IFROM, IT, IRQRS(IH), IERR
#endif
!
-#ifdef W3_MPI
IH = IH + 1
IT = IT0 + 3
CALL MPI_RECV_INIT (FPIS(I0),1,WW3_FIELD_VEC, &
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R FP', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
END DO
END IF
@@ -4938,20 +4484,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 4
CALL MPI_SEND_INIT (CX(IAPROC), 1, WW3_FIELD_VEC, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S CX', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT0 + 5
CALL MPI_SEND_INIT (CY(IAPROC), 1, WW3_FIELD_VEC, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S CY', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 1, 12) ) THEN
@@ -4959,11 +4501,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 6
CALL MPI_SEND_INIT (ICEF(IAPROC), 1, WW3_FIELD_VEC, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S IF', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 2, 1) ) THEN
@@ -4971,11 +4511,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 7
CALL MPI_SEND_INIT (HS (1), NSEALM, MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S HS', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 2, 2) ) THEN
@@ -4983,11 +4521,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 8
CALL MPI_SEND_INIT (WLM (1), NSEALM, MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S WL', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 2, 4) ) THEN
@@ -4995,11 +4531,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 9
CALL MPI_SEND_INIT (T0M1(1), NSEALM, MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S T0', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
ENDIF
!
IF ( FLOGRR( 2, 5) ) THEN
@@ -5007,11 +4541,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 10
CALL MPI_SEND_INIT (T01 (1), NSEALM, MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S T1', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
ENDIF
!
IF ( FLOGRR( 2, 6) ) THEN
@@ -5019,11 +4551,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 11
CALL MPI_SEND_INIT (FP0 (1), NSEALM, MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S FP', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 2, 7) ) THEN
@@ -5031,11 +4561,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 12
CALL MPI_SEND_INIT (THM (1), NSEALM, MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S TH', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 2, 19) ) THEN
@@ -5043,11 +4571,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 13
CALL MPI_SEND_INIT (WNMEAN(1), NSEALM, MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S WM', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 5, 2) ) THEN
@@ -5055,11 +4581,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 14
CALL MPI_SEND_INIT (CHARN(1), NSEALM, MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S CH', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
ENDIF
!
IF ( FLOGRR( 5, 5) ) THEN
@@ -5067,20 +4591,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 15
CALL MPI_SEND_INIT (TAUWIX(1), NSEALM, MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S WX', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT0 + 16
CALL MPI_SEND_INIT (TAUWIY(1), NSEALM, MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S WY', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 5, 11) ) THEN
@@ -5088,11 +4608,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 17
CALL MPI_SEND_INIT (TWS (1), NSEALM, MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S TS', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 6, 2) ) THEN
@@ -5100,20 +4618,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 18
CALL MPI_SEND_INIT (TAUOX(1), NSEALM, MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S OX', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT0 + 19
CALL MPI_SEND_INIT (TAUOY(1), NSEALM, MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S OY', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 6, 3) ) THEN
@@ -5121,11 +4635,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 20
CALL MPI_SEND_INIT (BHD (1), NSEALM, MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S BH', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 6, 4) ) THEN
@@ -5133,11 +4645,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 21
CALL MPI_SEND_INIT (PHIOC(1), NSEALM, MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S PH', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 6, 5) ) THEN
@@ -5145,20 +4655,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 22
CALL MPI_SEND_INIT (TUSX (1), NSEALM, MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S UX', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT0 + 23
CALL MPI_SEND_INIT (TUSY (1), NSEALM, MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S UY', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 6, 6) ) THEN
@@ -5166,20 +4672,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 24
CALL MPI_SEND_INIT (USSX (1), NSEALM, MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S SX', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT0 + 25
CALL MPI_SEND_INIT (USSY (1), NSEALM, MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S SY', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 6,10) ) THEN
@@ -5187,20 +4689,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 26
CALL MPI_SEND_INIT (TAUICE(1,1), NSEALM, MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S I1', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT0 + 27
CALL MPI_SEND_INIT (TAUICE(1,2), NSEALM, MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S I2', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 6,13) ) THEN
@@ -5208,20 +4706,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 28
CALL MPI_SEND_INIT (TAUOCX(1), NSEALM, MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S TX', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT0 + 29
CALL MPI_SEND_INIT (TAUOCY(1), NSEALM, MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S TY', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 7, 2) ) THEN
@@ -5229,20 +4723,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 30
CALL MPI_SEND_INIT (UBA (1), NSEALM, MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S BA', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT0 + 31
CALL MPI_SEND_INIT (UBD (1), NSEALM, MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S BD', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 7, 4) ) THEN
@@ -5250,11 +4740,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 32
CALL MPI_SEND_INIT (PHIBBL(1), NSEALM, MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S PB', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 7, 5) ) THEN
@@ -5262,20 +4750,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 33
CALL MPI_SEND_INIT (TAUBBL(1,1), NSEALM, MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S T1', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT0 + 34
CALL MPI_SEND_INIT (TAUBBL(1,2), NSEALM, MPI_REAL, &
IROOT, IT, MPI_COMM_WAVE, IRQRS(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'S T2', IROOT, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( IAPROC .EQ. NAPRST ) THEN
@@ -5289,20 +4773,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 4
CALL MPI_RECV_INIT (CX (I0),1,WW3_FIELD_VEC, &
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R CX', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
IH = IT0 + 5
IT = IT + 1
CALL MPI_RECV_INIT (CY (I0),1,WW3_FIELD_VEC, &
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R CY', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 1, 12) ) THEN
@@ -5310,11 +4790,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 6
CALL MPI_RECV_INIT (ICEF (I0),1,WW3_FIELD_VEC, &
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R IF', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 2, 1) ) THEN
@@ -5322,11 +4800,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 7
CALL MPI_RECV_INIT (HS (I0),1,WW3_FIELD_VEC, &
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R HS', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 2, 2) ) THEN
@@ -5334,11 +4810,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 8
CALL MPI_RECV_INIT (WLM (I0),1,WW3_FIELD_VEC, &
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R WL', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 2, 4) ) THEN
@@ -5346,11 +4820,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 9
CALL MPI_RECV_INIT (T0M1(I0),1,WW3_FIELD_VEC, &
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R T0', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
ENDIF
!
IF ( FLOGRR( 2, 5) ) THEN
@@ -5358,11 +4830,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 10
CALL MPI_RECV_INIT (T01 (I0),1,WW3_FIELD_VEC, &
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R T1', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
ENDIF
!
IF ( FLOGRR( 2, 6) ) THEN
@@ -5370,11 +4840,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 11
CALL MPI_RECV_INIT (FP0 (I0),1,WW3_FIELD_VEC, &
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R FP', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 2, 7) ) THEN
@@ -5382,11 +4850,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 12
CALL MPI_RECV_INIT (THM (I0),1,WW3_FIELD_VEC, &
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R TH', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 2, 19) ) THEN
@@ -5394,11 +4860,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 13
CALL MPI_RECV_INIT (WNMEAN(I0),1,WW3_FIELD_VEC, &
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R WM', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 5, 2) ) THEN
@@ -5406,11 +4870,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 14
CALL MPI_RECV_INIT (CHARN(I0),1,WW3_FIELD_VEC, &
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R CH', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
ENDIF
!
IF ( FLOGRR( 5, 5) ) THEN
@@ -5418,20 +4880,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 15
CALL MPI_RECV_INIT (TAUWIX(I0),1,WW3_FIELD_VEC,&
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R WX', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT0 + 16
CALL MPI_RECV_INIT (TAUWIY(I0),1,WW3_FIELD_VEC,&
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R WY', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 5,11) ) THEN
@@ -5439,11 +4897,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 17
CALL MPI_RECV_INIT (TWS (I0),1,WW3_FIELD_VEC, &
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R TS', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 6, 2) ) THEN
@@ -5451,20 +4907,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 18
CALL MPI_RECV_INIT (TAUOX(I0),1,WW3_FIELD_VEC, &
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R OX', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT0 + 19
CALL MPI_RECV_INIT (TAUOY(I0),1,WW3_FIELD_VEC, &
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R OY', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 6, 3) ) THEN
@@ -5472,11 +4924,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 20
CALL MPI_RECV_INIT (BHD (I0),1,WW3_FIELD_VEC, &
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R BH', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 6, 4) ) THEN
@@ -5484,11 +4934,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 21
CALL MPI_RECV_INIT (PHIOC(I0),1,WW3_FIELD_VEC, &
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R PH', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 6, 5) ) THEN
@@ -5496,20 +4944,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 22
CALL MPI_RECV_INIT (TUSX (I0),1,WW3_FIELD_VEC, &
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R UX', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT0 + 23
CALL MPI_RECV_INIT (TUSY (I0),1,WW3_FIELD_VEC, &
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R UY', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 6, 6) ) THEN
@@ -5517,20 +4961,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 24
CALL MPI_RECV_INIT (USSX (I0),1,WW3_FIELD_VEC, &
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R SX', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT0 + 25
CALL MPI_RECV_INIT (USSY (I0),1,WW3_FIELD_VEC, &
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R SY', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 6,10) ) THEN
@@ -5538,20 +4978,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 26
CALL MPI_RECV_INIT (TAUICE(I0,1),1,WW3_FIELD_VEC,&
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R I1', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT0 + 27
CALL MPI_RECV_INIT (TAUICE(I0,2),1,WW3_FIELD_VEC,&
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R I2', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 6,13) ) THEN
@@ -5559,20 +4995,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 28
CALL MPI_RECV_INIT (TAUOCX(I0),1,WW3_FIELD_VEC,&
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R SX', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT0 + 29
CALL MPI_RECV_INIT (TAUOCY(I0),1,WW3_FIELD_VEC,&
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R SY', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 7, 2) ) THEN
@@ -5580,20 +5012,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 30
CALL MPI_RECV_INIT (UBA (I0),1,WW3_FIELD_VEC, &
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R BA', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT0 + 31
CALL MPI_RECV_INIT (UBD (I0),1,WW3_FIELD_VEC, &
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R BD', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 7, 4) ) THEN
@@ -5601,11 +5029,9 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 32
CALL MPI_RECV_INIT (PHIBBL(I0),1,WW3_FIELD_VEC,&
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R PB', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
IF ( FLOGRR( 7, 5) ) THEN
@@ -5613,20 +5039,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 33
CALL MPI_RECV_INIT (TAUBBL(I0,1),1,WW3_FIELD_VEC,&
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R T1', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT0 + 34
CALL MPI_RECV_INIT (TAUBBL(I0,2),1,WW3_FIELD_VEC,&
IFROM, IT, MPI_COMM_WAVE, IRQRS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9021) IH, 'R T2', IFROM, IT, IRQRS(IH), IERR
#endif
-#ifdef W3_MPI
END IF
END DO
!
@@ -5640,7 +5062,6 @@ SUBROUTINE W3MPIO ( IMOD )
ELSE
IT0 = IT0 + 3
ENDIF
-#endif
!
#ifdef W3_MPIT
WRITE (NDST,9022)
@@ -5649,19 +5070,16 @@ SUBROUTINE W3MPIO ( IMOD )
!
! 2.c Data server mode
!
-#ifdef W3_MPI
IF ( IOSTYP .GT. 0 ) THEN
!
NBLKRS = 10
RSBLKS = MAX ( 5 , NSEALM/NBLKRS )
IF ( NBLKRS*RSBLKS .LT. NSEALM ) RSBLKS = RSBLKS + 1
NBLKRS = 1 + (NSEALM-1)/RSBLKS
-#endif
!
#ifdef W3_MPIT
WRITE (NDST,9025) RSBLKS, NBLKRS
#endif
-#ifdef W3_MPI
IH = 0
!
IF ( IAPROC .NE. NAPRST ) THEN
@@ -5677,11 +5095,9 @@ SUBROUTINE W3MPIO ( IMOD )
NSEAB = 1 + JSEAN - JSEA0
CALL MPI_SEND_INIT (VA(1,JSEA0), NSPEC*NSEAB, MPI_REAL, IROOT, IT, &
MPI_COMM_WAVE, IRQRSS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9026) IH, 'S', IB, IROOT, IT, IRQRSS(IH), IERR, NSEAB
#endif
-#ifdef W3_MPI
END DO
!
ELSE
@@ -5703,33 +5119,27 @@ SUBROUTINE W3MPIO ( IMOD )
IBOFF = MOD(IB-1,2)*RSBLKS
CALL MPI_RECV_INIT (VAAUX(1,1+IBOFF,I0), NSPEC*NSEAB, MPI_REAL, &
IFROM, IT, MPI_COMM_WAVE, IRQRSS(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9026) IH, 'R', IB, IFROM, IT, IRQRSS(IH), IERR, NSEAB
#endif
-#ifdef W3_MPI
END IF
END DO
END DO
!
END IF
-#endif
!
#ifdef W3_MPIT
WRITE (NDST,9027)
WRITE (NDST,9028) IH
#endif
-#ifdef W3_MPI
IT0 = IT0 + NBLKRS
!
END IF
!
END IF ! IF ((FLOUT(4) .OR. FLOUT(8)) .and. (.not. LPDLIB)) THEN
-#endif
!
! 3. Set-up for W3IOBC ( SENDs ) ------------------------------------ /
!
-#ifdef W3_MPI
NRQBP = 0
NRQBP2 = 0
IH = 0
@@ -5741,7 +5151,6 @@ SUBROUTINE W3MPIO ( IMOD )
OUTPTS(IMOD)%OUT5%IRQBP2(NBO2(NFBPO)) )
IRQBP1 => OUTPTS(IMOD)%OUT5%IRQBP1
IRQBP2 => OUTPTS(IMOD)%OUT5%IRQBP2
-#endif
!
! 3.a Loops over files and points
!
@@ -5749,7 +5158,6 @@ SUBROUTINE W3MPIO ( IMOD )
WRITE (NDST,9030) 'MPI_SEND_INIT'
#endif
!
-#ifdef W3_MPI
DO J=1, NFBPO
DO I=NBO2(J-1)+1, NBO2(J)
!
@@ -5766,22 +5174,17 @@ SUBROUTINE W3MPIO ( IMOD )
IH = IH + 1
CALL MPI_SEND_INIT (VA(1,JSEA),NSPEC,MPI_REAL, IROOT, IT, MPI_COMM_WAVE, &
IRQBP1(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9031) IH, I, J, IROOT, IT, IRQBP1(IH), IERR
#endif
-#ifdef W3_MPI
END IF
!
END DO
END DO
-#endif
!
! ... End of loops 4.a
!
-#ifdef W3_MPI
NRQBP = IH
-#endif
!
#ifdef W3_MPIT
WRITE (NDST,9032)
@@ -5790,12 +5193,10 @@ SUBROUTINE W3MPIO ( IMOD )
!
! 3.d Set-up for W3IOBC ( RECVs ) ------------------------------------ /
!
-#ifdef W3_MPI
IF ( IAPROC .EQ. NAPBPT ) THEN
!
IH = 0
IT = IT0
-#endif
!
! 3.e Loops over files and points
!
@@ -5803,7 +5204,6 @@ SUBROUTINE W3MPIO ( IMOD )
WRITE (NDST,9030) 'MPI_RECV_INIT'
#endif
!
-#ifdef W3_MPI
DO J=1, NFBPO
DO I=NBO2(J-1)+1, NBO2(J)
!
@@ -5819,17 +5219,14 @@ SUBROUTINE W3MPIO ( IMOD )
ITARG = ISPROC - 1
CALL MPI_RECV_INIT (ABPOS(1,IH),NSPEC,MPI_REAL, ITARG, IT, MPI_COMM_WAVE, &
IRQBP2(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9031) IH, I, J, ITARG, IT, IRQBP2(IH), IERR
#endif
!
-#ifdef W3_MPI
END DO
END DO
!
NRQBP2 = IH
-#endif
!
! ... End of loops 4.e
!
@@ -5838,13 +5235,11 @@ SUBROUTINE W3MPIO ( IMOD )
WRITE (NDST,9033) NRQBP2
#endif
!
-#ifdef W3_MPI
END IF
!
IT0 = IT0 + NBO2(NFBPO)
!
END IF
-#endif
!
#ifdef W3_MPIT
WRITE (NDST,*)
@@ -5852,12 +5247,10 @@ SUBROUTINE W3MPIO ( IMOD )
!
! 4. Set-up for W3IOTR ---------------------------------------------- /
!
-#ifdef W3_MPI
IH = 0
IROOT = NAPTRK - 1
!
IF ( FLOUT(3) ) THEN
-#endif
!
! 4.a U*
!
@@ -5865,7 +5258,6 @@ SUBROUTINE W3MPIO ( IMOD )
WRITE (NDST,9040)
#endif
!
-#ifdef W3_MPI
IF ( IAPROC .NE. NAPTRK ) THEN
ALLOCATE ( OUTPTS(IMOD)%OUT3%IRQTR(2) )
IRQTR => OUTPTS(IMOD)%OUT3%IRQTR
@@ -5873,20 +5265,16 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 1
CALL MPI_SEND_INIT (UST (IAPROC),1,WW3_FIELD_VEC, IROOT, IT, MPI_COMM_WAVE, &
IRQTR(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9041) IH, 'S U*', IROOT, IT, IRQTR(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT0 + 2
CALL MPI_SEND_INIT (USTDIR(IAPROC),1,WW3_FIELD_VEC, IROOT, IT, MPI_COMM_WAVE, &
IRQTR(IH), IERR )
-#endif
#ifdef W3_MPIT
WRITE (NDST,9041) IH, 'S U*', IROOT, IT, IRQTR(IH), IERR
#endif
-#ifdef W3_MPI
ELSE
ALLOCATE ( OUTPTS(IMOD)%OUT3%IRQTR(2*NAPROC) )
IRQTR => OUTPTS(IMOD)%OUT3%IRQTR
@@ -5897,40 +5285,32 @@ SUBROUTINE W3MPIO ( IMOD )
IT = IT0 + 1
CALL MPI_RECV_INIT(UST (I0),1,WW3_FIELD_VEC, IFROM, IT, MPI_COMM_WAVE, &
IRQTR(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9041) IH, 'R U*', IFROM, IT, IRQTR(IH), IERR
#endif
-#ifdef W3_MPI
IH = IH + 1
IT = IT0 + 2
CALL MPI_RECV_INIT(USTDIR(I0),1,WW3_FIELD_VEC, IFROM, IT, MPI_COMM_WAVE, &
IRQTR(IH), IERR)
-#endif
#ifdef W3_MPIT
WRITE (NDST,9041) IH, 'R U*', IFROM, IT, IRQTR(IH), IERR
#endif
-#ifdef W3_MPI
END IF
END DO
END IF
!
NRQTR = IH
IT0 = IT0 + 2
-#endif
!
#ifdef W3_MPIT
WRITE (NDST,9042)
WRITE (NDST,9043) NRQTR
#endif
!
-#ifdef W3_MPI
END IF
-#endif
!
! 5. Set-up remaining counters -------------------------------------- /
!
-#ifdef W3_MPI
IT0PRT = IT0
IT0PNT = IT0PRT + 2*NAPROC
IT0TRK = IT0PNT + 5000