esmf_wav_void.h

Go to the documentation of this file.

      MODULE esmf_wav_mod
 
#if !defined WAM_COUPLING && defined ESMF_LIB
!
!git $Id$
!=======================================================================
!  Copyright (c) 2002-2025 The ROMS Group                              !
!    Licensed under a MIT/X style license         Hernan G. Arango     !
!    See License_ROMS.md                          Ufuk Utku Turuncoglu !
!=======================================================================
!                                                                      !
!  This module sets a void wave model gridded component using          !
!  generic ESMF/NUOPC layer:                                           !
!                                                                      !
!    WAV_SetServices         Sets WAV component shared-object entry    !
!                            points using NUPOC generic methods for    !
!                            "initialize", "run", and "finalize".      !
!                            This routine is empty because it is       !
!                            used for testing purposes.                !
!                                                                      !
!  ESMF:   Earth System Modeling Framework (Version 7 or higher)       !
!            https://www.earthsystemcog.org/projects/esmf              !
!                                                                      !
!  NUOPC:  National Unified Operational Prediction Capability          !
!            https://www.earthsystemcog.org/projects/nuopc             !
!                                                                      !
!=======================================================================
!
      USE esmf
      USE nuopc
      USE nuopc_model,                                                  &
     &    nuopc_setservices          => setservices,                    &
     &    nuopc_label_advance        => label_advance,                  &
     &    nuopc_label_datainitialize => label_datainitialize
!
      implicit none
!
      PUBLIC  :: wav_setservices
!
      CONTAINS
!
      SUBROUTINE wav_setservices (model, rc)
!
!=======================================================================
!                                                                      !
!  Sets a void wave model component shared-object entry points for     !
!  "initialize", "run", and "finalize" by using NUOPC generic          !
!  methods.                                                            !
!                                                                      !
!=======================================================================
!
!  Imported variable declarations.
!
      integer, intent(out) :: rc
!
      TYPE (esmf_gridcomp) :: model
!
!  Local variable declarations.
!
      character (len=*), parameter :: myfile =                          &
     &  __FILE__//", WAV_SetServices"
!
!-----------------------------------------------------------------------
!  Initialize return code flag to success state (no error).
!-----------------------------------------------------------------------
!
      rc=esmf_success
!
!-----------------------------------------------------------------------
!  Register NUOPC generic routines.  It is empty to for testing
!-----------------------------------------------------------------------
!
      RETURN
      END SUBROUTINE wav_setservices
!
#endif
      END MODULE esmf_wav_mod