Test_CFIO_Bundle Module

MODULE: Test_CFIO_Bundle

Author: GMAO SI-Team

Test_CFIO_Bundle is a simple unit test for CFIO Read/Write Bundle.


Uses

  • module~~test_cfio_bundle~~UsesGraph module~test_cfio_bundle Test_CFIO_Bundle ESMF ESMF module~test_cfio_bundle->ESMF module~esmf_testcase_mod ESMF_TestCase_mod module~test_cfio_bundle->module~esmf_testcase_mod module~esmf_testmethod_mod ESMF_TestMethod_mod module~test_cfio_bundle->module~esmf_testmethod_mod module~maplbase_mod MAPLBase_Mod module~test_cfio_bundle->module~maplbase_mod pfunit pfunit module~test_cfio_bundle->pfunit

Variables

Type Visibility Attributes Name Initial
character(len=*), public, parameter :: Iam = 'utCFIO'
character(len=*), public, parameter :: dirname = '.'
character(len=*), public, parameter :: fFilename = dirname//'/sample.prs.nc'
integer, public :: IM_WORLD = 540
integer, public :: JM_WORLD = 361
integer, public :: KM_WORLD = 72
integer, public :: i
integer, public :: im
integer, public :: j
integer, public :: jm
integer, public :: k
integer, public :: km
integer, public :: nhms
integer, public :: nymd
integer, public :: rc
integer, public, pointer :: resolution(:)
integer, public :: status
logical, public :: IamRoot
real, public, pointer :: levels(:)
type(ESMF_Clock), public :: dClock
type(ESMF_Clock), public :: fClock
type(ESMF_Grid), public :: grid
type(ESMF_Time), public :: dTime
type(ESMF_Time), public :: fTime
type(ESMF_TimeInterval), public :: dTimeStep
type(ESMF_TimeInterval), public :: fTimeStep
type(ESMF_VM), public :: VM
type(ESMF_FieldBundle), public :: dBundle
type(ESMF_FieldBundle), public :: fBundle
type(MAPL_CFIO), public :: cfio

Functions

public function MyGridCreate_(VM, rc) result(grid)

Arguments

Type IntentOptional Attributes Name
type(ESMF_VM), intent(inout) :: VM
integer, intent(out), optional :: rc

Return Value type(ESMF_Grid)


Subroutines

public subroutine test_main(this)

Arguments

Type IntentOptional Attributes Name
class(ESMF_TestMethod), intent(inout) :: this