Line | |
---|
1 | #!/bin/bash |
---|
2 | |
---|
3 | |
---|
4 | replay_comment="replay automatic include" |
---|
5 | if [ $# = 0 ] ; then |
---|
6 | \rm -f dump_replay*.h dump_param.h dump_ini.h input tmp_get_subroutine_arg tmp_include_line tmp_include_line* tmp_include_line*_cpp tmp_include_line* |
---|
7 | |
---|
8 | for file in `grep "$replay_comment" *F90 | cut -d: -f1` ; do |
---|
9 | sed -i"" -e "/$replay_comment/d" $file |
---|
10 | done |
---|
11 | cat > call_param_replay.F90 <<...eod |
---|
12 | subroutine call_param_replay(ngrid,nlay) |
---|
13 | integer,intent(in) :: ngrid,nlay |
---|
14 | stop 'In call_param_replay : You should run replay_equip.sh before runing replay[13]d' |
---|
15 | return |
---|
16 | end |
---|
17 | ...eod |
---|
18 | cat > call_ini_replay.F90 <<...eod |
---|
19 | subroutine call_ini_replay |
---|
20 | stop 'In call_ini_replay : You should run replay_equip.sh before runing replay[13]d' |
---|
21 | return |
---|
22 | end |
---|
23 | ...eod |
---|
24 | |
---|
25 | else |
---|
26 | for file in $* ; do |
---|
27 | list_include=`grep $replay_comment $file | grep include | cut -d\" -f2` |
---|
28 | echo removing $list_include |
---|
29 | \rm -f $list_include |
---|
30 | \rm -f dump_replay_`basename $file .F90`_*h |
---|
31 | sed -i'' -e "/$replay_comment/d" $file |
---|
32 | done |
---|
33 | fi |
---|
Note: See
TracBrowser
for help on using the repository browser.