wrfv2_fire/share/landread.c

   1 #ifndef CRAY
   2 # ifdef NOUNDERSCORE
   3 #      define GET_TERRAIN get_terrain
   4 # else
   5 #   ifdef F2CSTYLE
   6 #      define GET_TERRAIN get_terrain__
   7 #   else
   8 #      define GET_TERRAIN get_terrain_
   9 #   endif
  10 # endif
  11 #endif
  12 #include <stdio.h>
  13
  14 int GET_TERRAIN (        float *adx,
  15                          float *xlat,
  16                          float *xlon,
  17                          float       *terrain,
  18                          int   *mix,
  19                          int   *mjx,
  20                          int   *iyyn,
  21                          int   *jxxn,
  22                          int   *ipath , int * ipathlen)  /* integer coded ASCII string from Funtran and len */
  23
  24 {
  25  fprintf(stderr, "***************************************************************\n" ) ;
  26  fprintf(stderr, "Access to RSMAS Topo Ingest Code is by Special Arrangement Only\n" ) ;
  27  fprintf(stderr, "in WRF 2.1 .  Please contact wrfhelp@ucar.edu .                \n" ) ;
  28  fprintf(stderr, "***************************************************************\n" ) ;
  29  return(0) ;
  30 }
  31