xy2v.f90

来自「CCSM Research Tools: Community Atmospher」· F90 代码 · 共 50 行

#include <misc.h>
#include <preproc.h>

subroutine xy2v (nx, ny, fldxy, ki, kf, fldv)

!----------------------------------------------------------------------- 
! 
! Purpose: 
! convert a grid-average field to subgrid patch vector
! 
! Method: 
! This code converts a grid-average field [fldxy] dimensioned
! [lsmlon] x [lsmlat] to a subgrid patch vector [fldv] for 
! [numpatch] subgrid patches. 
!
! Author: Gordon Bonan
! 
!-----------------------------------------------------------------------
! $Id: xy2v.F90,v 1.1.22.1 2001/11/07 18:16:17 mvertens Exp $
!-----------------------------------------------------------------------

  use precision
  use clm_varmap, only : patchvec
  implicit none

! ------------------------ arguments----------------------------------
  integer , intent(in)  :: nx, ny          !x-y dimension	
  integer , intent(in)  :: ki, kf          !beginning and end patch indices
  real(r8), intent(in)  :: fldxy(nx,ny)    !gridded input
  real(r8), intent(out) :: fldv(ki:kf)     !subgrid vector output
! --------------------------------------------------------------------

! ------------------------ local variables ----------------------
  integer i,j,k             !indices
! ---------------------------------------------------------------

  do k = ki,kf
     i = patchvec%ixy(k)
     j = patchvec%jxy(k)
     fldv(k) = fldxy(i,j)
  end do

  return
end subroutine xy2v