|
Last change
on this file since 3616 was
3175,
checked in by emillour, 13 months ago
|
|
Pluto PCM:
Add the old Pluto LMDZ for reference (required prior step to making
an LMDZ.PLUTO using the same framework as the other physics packages).
TB+EM
|
-
Property svn:executable set to
*
|
|
File size:
630 bytes
|
| Line | |
|---|
| 1 | fichntrac=ntraceur.$1 |
|---|
| 2 | |
|---|
| 3 | if [ ! -f $fichntrac ] ; then |
|---|
| 4 | # si le fichier de dimensions n'existe pas, on le cree |
|---|
| 5 | |
|---|
| 6 | cat << EOF > $fichntrac |
|---|
| 7 | c----------------------------------------------------------------------- |
|---|
| 8 | c INCLUDE 'ntraceur.h' |
|---|
| 9 | c |
|---|
| 10 | c ntraceur.h contient la dimension de la variable traceur q |
|---|
| 11 | c Generalement egale au nombre de traceur. |
|---|
| 12 | c----------------------------------------------------------------------- |
|---|
| 13 | |
|---|
| 14 | INTEGER nqmx |
|---|
| 15 | |
|---|
| 16 | PARAMETER (nqmx=$1) |
|---|
| 17 | |
|---|
| 18 | c----------------------------------------------------------------------- |
|---|
| 19 | EOF |
|---|
| 20 | fi |
|---|
| 21 | |
|---|
| 22 | \rm ../ntraceur.h |
|---|
| 23 | tar cf - $fichntrac | ( cd .. ; tar xf - ; mv $fichntrac ntraceur.h ) |
|---|
Note: See
TracBrowser
for help on using the repository browser.
