MODULE esmf_atm_mod #if !(defined COAMPS_COUPLING || defined REGCM_COUPLING || \ defined WRF_COUPLING) && defined ESMF_LIB ! !git $Id$ !svn $Id: esmf_atm_void.h 1151 2023-02-09 03:08:53Z arango $ !======================================================================= ! Copyright (c) 2002-2023 The ROMS/TOMS Group ! ! Licensed under a MIT/X style license Hernan G. Arango ! ! See License_ROMS.md Ufuk Utku Turuncoglu ! !======================================================================= ! ! ! This module sets a void atmospheric model gridded component using ! ! generic ESMF/NUOPC layer: ! ! ! ! ATM_SetServices Sets ATM 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 ! USE mod_esmf_esm ! ESM coupling structures and variables ! implicit none ! PUBLIC :: ATM_SetServices ! CONTAINS ! SUBROUTINE ATM_SetServices (model, rc) ! !======================================================================= ! ! ! Sets ATM a void atmosphere 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__//", ATM_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 ATM_SetServices ! #endif END MODULE esmf_atm_mod