subroutine cube2latlon(npx, npy, nlon, nlat, data_cs, data_ll)

  implicit none
  
  integer, intent(in) :: npx, npy, nlon, nlat
  real, dimension(npx , npy ), intent(in ) :: data_cs
  real, dimension(nlon, nlat), intent(out) :: data_ll
  
end subroutine cube2latlon

subroutine latlon2cube(npx, npy, nlon, nlat, data_ll, data_cs)

 implicit none

 integer, intent(in) :: npx, npy, nlon, nlat
 real, dimension(npx , npy ), intent(out) :: data_cs
 real, dimension(nlon, nlat), intent(in ) :: data_ll

end subroutine latlon2cube

#include "MAPL_ErrLog.h"
!!!!!!!!!!!!!!!%%%%%%%%%%%%%%%%%%%%%%%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
function AppGridCreateF(IM_WORLD, JM_WORLD, LM, NX, NY, rc) result(grid)
#include "MAPL_Generic.h"

  use ESMF_Mod
  use MAPL_BaseMod

  implicit none
  
! !ARGUMENTS:
  integer,           intent(IN)    :: IM_WORLD, JM_WORLD, LM
  integer,           intent(IN)    :: NX, NY
  integer, optional, intent(OUT)   :: rc
  type (ESMF_Grid)                 :: grid
  
! ErrLog variables
!-----------------

  integer                      :: STATUS
  character(len=ESMF_MAXSTR), parameter :: Iam="AppGridCreateF"

! Local variables
!-----------------

  RETURN_(STATUS)
end function AppGridCreateF

subroutine AppGridCreate (META, GRID, RC)

#include "MAPL_Generic.h"

  use ESMF_Mod
  use MAPL_Mod
  use MAPL_BaseMod

  implicit none

! !ARGUMENTS:

  type(MAPL_MetaComp), intent(INOUT) :: META
  type (ESMF_Grid),    intent(  OUT) :: grid
  integer, optional,   intent(  OUT) :: rc

! ErrLog variables
!-----------------

  integer                      :: STATUS
  character(len=ESMF_MAXSTR), parameter :: Iam="AppGridCreate"

! Local variables
!-----------------
  RETURN_(ESMF_SUCCESS)

end subroutine AppGridCreate