source: trunk/MESOSCALE/LMDZ.MARS/libf_gcm/grid/dimension/makntrac

Last change on this file was 57, checked in by aslmd, 14 years ago

mineur LMD_MM_MARS: ajout du GCM ancienne physique, systeme maintenant complet sur SVN (ne manque que la base de donnees d'etats initiaux)

  • Property svn:executable set to *
File size: 630 bytes
Line 
1fichntrac=ntraceur.$1
2
3if [ ! -f $fichntrac ] ; then
4# si le fichier de dimensions n'existe pas, on le cree
5
6cat << EOF > $fichntrac
7c-----------------------------------------------------------------------
8c   INCLUDE 'ntraceur.h'
9c
10c   ntraceur.h contient la dimension de la variable traceur q
11c   Generalement egale au nombre de traceur.
12c-----------------------------------------------------------------------
13
14      INTEGER nqmx
15
16      PARAMETER (nqmx=$1)
17
18c-----------------------------------------------------------------------
19EOF
20fi
21
22\rm ../ntraceur.h
23tar cf - $fichntrac | ( cd .. ; tar xf - ; mv $fichntrac ntraceur.h )
Note: See TracBrowser for help on using the repository browser.