add verbose log settings from pio branch

model/src/w3initmd.F90

@@ -1548,7 +1548,9 @@ SUBROUTINE W3INIT ( IMOD, IsMulti, FEXT, MDS, MTRACE, ODAT, FLGRD,  FLGR2, FLGD,
         WRITE (NDSO,990) DTME21
       END IF
       !
-      WRITE (NDSO,984)
+      if (.not. logfile_is_assigned) then
+        WRITE (NDSO,984)
+      end if
       !
     END IF
     !

model/src/w3odatmd.F90

@@ -558,27 +558,28 @@ MODULE W3ODATMD
   LOGICAL, POINTER        :: FLFORM, FLCOMB, O6INIT
   INTEGER, POINTER        :: PTMETH   ! C. Bunney; Partitioning method
   REAL, POINTER           :: PTFCUT   ! C. Bunney; Part. 5 freq cut
-  character(len=8)   :: runtype = ''                 !< @public the run type (startup,branch,continue)
-  character(len=256) :: initfile = ''                !< @public name of wave initial condition file
-                                                     !! if runtype is startup or branch run, then initfile is used
-  character(len=512) :: user_histfname = ''          !<@public user history filename prefix, timestring
-                                                     !! YYYY-MM-DD-SSSSS will be appended
-  character(len=512) :: user_restfname = ''          !<@public user restart filename prefix, timestring
-                                                     !! YYYY-MM-DD-SSSSS will be appended
-  logical            :: histwr = .false.             !<@public logical to trigger history write
-                                                     !! if true => write history file (snapshot)
-  logical            :: rstwr = .false.              !<@public logical to trigger restart write
-                                                     !! if true => write restart
-  logical            :: use_historync = .false.       !<@public logical flag to use netCDF for gridded
-                                                     !! field output
-  logical            :: use_restartnc = .false.       !<@public logical flag to read and write netCDF restarts
-  logical            :: restart_from_binary = .false. !<@public logical flag for restarting from binary restart
+  character(len=8)   :: runtype = ''                  !< @public the run type (startup,branch,continue)
+  character(len=256) :: initfile = ''                 !< @public name of wave initial condition file
+                                                      !! if runtype is startup or branch run, then initfile is used
+  character(len=512) :: user_histfname = ''           !< @public user history filename prefix, timestring
+                                                      !! YYYY-MM-DD-SSSSS will be appended
+  character(len=512) :: user_restfname = ''           !< @public user restart filename prefix, timestring
+                                                      !! YYYY-MM-DD-SSSSS will be appended
+  logical            :: histwr = .false.              !< @public logical to trigger history write
+                                                      !! if true => write history file (snapshot)
+  logical            :: rstwr = .false.               !< @public logical to trigger restart write
+                                                      !! if true => write restart
+  logical            :: use_historync = .false.       !< @public logical flag to use netCDF for gridded
+                                                      !! field output
+  logical            :: use_restartnc = .false.       !< @public logical flag to read and write netCDF restarts
+  logical            :: restart_from_binary = .false. !< @public logical flag for restarting from binary restart
                                                       ! when use_restartnc is true
-  logical            :: logfile_is_assigned = .false. !<@public logical flag for assignment of nds(1) to specified
+  logical            :: logfile_is_assigned = .false. !< @public logical flag for assignment of nds(1) to specified
                                                       !! log file in mesh cap
-  character(len= 36) :: time_origin = ''             !< @public the time_origin used for netCDF output
-  character(len= 36) :: calendar_name = ''           !< @public the calendar used for netCDF output
-  integer(kind=8)    :: elapsed_secs = 0             !< @public the time in seconds from the time_origin
+  logical            :: verboselog = .true.           !< @public logical flag to enable verbose WW3 native logging
+  character(len= 36) :: time_origin = ''              !< @public the time_origin used for netCDF output
+  character(len= 36) :: calendar_name = ''            !< @public the calendar used for netCDF output
+  integer(kind=8)    :: elapsed_secs = 0              !< @public the time in seconds from the time_origin
   !/
 CONTAINS
   !/ ------------------------------------------------------------------- /

model/src/w3wavemd.F90

@@ -494,6 +494,7 @@ SUBROUTINE W3WAVE ( IMOD, ODAT, TEND, STAMP, NO_OUT &
     use wav_restart_mod , only : write_restart
     use wav_history_mod , only : write_history
     use w3odatmd        , only : histwr, rstwr, use_historync, use_restartnc, user_restfname
+    use w3odatmd        , only : verboselog
     use w3timemd        , only : set_user_timestring
     !
 #ifdef W3_MPI
@@ -673,7 +674,7 @@ SUBROUTINE W3WAVE ( IMOD, ODAT, TEND, STAMP, NO_OUT &
       FLPFLD = FLPFLD .OR. FLOGRD(4,J) .OR. FLOGR2(4,J)
     END DO
     !
-    IF ( IAPROC .EQ. NAPLOG ) BACKSPACE ( NDSO )
+    !IF ( IAPROC .EQ. NAPLOG ) BACKSPACE ( NDSO )
     !
     IF ( FLCOLD ) THEN
       DTDYN = 0.
@@ -2316,7 +2317,7 @@ SUBROUTINE W3WAVE ( IMOD, ODAT, TEND, STAMP, NO_OUT &
           DTG    = DTTST / REAL(NT-IT)
         END IF
         !
-        IF ( FLACT .AND. IT.NE.NT .AND. IAPROC.EQ.NAPLOG ) THEN
+        IF ( FLACT .AND. IT.NE.NT .AND. IAPROC.EQ.NAPLOG .and. verboselog) THEN
           CALL STME21 ( TIME , IDTIME )
           IF ( IDLAST .NE. TIME(1) ) THEN
             WRITE (NDSO,900) ITIME, IPASS, IDTIME(01:19), IDACT, OUTID
@@ -2783,7 +2784,7 @@ SUBROUTINE W3WAVE ( IMOD, ODAT, TEND, STAMP, NO_OUT &
       !
       ! 5.  Update log file ------------------------------------------------ /
       !
-      IF ( IAPROC.EQ.NAPLOG ) THEN
+      IF ( IAPROC.EQ.NAPLOG .and. verboselog) THEN
         !
         CALL STME21 ( TIME , IDTIME )
         IF ( FLCUR ) THEN
@@ -2836,7 +2837,7 @@ SUBROUTINE W3WAVE ( IMOD, ODAT, TEND, STAMP, NO_OUT &
       WRITE (SCREEN,951) STTIME
     END IF
 
-    IF ( IAPROC .EQ. NAPLOG ) WRITE (NDSO,902)
+    IF ( IAPROC .EQ. NAPLOG .and. verboselog) WRITE (NDSO,902)
     !
     DEALLOCATE(FIELD)
     DEALLOCATE(TAUWX, TAUWY)

model/src/wav_comp_nuopc.F90

@@ -44,7 +44,7 @@ module wav_comp_nuopc
   use wav_shr_mod           , only : wav_coupling_to_cice, nwav_elev_spectrum
   use wav_shr_mod           , only : merge_import, dbug_flag
   use w3odatmd              , only : nds, iaproc, napout
-  use w3odatmd              , only : runtype, user_histfname, user_restfname
+  use w3odatmd              , only : runtype, user_histfname, user_restfname, verboselog
   use w3odatmd              , only : use_historync, use_restartnc, restart_from_binary, logfile_is_assigned
   use w3odatmd              , only : time_origin, calendar_name, elapsed_secs
   use wav_shr_mod           , only : casename, multigrid, inst_suffix, inst_index, unstr_mesh
@@ -375,6 +375,14 @@ subroutine InitializeAdvertise(gcomp, importState, exportState, clock, rc)
     if (runtimelog) then
       call ufs_file_setLogUnit('./log.ww3.timer',nu_timer,runtimelog)
     end if
+
+    ! Determine verbose native WW3 logging
+    call NUOPC_CompAttributeGet(gcomp, name="verboselog", value=cvalue, isPresent=isPresent, isSet=isSet, rc=rc)
+    if (ChkErr(rc,__LINE__,u_FILE_u)) return
+    if (isPresent .and. isSet) verboselog=(trim(cvalue)=="true")
+    write(logmsg,*) verboselog
+    call ESMF_LogWrite('WW3_cap: Verbose WW3 native logging is = '//trim(logmsg), ESMF_LOGMSG_INFO)
+
     call advertise_fields(importState, exportState, flds_scalar_name, rc)
     if (ChkErr(rc,__LINE__,u_FILE_u)) return
 
@@ -955,16 +963,37 @@ subroutine InitializeRealize(gcomp, importState, exportState, clock, rc)
     end if
 #endif
     !--------------------------------------------------------------------
-    ! Intialize the list of requested output variables for netCDF output
+    ! Intialize the list of requested output variables for netCDF output.
+    ! This needs to occur after mod_def has been read in w3init since
+    ! some variables are available only if they are defined in the mod_def
     !--------------------------------------------------------------------
 
     if (use_historync) then
       call wav_history_init(stdout)
     end if
+
+    !--------------------------------------------------------------------
+    ! Write the header string for WW3 native logging
+    !--------------------------------------------------------------------
+
+    if (root_task) then
+      if (verboselog) write(stdout,984)
+    end if
+
     if (root_task) call ufs_logtimer(nu_timer,time,start_tod,'InitializeRealize time: ',runtimelog,wtime)
 
     if (dbug_flag > 5) call ESMF_LogWrite(trim(subname)//' done', ESMF_LOGMSG_INFO)
 
+984 format (//                                                       &
+         37x,'  |         input         |      output      |'/       &
+         37x,'  |-----------------------|------------------|'/       &
+         2x,'   step | pass |    date      time   |',                &
+         ' b w l c t r i i1 i5 d | g p t r b f c r2 |'/              &
+         2x,'--------|------|---------------------|',                &
+         '-----------------------|------------------|'/              &
+         2x,'--------+------+---------------------+',                &
+         '---------------------------+--------------+')
+
   end subroutine InitializeRealize
 
   !===============================================================================
@@ -1137,7 +1166,7 @@ subroutine ModelAdvance(gcomp, rc)
     time0(1) = ymd
     time0(2) = hh*10000 + mm*100 + ss
     if ( root_task ) then
-      if (dbug_flag > 5)write(nds(1),'(a,3i4,i10)') 'ymd2date currTime wav_comp_nuopc hh,mm,ss,ymd', hh,mm,ss,ymd
+      write(nds(1),'(a,3i4,i10)') 'ymd2date currTime wav_comp_nuopc hh,mm,ss,ymd', hh,mm,ss,ymd
     end if
     if (root_task) call ufs_logtimer(nu_timer,time,tod,'ModelAdvance time since last step: ',runtimelog,wtime)
     call ufs_settimer(wtime)

model/src/wav_history_mod.F90

@@ -76,6 +76,7 @@ subroutine write_history ( timen )
     use w3wdatmd   , only : wlv, ice, icef, iceh, berg, ust, ustdir, asf, rhoair
     use w3gdatmd   , only : e3df, p2msf, us3df, usspf
     use w3odatmd   , only : noswll
+    use w3odatmd   , only : ndso, iaproc
     use w3adatmd   , only : dw, ua, ud, as, cx, cy, taua, tauadir
     use w3adatmd   , only : hs, wlm, t02, t0m1, t01, fp0, thm, ths, thp0, wbt, wnmean
     use w3adatmd   , only : dtdyn
@@ -134,6 +135,7 @@ subroutine write_history ( timen )
     endif
     ierr = pio_createfile(wav_pio_subsystem, pioid, pio_iotype, trim(fname), nmode)
     call handle_err(ierr, 'pio_create')
+    if (iaproc == 1) write(ndso,'(a)')' Writing history file '//trim(fname)
 
     len_s = noswll + 1                  ! 0:noswll
     len_m = p2msf(3)-p2msf(2) + 1       ! ?
@@ -641,7 +643,7 @@ end subroutine write_var3d
   subroutine wav_history_init(stdout)
 
     use w3gdatmd, only: e3df, p2msf, us3df, usspf
-    use w3odatmd, only: iaproc, napout, nogrp, ngrpp
+    use w3odatmd, only: iaproc, nogrp, ngrpp
     use w3iogomd, only: fldout
     use w3servmd, only: strsplit
 
@@ -715,7 +717,7 @@ subroutine wav_history_init(stdout)
     end do
 
     ! check
-    if ( iaproc == napout ) then
+    if ( iaproc == 1 ) then
       write(stdout,*)
       write(stdout,'(a)')' --------------------------------------------------'
       write(stdout,'(a)')'  Requested gridded output variables : '
@@ -727,6 +729,7 @@ subroutine wav_history_init(stdout)
              '  '//trim(outvars(n)%long_name)
       end do
       write(stdout,*)
+      call flush (stdout)
     end if
 
   end subroutine wav_history_init