Last change
on this file since 4637 was
4591,
checked in by fhourdin, 17 months ago
|
Compatible avec les modules et reorganisation
Retour en arrière : call_param_replay.F90 est à nouveau un fichier séparé.
La même chose pour call_ini_replay.F90 (qui remplace get_ini_module).
replay_clean.sh crée une version quasi vide de ces deux fichiers.
Ceux-ci seront bientôt par défaut dans l'archive svn.
Le fait de ne pas créer et faire disparaitre ces fichiers permet entre autre de ne pas avoir à refaire le makefile pour rien.
|
File size:
966 bytes
|
Rev | Line | |
---|
[4337] | 1 | #!/bin/bash |
---|
| 2 | |
---|
[4347] | 3 | |
---|
[4337] | 4 | replay_comment="replay automatic include" |
---|
[4347] | 5 | if [ $# = 0 ] ; then |
---|
[4591] | 6 | \rm -f dump_replay*.h dump_param.h dump_ini.h input tmp tmp2 tmp3 tmp2_cpp |
---|
[4347] | 7 | for file in `grep "$replay_comment" *F90 | cut -d: -f1` ; do |
---|
| 8 | sed -i"" -e "/$replay_comment/d" $file |
---|
| 9 | done |
---|
[4591] | 10 | cat > call_param_replay.F90 <<...eod |
---|
| 11 | subroutine call_param_replay(ngrid,nlay) |
---|
| 12 | integer,intent(in) :: ngrid,nlay |
---|
| 13 | stop 'In call_param_replay : You should run replay_equip.sh before runing replay[13]d' |
---|
| 14 | return |
---|
| 15 | end |
---|
| 16 | ...eod |
---|
| 17 | cat > call_ini_replay.F90 <<...eod |
---|
| 18 | subroutine call_ini_replay |
---|
| 19 | stop 'In call_ini_replay : You should run replay_equip.sh before runing replay[13]d' |
---|
| 20 | return |
---|
| 21 | end |
---|
| 22 | ...eod |
---|
| 23 | |
---|
[4347] | 24 | else |
---|
| 25 | for file in $* ; do |
---|
| 26 | list_include=`grep $replay_comment $file | grep include | cut -d\" -f2` |
---|
| 27 | echo removing $list_include |
---|
| 28 | \rm -f $list_include |
---|
| 29 | \rm -f dump_replay_`basename $file .F90`_*h |
---|
| 30 | sed -i'' -e "/$replay_comment/d" $file |
---|
| 31 | done |
---|
| 32 | fi |
---|
Note: See
TracBrowser
for help on using the repository browser.