ESMF_IO_Scrip_C.F90 Source File


This file depends on

sourcefile~~esmf_io_scrip_c.f90~~EfferentGraph sourcefile~esmf_io_scrip_c.f90 ESMF_IO_Scrip_C.F90 sourcefile~esmf_ioscrip.f90 ESMF_IOScrip.F90 sourcefile~esmf_io_scrip_c.f90->sourcefile~esmf_ioscrip.f90 sourcefile~esmf_logerr.f90 ESMF_LogErr.F90 sourcefile~esmf_io_scrip_c.f90->sourcefile~esmf_logerr.f90 sourcefile~esmf_utiltypes.f90 ESMF_UtilTypes.F90 sourcefile~esmf_io_scrip_c.f90->sourcefile~esmf_utiltypes.f90 sourcefile~esmf_ioscrip.f90->sourcefile~esmf_logerr.f90 sourcefile~esmf_ioscrip.f90->sourcefile~esmf_utiltypes.f90 sourcefile~esmf_array.f90 ESMF_Array.F90 sourcefile~esmf_ioscrip.f90->sourcefile~esmf_array.f90 sourcefile~esmf_attpacktype.f90 ESMF_AttPackType.F90 sourcefile~esmf_ioscrip.f90->sourcefile~esmf_attpacktype.f90 sourcefile~esmf_distgrid.f90 ESMF_DistGrid.F90 sourcefile~esmf_ioscrip.f90->sourcefile~esmf_distgrid.f90 sourcefile~esmf_info.f90 ESMF_Info.F90 sourcefile~esmf_ioscrip.f90->sourcefile~esmf_info.f90 sourcefile~esmf_initmacros.f90 ESMF_InitMacros.F90 sourcefile~esmf_ioscrip.f90->sourcefile~esmf_initmacros.f90 sourcefile~esmf_iogridmosaic.f90 ESMF_IOGridmosaic.F90 sourcefile~esmf_ioscrip.f90->sourcefile~esmf_iogridmosaic.f90 sourcefile~esmf_iogridspec.f90 ESMF_IOGridspec.F90 sourcefile~esmf_ioscrip.f90->sourcefile~esmf_iogridspec.f90 sourcefile~esmf_iougrid.f90 ESMF_IOUGrid.F90 sourcefile~esmf_ioscrip.f90->sourcefile~esmf_iougrid.f90 sourcefile~esmf_util.f90 ESMF_Util.F90 sourcefile~esmf_ioscrip.f90->sourcefile~esmf_util.f90 sourcefile~esmf_vm.f90 ESMF_VM.F90 sourcefile~esmf_ioscrip.f90->sourcefile~esmf_vm.f90 sourcefile~esmf_logerr.f90->sourcefile~esmf_utiltypes.f90 sourcefile~esmf_ioutil.f90 ESMF_IOUtil.F90 sourcefile~esmf_logerr.f90->sourcefile~esmf_ioutil.f90 sourcefile~esmf_utilstring.f90 ESMF_UtilString.F90 sourcefile~esmf_logerr.f90->sourcefile~esmf_utilstring.f90 sourcefile~esmf_array.f90->sourcefile~esmf_logerr.f90 sourcefile~esmf_array.f90->sourcefile~esmf_utiltypes.f90 sourcefile~esmf_array.f90->sourcefile~esmf_distgrid.f90 sourcefile~esmf_array.f90->sourcefile~esmf_initmacros.f90 sourcefile~esmf_array.f90->sourcefile~esmf_vm.f90 sourcefile~esmf_arrayha.f90 ESMF_ArrayHa.F90 sourcefile~esmf_array.f90->sourcefile~esmf_arrayha.f90 sourcefile~esmf_arrayspec.f90 ESMF_ArraySpec.F90 sourcefile~esmf_array.f90->sourcefile~esmf_arrayspec.f90 sourcefile~esmf_base.f90 ESMF_Base.F90 sourcefile~esmf_array.f90->sourcefile~esmf_base.f90 sourcefile~esmf_delayout.f90 ESMF_DELayout.F90 sourcefile~esmf_array.f90->sourcefile~esmf_delayout.f90 sourcefile~esmf_dynamicmask.f90 ESMF_DynamicMask.F90 sourcefile~esmf_array.f90->sourcefile~esmf_dynamicmask.f90 sourcefile~esmf_f90interface.f90 ESMF_F90Interface.F90 sourcefile~esmf_array.f90->sourcefile~esmf_f90interface.f90 sourcefile~esmf_factorread.f90 ESMF_FactorRead.F90 sourcefile~esmf_array.f90->sourcefile~esmf_factorread.f90 sourcefile~esmf_localarray.f90 ESMF_LocalArray.F90 sourcefile~esmf_array.f90->sourcefile~esmf_localarray.f90 sourcefile~esmf_rhandle.f90 ESMF_RHandle.F90 sourcefile~esmf_array.f90->sourcefile~esmf_rhandle.f90 sourcefile~esmf_attpacktype.f90->sourcefile~esmf_utiltypes.f90 sourcefile~esmf_attpacktype.f90->sourcefile~esmf_initmacros.f90 sourcefile~esmf_distgrid.f90->sourcefile~esmf_logerr.f90 sourcefile~esmf_distgrid.f90->sourcefile~esmf_utiltypes.f90 sourcefile~esmf_distgrid.f90->sourcefile~esmf_initmacros.f90 sourcefile~esmf_distgrid.f90->sourcefile~esmf_ioutil.f90 sourcefile~esmf_distgrid.f90->sourcefile~esmf_vm.f90 sourcefile~esmf_distgrid.f90->sourcefile~esmf_base.f90 sourcefile~esmf_distgrid.f90->sourcefile~esmf_delayout.f90 sourcefile~esmf_distgridconnection.f90 ESMF_DistGridConnection.F90 sourcefile~esmf_distgrid.f90->sourcefile~esmf_distgridconnection.f90 sourcefile~esmf_distgridregdecomp.f90 ESMF_DistGridRegDecomp.F90 sourcefile~esmf_distgrid.f90->sourcefile~esmf_distgridregdecomp.f90 sourcefile~esmf_distgrid.f90->sourcefile~esmf_f90interface.f90 sourcefile~esmf_info.f90->sourcefile~esmf_logerr.f90 sourcefile~esmf_info.f90->sourcefile~esmf_utiltypes.f90 sourcefile~esmf_info.f90->sourcefile~esmf_initmacros.f90 sourcefile~esmf_info.f90->sourcefile~esmf_vm.f90 sourcefile~esmf_info.f90->sourcefile~esmf_base.f90 sourcefile~esmf_hconfig.f90 ESMF_HConfig.F90 sourcefile~esmf_info.f90->sourcefile~esmf_hconfig.f90 sourcefile~esmf_initmacros.f90->sourcefile~esmf_logerr.f90 sourcefile~esmf_initmacros.f90->sourcefile~esmf_utiltypes.f90 sourcefile~esmf_iogridmosaic.f90->sourcefile~esmf_logerr.f90 sourcefile~esmf_iogridmosaic.f90->sourcefile~esmf_utiltypes.f90 sourcefile~esmf_iogridmosaic.f90->sourcefile~esmf_initmacros.f90 sourcefile~esmf_iogridmosaic.f90->sourcefile~esmf_util.f90 sourcefile~esmf_iogridmosaic.f90->sourcefile~esmf_utilstring.f90 sourcefile~esmf_iogridmosaic.f90->sourcefile~esmf_vm.f90 sourcefile~esmf_staggerloctype.f90 ESMF_StaggerLocType.F90 sourcefile~esmf_iogridmosaic.f90->sourcefile~esmf_staggerloctype.f90 sourcefile~esmf_iogridspec.f90->sourcefile~esmf_logerr.f90 sourcefile~esmf_iogridspec.f90->sourcefile~esmf_utiltypes.f90 sourcefile~esmf_iogridspec.f90->sourcefile~esmf_initmacros.f90 sourcefile~esmf_iogridspec.f90->sourcefile~esmf_util.f90 sourcefile~esmf_iogridspec.f90->sourcefile~esmf_vm.f90 sourcefile~esmf_iougrid.f90->sourcefile~esmf_logerr.f90 sourcefile~esmf_iougrid.f90->sourcefile~esmf_utiltypes.f90 sourcefile~esmf_iougrid.f90->sourcefile~esmf_initmacros.f90 sourcefile~esmf_iougrid.f90->sourcefile~esmf_util.f90 sourcefile~esmf_iougrid.f90->sourcefile~esmf_vm.f90 sourcefile~esmf_ioutil.f90->sourcefile~esmf_utiltypes.f90 sourcefile~esmf_util.f90->sourcefile~esmf_logerr.f90 sourcefile~esmf_util.f90->sourcefile~esmf_utiltypes.f90 sourcefile~esmf_util.f90->sourcefile~esmf_initmacros.f90 sourcefile~esmf_util.f90->sourcefile~esmf_ioutil.f90 sourcefile~esmf_util.f90->sourcefile~esmf_utilstring.f90 sourcefile~esmf_vm.f90->sourcefile~esmf_logerr.f90 sourcefile~esmf_vm.f90->sourcefile~esmf_utiltypes.f90 sourcefile~esmf_vm.f90->sourcefile~esmf_initmacros.f90 sourcefile~esmf_vm.f90->sourcefile~esmf_ioutil.f90 sourcefile~esmf_vm.f90->sourcefile~esmf_f90interface.f90 sourcefile~esmf_arrayha.f90->sourcefile~esmf_logerr.f90 sourcefile~esmf_arrayha.f90->sourcefile~esmf_utiltypes.f90 sourcefile~esmf_arrayha.f90->sourcefile~esmf_distgrid.f90 sourcefile~esmf_arrayha.f90->sourcefile~esmf_initmacros.f90 sourcefile~esmf_arrayha.f90->sourcefile~esmf_ioutil.f90 sourcefile~esmf_arrayha.f90->sourcefile~esmf_vm.f90 sourcefile~esmf_arrayha.f90->sourcefile~esmf_arrayspec.f90 sourcefile~esmf_arrayha.f90->sourcefile~esmf_base.f90 sourcefile~esmf_arrayha.f90->sourcefile~esmf_delayout.f90 sourcefile~esmf_arrayha.f90->sourcefile~esmf_f90interface.f90 sourcefile~esmf_arrayha.f90->sourcefile~esmf_localarray.f90 sourcefile~esmf_arrayha.f90->sourcefile~esmf_rhandle.f90 sourcefile~esmf_arrayspec.f90->sourcefile~esmf_logerr.f90 sourcefile~esmf_arrayspec.f90->sourcefile~esmf_utiltypes.f90 sourcefile~esmf_arrayspec.f90->sourcefile~esmf_initmacros.f90 sourcefile~esmf_arrayspec.f90->sourcefile~esmf_ioutil.f90 sourcefile~esmf_arrayspec.f90->sourcefile~esmf_base.f90 sourcefile~esmf_base.f90->sourcefile~esmf_logerr.f90 sourcefile~esmf_base.f90->sourcefile~esmf_utiltypes.f90 sourcefile~esmf_base.f90->sourcefile~esmf_initmacros.f90 sourcefile~esmf_base.f90->sourcefile~esmf_ioutil.f90 sourcefile~esmf_base.f90->sourcefile~esmf_vm.f90 sourcefile~esmf_delayout.f90->sourcefile~esmf_logerr.f90 sourcefile~esmf_delayout.f90->sourcefile~esmf_utiltypes.f90 sourcefile~esmf_delayout.f90->sourcefile~esmf_initmacros.f90 sourcefile~esmf_delayout.f90->sourcefile~esmf_ioutil.f90 sourcefile~esmf_delayout.f90->sourcefile~esmf_vm.f90 sourcefile~esmf_delayout.f90->sourcefile~esmf_base.f90 sourcefile~esmf_delayout.f90->sourcefile~esmf_f90interface.f90 sourcefile~esmf_distgridconnection.f90->sourcefile~esmf_logerr.f90 sourcefile~esmf_distgridconnection.f90->sourcefile~esmf_utiltypes.f90 sourcefile~esmf_distgridconnection.f90->sourcefile~esmf_initmacros.f90 sourcefile~esmf_distgridconnection.f90->sourcefile~esmf_f90interface.f90 sourcefile~esmf_distgridregdecomp.f90->sourcefile~esmf_logerr.f90 sourcefile~esmf_distgridregdecomp.f90->sourcefile~esmf_utiltypes.f90 sourcefile~esmf_distgridregdecomp.f90->sourcefile~esmf_initmacros.f90 sourcefile~esmf_distgridregdecomp.f90->sourcefile~esmf_vm.f90 sourcefile~esmf_distgridregdecomp.f90->sourcefile~esmf_f90interface.f90 sourcefile~esmf_dynamicmask.f90->sourcefile~esmf_logerr.f90 sourcefile~esmf_dynamicmask.f90->sourcefile~esmf_utiltypes.f90 sourcefile~esmf_dynamicmask.f90->sourcefile~esmf_initmacros.f90 sourcefile~esmf_dynamicmask.f90->sourcefile~esmf_f90interface.f90 sourcefile~esmf_dynamicmask.f90->sourcefile~esmf_rhandle.f90 sourcefile~esmf_f90interface.f90->sourcefile~esmf_logerr.f90 sourcefile~esmf_f90interface.f90->sourcefile~esmf_utiltypes.f90 sourcefile~esmf_factorread.f90->sourcefile~esmf_logerr.f90 sourcefile~esmf_factorread.f90->sourcefile~esmf_utiltypes.f90 sourcefile~esmf_factorread.f90->sourcefile~esmf_vm.f90 sourcefile~esmf_hconfig.f90->sourcefile~esmf_logerr.f90 sourcefile~esmf_hconfig.f90->sourcefile~esmf_utiltypes.f90 sourcefile~esmf_hconfig.f90->sourcefile~esmf_initmacros.f90 sourcefile~esmf_hconfig.f90->sourcefile~esmf_ioutil.f90 sourcefile~esmf_hconfig.f90->sourcefile~esmf_vm.f90 sourcefile~esmf_rhandle.f90->sourcefile~esmf_logerr.f90 sourcefile~esmf_rhandle.f90->sourcefile~esmf_utiltypes.f90 sourcefile~esmf_rhandle.f90->sourcefile~esmf_initmacros.f90 sourcefile~esmf_rhandle.f90->sourcefile~esmf_ioutil.f90 sourcefile~esmf_rhandle.f90->sourcefile~esmf_vm.f90 sourcefile~esmf_rhandle.f90->sourcefile~esmf_base.f90 sourcefile~esmf_rhandle.f90->sourcefile~esmf_f90interface.f90 sourcefile~esmf_staggerloctype.f90->sourcefile~esmf_logerr.f90 sourcefile~esmf_staggerloctype.f90->sourcefile~esmf_utiltypes.f90 sourcefile~esmf_staggerloctype.f90->sourcefile~esmf_ioutil.f90

