fix issue with standalone ww3 run

Author: uturuncoglu

model/src/w3adatmd.F90

@@ -940,7 +940,7 @@ SUBROUTINE W3DIMA  ( IMOD, NDSE, NDST, D_ONLY )
 #ifdef W3_S
     USE W3SERVMD, ONLY: STRACE
 #endif
-    use w3odatmd, only : use_cmeps
+    use w3odatmd, only : use_cmeps, standalone
     !
     !/
     !/ ------------------------------------------------------------------- /
@@ -1343,7 +1343,7 @@ SUBROUTINE W3DIMA  ( IMOD, NDSE, NDST, D_ONLY )
       ALLOCATE (WADATS(IMOD)%IC3CG(0:NK+1,0:300), STAT=ISTAT )
       CHECK_ALLOC_STATUS ( ISTAT )
 #endif
-      if (use_cmeps) then
+      if (.not. standalone .and. use_cmeps) then
          allocsize = 1
       else
          allocsize = nsea

model/src/w3idatmd.F90

@@ -507,7 +507,7 @@ SUBROUTINE W3DIMI  ( IMOD, NDSE, NDST, FLAGSTIDEIN )
 #ifdef W3_S
     USE W3SERVMD,  ONLY: STRACE
 #endif
-    use w3odatmd, only : use_cmeps
+    use w3odatmd, only : use_cmeps, standalone
     !
     IMPLICIT NONE
     !/
@@ -633,7 +633,7 @@ SUBROUTINE W3DIMI  ( IMOD, NDSE, NDST, FLAGSTIDEIN )
       CHECK_ALLOC_STATUS ( ISTAT )
     END IF
     !
-    if (use_cmeps) then
+    if (.not. standalone .and. use_cmeps) then
        allocsizex = 1
        allocsizey = 1
     else

model/src/w3odatmd.F90

@@ -595,6 +595,7 @@ MODULE W3ODATMD
   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            :: use_cmeps = .false.            !< @public a logical flag to indicate cmeps is providing the forcing
+  logical            :: standalone = .false.           !< @public logical to control whether wave model is run standalone
   !/
 CONTAINS
   !/ ------------------------------------------------------------------- /

model/src/w3updtmd.F90

@@ -150,7 +150,7 @@ MODULE W3UPDTMD
   USE W3SERVMD, ONLY : STRACE
 #endif
   USE W3TIMEMD, ONLY : DSEC21
-  use w3odatmd, only : use_cmeps
+  use w3odatmd, only : use_cmeps, standalone
   ! used/reused in module
   real :: mag, dir
   !/
@@ -292,7 +292,7 @@ SUBROUTINE W3UCUR ( FLFRST )
 #ifdef W3_S
     CALL STRACE (IENT, 'W3UCUR')
 #endif
-    if (use_cmeps) then
+    if (.not. standalone .and. use_cmeps) then
       do isea = 1,nsea
         ix = mapsf(isea,1)
         iy = mapsf(isea,2)
@@ -475,7 +475,7 @@ SUBROUTINE W3UCUR ( FLFRST )
 #endif
         !
       END DO
-    end if ! use_cmeps
+    end if ! use_cmeps & standalone
     !
     RETURN
     !

model/src/wav_comp_nuopc.F90

@@ -47,7 +47,7 @@ module wav_comp_nuopc
   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, inst_suffix, inst_index, unstr_mesh, standalone
+  use wav_shr_mod           , only : casename, inst_suffix, inst_index, unstr_mesh
   use wav_wrapper_mod       , only : ufs_settimer, ufs_logtimer, ufs_file_setlogunit, wtime
 #ifndef W3_CESMCOUPLED
   use shr_is_restart_fh_mod , only : init_is_restart_fh, is_restart_fh, is_restart_fh_type
@@ -214,7 +214,7 @@ end subroutine InitializeP0
   !> @date 01-05-2022
   subroutine InitializeAdvertise(gcomp, importState, exportState, clock, rc)
 
