|
Last change
on this file since 3567 was
2759,
checked in by aslmd, 2 years ago
|
|
adding unmodified code from WRFV3.0.1.1, expurged from useless data +1M size
|
|
File size:
1.0 KB
|
| Rev | Line | |
|---|
| [2759] | 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 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
