source: lmdz_wrf/trunk/WRFV3/external/fftpack/77to90.csh @ 1465

Last change on this file since 1465 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:

  • 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
7cd fftpack5
8
9foreach 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       
34end
35
36rm input
37
38cd ..
Note: See TracBrowser for help on using the repository browser.