-    use w3odatmd        , only : use_cmeps
+    use w3odatmd        , only : use_cmeps, standalone
     use w3adatmd        , only : w3naux, w3seta
     use w3idatmd        , only : w3seti, w3ninp
     use w3gdatmd        , only : w3nmod, w3setg
@@ -268,7 +268,7 @@ subroutine InitializeAdvertise(gcomp, importState, exportState, clock, rc)
     call ESMF_LogWrite(trim(subname)//' called', ESMF_LOGMSG_INFO)
 
     ! if we're here, then cmeps is active
-    use_cmeps = .true.
+    if (.not. standalone) use_cmeps = .true.
 
     !----------------------------------------------------------------------------
     ! retrieve configuration settings
@@ -952,6 +952,7 @@ subroutine DataInitialize(gcomp, rc)
 
     use wav_import_export, only : calcRoughl
     use w3gdatmd         , only : nx, ny
+    use w3odatmd         , only : standalone
 
     ! input/output variables
     type(ESMF_GridComp)  :: gcomp
@@ -1016,7 +1017,7 @@ subroutine DataInitialize(gcomp, rc)
       if (ChkErr(rc,__LINE__,u_FILE_u)) return
     end if
 
-    if ( dbug_flag > 5) then
+    if (.not. standalone .and. dbug_flag > 5) then
       call state_diagnose(exportState, 'at DataInitialize ', rc=rc)
       if (ChkErr(rc,__LINE__,u_FILE_u)) return
     end if

model/src/wav_import_export.F90

@@ -20,7 +20,7 @@ module wav_import_export
   use wav_shr_mod  , only : chkerr
   use wav_shr_mod  , only : state_diagnose, state_reset, state_getfldptr, state_fldchk
   use wav_shr_mod  , only : wav_coupling_to_cice, nwav_elev_spectrum, merge_import, dbug_flag, unstr_mesh
-  use wav_shr_mod  , only : standalone
+  use w3odatmd     , only : standalone
   use constants    , only : grav, tpi, dwat, dair
   use w3parall     , only : init_get_isea
 
@@ -244,7 +244,7 @@ subroutine realize_fields(gcomp, mesh, flds_scalar_name, flds_scalar_num, rc)
     call state_reset(ImportState, zero, rc=rc)
     if (ChkErr(rc,__LINE__,u_FILE_u)) return
 
-    if (dbug_flag > 5) then
+    if (.not. standalone .and. dbug_flag > 5) then
       call state_diagnose(exportState, 'after state_reset', rc=rc)
       if (ChkErr(rc,__LINE__,u_FILE_u)) return
     end if
@@ -320,7 +320,7 @@ subroutine import_fields( gcomp, time0, timen, rc )
     call ESMF_GridCompGet(gcomp, clock=clock, importState=importState, vm=vm, rc=rc)
     if (ChkErr(rc,__LINE__,u_FILE_u)) return
 
-    if (dbug_flag > 5) then
+    if (.not. standalone .and. dbug_flag > 5) then
       call state_diagnose(importState, 'at import ', rc=rc)
       if (ChkErr(rc,__LINE__,u_FILE_u)) return
     end if
@@ -867,7 +867,7 @@ subroutine export_fields (gcomp, rc)
       enddo
     end if
 
-    if (dbug_flag > 5) then
+    if (.not. standalone .and. dbug_flag > 5) then
       call state_diagnose(exportState, 'at export ', rc=rc)
       if (ChkErr(rc,__LINE__,u_FILE_u)) return
     end if

model/src/wav_shr_mod.F90

@@ -74,7 +74,6 @@ module wav_shr_mod
 
   ! Only used by ufs
   logical            , public :: merge_import  = .false.  !< @public logical to specify whether import fields will
-  logical            , public :: standalone = .false.     !< @public logical to control whether wave model is run
   interface ymd2date
     module procedure ymd2date_int
     module procedure ymd2date_long