|
Last change
on this file was
2759,
checked in by aslmd, 2 years ago
|
|
adding unmodified code from WRFV3.0.1.1, expurged from useless data +1M size
|
-
Property svn:executable set to
*
|
|
File size:
523 bytes
|
| Line | |
|---|
| 1 | #!/bin/csh |
|---|
| 2 | |
|---|
| 3 | # The NCAR CISL fftpack (version 5) |
|---|
| 4 | # convert files to f90 |
|---|
| 5 | |
|---|
| 6 | |
|---|
| 7 | cd fftpack5 |
|---|
| 8 | |
|---|
| 9 | foreach f ( *.f ) |
|---|
| 10 | |
|---|
| 11 | set root = $f:r |
|---|
| 12 | |
|---|
| 13 | # Get rid of those pesky tab characters |
|---|
| 14 | |
|---|
| 15 | expand $f >! ${root}.F |
|---|
| 16 | |
|---|
| 17 | # The f77 to f90 converter wants files to |
|---|
| 18 | # end with the .f extension. |
|---|
| 19 | |
|---|
| 20 | mv ${root}.F ${root}.f |
|---|
| 21 | |
|---|
| 22 | echo "${root} /" >! input |
|---|
| 23 | ../a.out < input |
|---|
| 24 | |
|---|
| 25 | # The converter makes a .f90 file, WRF expects |
|---|
| 26 | # things to actually be .F extensioned. |
|---|
| 27 | |
|---|
| 28 | mv ${root}.f90 ${root}.F |
|---|
| 29 | |
|---|
| 30 | # Zap the original f77 file. |
|---|
| 31 | |
|---|
| 32 | rm ${root}.f |
|---|
| 33 | |
|---|
| 34 | end |
|---|
| 35 | |
|---|
| 36 | rm input |
|---|
| 37 | |
|---|
| 38 | cd .. |
|---|
Note: See
TracBrowser
for help on using the repository browser.
