Restrict UOST output to NAPOUT (port 1afc92f)

erinethomas · Oct 31, 2024 · 502f65d · 502f65d
1 parent 4adda79
commit 502f65d
Showing 1 changed file with 17 additions and 13 deletions.
diff --git a/model/src/w3uostmd.F90 b/model/src/w3uostmd.F90
@@ -56,7 +56,7 @@ MODULE W3UOSTMD
   !/
 
   USE W3GDATMD, ONLY: GRID, SGRD, GRIDS, SGRDS
-  USE W3ODATMD, ONLY: NDSO, NDSE
+  USE W3ODATMD, ONLY: NDSO, NDSE, IAPROC, NAPOUT
   USE W3SERVMD, ONLY: EXTCDE
 #ifdef W3_S
   USE W3SERVMD, ONLY: STRACE
@@ -207,12 +207,14 @@ SUBROUTINE UOST_INITGRID(IGRID, FILELOCAL, FILESHADOW, LOCALFACTOR, SHADOWFACTOR
       !  warning the user that for cells too small UOST may be inaccurate
       CGMAX = 20 ! simply taking a high value for the max group velocity to give an indication of this threshold
       MINSIZE = CGMAX*GRD%DTMAX/1000
-      WRITE(NDSO,*)'*** WAVEWATCH-III WARNING IN W3UOST/UOST_INITGRID'
-      WRITE(NDSO,*)'UOST: grid ',TRIM(GRD%GNAME),':'
-      WRITE(NDSO,*)'      global time step == ', GRD%DTMAX, ' s'
-      WRITE(NDSO,*)'      FOR CELLS SMALLER THAN ABOUT ', MINSIZE,    &
-           ' KM UOST MAY UNDERESTIMATE THE DISSIPATION'
-      WRITE(NDSO,*)
+      IF (IAPROC .EQ. NAPOUT) THEN
+        WRITE(NDSO,*)'*** WAVEWATCH-III WARNING IN W3UOST/UOST_INITGRID'
+        WRITE(NDSO,*)'UOST: grid ',TRIM(GRD%GNAME),':'
+        WRITE(NDSO,*)'      global time step == ', GRD%DTMAX, ' s'
+        WRITE(NDSO,*)'      FOR CELLS SMALLER THAN ABOUT ', MINSIZE,    &
+             ' KM UOST MAY UNDERESTIMATE THE DISSIPATION'
+        WRITE(NDSO,*)
+      ENDIF
     ENDIF
   END SUBROUTINE UOST_INITGRID
 
@@ -413,9 +415,10 @@ SUBROUTINE LOAD_ALPHABETA(GRD, SGD, FILEUNIT)
            'FILE '//FILENAME(:J)//' NOT FOUND. QUITTING'
       CALL EXTCDE (9999)
     ENDIF
-    WRITE(NDSO,*)'FILE '//FILENAME(:J)//' FOUND.'// &
-         'LOADING UOST SETTINGS FOR GRID '//GRD%GNAME
-
+    IF (IAPROC .EQ. NAPOUT) THEN
+      WRITE(NDSO,*)'FILE '//FILENAME(:J)//' FOUND.'// &
+           'LOADING UOST SETTINGS FOR GRID '//GRD%GNAME
+    ENDIF
     CALL LOAD_ALPHABETA_FROMFILE(FILEUNIT, FILENAME(:J), GRD%NX, GRD%NY, SGD%NK, SGD%NTH,&
          GRD%UOSTABMULTFACTOR, GRD%UOSTLOCALALPHA, GRD%UOSTLOCALBETA,&
          GRD%UOSTCELLSIZE, GRD%UOST_LCL_OBSTRUCTED)
@@ -431,9 +434,10 @@ SUBROUTINE LOAD_ALPHABETA(GRD, SGD, FILEUNIT)
            'FILE '//FILENAME(:J)//' NOT FOUND. QUITTING'
       CALL EXTCDE (9999)
     ENDIF
-    WRITE(NDSO,*)'FILE '//FILENAME(:J)//' FOUND.'//&
-         'LOADING UOST SETTINGS FOR GRID '//GRD%GNAME
-
+    IF (IAPROC .EQ. NAPOUT) THEN
+      WRITE(NDSO,*)'FILE '//FILENAME(:J)//' FOUND.'//&
+           'LOADING UOST SETTINGS FOR GRID '//GRD%GNAME
+    ENDIF
     CALL LOAD_ALPHABETA_FROMFILE(FILEUNIT, FILENAME(:J), GRD%NX, GRD%NY, SGD%NK, SGD%NTH,&
          GRD%UOSTABMULTFACTOR, GRD%UOSTSHADOWALPHA, GRD%UOSTSHADOWBETA,&
          GRD%UOSTCELLSIZE, GRD%UOST_SHD_OBSTRUCTED)