Source Code

!  $Id$
!
! Earth System Modeling Framework
! Copyright (c) 2002-2025, University Corporation for Atmospheric Research,
! Massachusetts Institute of Technology, Geophysical Fluid Dynamics
! Laboratory, University of Michigan, National Centers for Environmental
! Prediction, Los Alamos National Laboratory, Argonne National Laboratory,
! NASA Goddard Space Flight Center.
! Licensed under the University of Illinois-NCSA License.
!
!==============================================================================
!
! F77 interface files for C++ layer calling into F90 implementation layer.
!  This cannot use any F90 syntax, including modules, or allocatable
!   arrays, or ...
!
!==============================================================================
#define ESMF_FILENAME "ESMF_IO_Scrip_C.F90"
!
!------------------------------------------------------------------------------
! INCLUDES
#include "ESMF.h"
!==============================================================================
!------------------------------------------------------------------------------
! The following line turns the CVS identifier string into a printable variable.
!      character(*), parameter, private :: version = &
!      '$Id$'
!==============================================================================

#undef  ESMF_METHOD
#define ESMF_METHOD "f_esmf_scrip_inq"
  subroutine f_esmf_scrip_inq(filename, grid_dims, grid_rank, rc)
    use ESMF_UtilTypesMod
    use ESMF_LogErrMod
    use ESMF_IOScripMod

    implicit none

    !------------------------------------------------------------------------------

    !arguments
    character(len=*), intent(in)  :: filename
    integer, intent(out)          :: grid_dims(2)
    integer, intent(out)          :: grid_rank
    integer, intent(out)          :: rc

    ! Initialize return code; assume routine not implemented
    rc = ESMF_RC_NOT_IMPL

    ! Call into public interface
    call ESMF_ScripInq(filename, grid_dims=grid_dims, grid_rank=grid_rank, rc=rc)

    ! Error handling
    if (ESMF_LogFoundError(rc, ESMF_ERR_PASSTHRU, &
        ESMF_CONTEXT, rcToReturn=rc)) return

    ! Return successfully
    rc = ESMF_SUCCESS

  end subroutine f_esmf_scrip_inq