WPS/ungrib/src/module_datarray.F

   1 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   2 ! MODULE DATARRAY
   3 !
   4 ! Purpose: To make allocatable arrays available to subroutines.
   5 !
   6 ! Why? -- We do this so that an array can be allocated within a subroutine,
   7 !         and the caller can make use of the array afterward.
   8 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   9 module datarray
  10
  11    real, allocatable, dimension(:) :: rdatarray
  12
  13 end module datarray