|
Last change
on this file since 5356 was
4668,
checked in by fhourdin, 2 years ago
|
|
Mise a jour pour lscp et fisrtilp
|
|
File size:
1.0 KB
|
| 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.