source: lmdz_wrf/trunk/WRFV3/share/landread.c @ 409

Last change on this file since 409 was 1, checked in by lfita, 10 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

File size: 1.0 KB
Line 
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
14int 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
Note: See TracBrowser for help on using the repository browser.