share/landread.c.dist

   1 #ifndef CRAY
   2 # ifdef NOUNDERSCORE
   3 #      define GET_TERRAIN get_terrain
   4 #      define GET_LANDUSE get_landuse
   5 # else
   6 #   ifdef F2CSTYLE
   7 #      define GET_TERRAIN get_terrain__
   8 #      define GET_LANDUSE get_landuse__
   9 #   else
  10 #      define GET_TERRAIN get_terrain_
  11 #      define GET_LANDUSE get_landuse_
  12 #   endif
  13 # endif
  14 #endif
  15
  16 #ifndef MS_SUA
  17 # include <stdio.h>
  18 #endif
  19
  20 int GET_TERRAIN (        float *adx,
  21                          float *xlat,
  22                          float *xlon,
  23                          float       *terrain,
  24                          int   *mix,
  25                          int   *mjx,
  26                          int   *iyyn,
  27                          int   *jxxn,
  28                          int   *ipath , int * ipathlen)  /* integer coded ASCII string from Funtran and len */
  29
  30 {
  31 #ifndef MS_SUA
  32  fprintf(stderr, "***************************************************************\n" ) ;
  33  fprintf(stderr, "Access to RSMAS Topo Ingest Code is by Special Arrangement Only\n" ) ;
  34  fprintf(stderr, "in WRF.  Please contact wrfhelp@ucar.edu.                      \n" ) ;
  35  fprintf(stderr, "***************************************************************\n" ) ;
  36 #endif
  37  return(0) ;
  38 }
  39
  40 int GET_LANDUSE (        float *adx,
  41                          float *xlat,
  42                          float *xlon,
  43                          float       *landuse,
  44                          int   *mix,
  45                          int   *mjx,
  46                          int   *iyyn,
  47                          int   *jxxn,
  48                          int   *ipath , int * ipathlen ) /* integer coded ASCII string from Funtran and len */
  49
  50 {
  51 #ifndef MS_SUA
  52  fprintf(stderr, "***************************************************************\n" ) ;
  53  fprintf(stderr, "Access to RSMAS Topo Ingest Code is by Special Arrangement Only\n" ) ;
  54  fprintf(stderr, "in WRF.  Please contact wrfhelp@ucar.edu.                      \n" ) ;
  55  fprintf(stderr, "***************************************************************\n" ) ;
  56 #endif
  57  return(0) ;
  58 }