source: LMDZ4/branches/LMDZ4-dev-20091210/libf/grid/dimension/makdim @ 2469

Last change on this file since 2469 was 1114, checked in by jghattas, 16 years ago

Creation du module infotrac:

  • contient les variables de advtrac.h
  • contient la subroutine iniadvtrac renommer en infotrac_init
  • le nombre des traceurs est lu dans tracer.def en dynamique (ou par default ou recu par INCA)
  • ce module est utilise dans la dynamique et la physique
  • contient aussi la variable nbtr qui avant etait stockee dans dimphy

Le fichier advtrac.h n'existe plus.
La compilation ne prend plus en compte le nombre de traceur.

/JG

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 1.3 KB
Line 
1for i in $* ; do
2   list=$list.$i
3done
4fichdim=dimensions${list}
5
6if [ ! -f $fichdim ] ; then
7# si le fichier de dimensions n'existe pas, on le cree
8
9  if [ $# -ge 3 ] ; then
10     im=$1
11     jm=$2
12     lm=$3
13     n2=$1
14     ndm=1
15
16# Le test suivant est commente car il est inutile avec le nouveau
17# filtre filtrez. Attention avec le "vieux" filtre (F. Forget,11/1994)
18#
19#     while [ "$n2" -gt 2 ]; do
20#       n2=`expr $n2 / 2`
21#       ndm=`expr $ndm + 1`
22#       echo $n2
23#    done
24#    if [ "$n2" != 2 ] ; then
25#       echo le nombre de longitude doit etre une puissance de 2
26#       exit
27#    fi
28
29
30  else if [ $# -ge 2 ] ; then
31      im=1
32      jm=$1
33      lm=$2
34      ndm=1
35  else if [ $# -ge 1 ] ; then
36      im=1
37      jm=1
38      lm=$1
39      ndm=1
40  else
41         echo il faut au moins une dimension
42         exit
43  fi
44fi
45fi
46
47cat << EOF > $fichdim
48!-----------------------------------------------------------------------
49!   INCLUDE 'dimensions.h'
50!
51!   dimensions.h contient les dimensions du modele
52!   ndm est tel que iim=2**ndm
53!-----------------------------------------------------------------------
54
55      INTEGER iim,jjm,llm,ndm
56
57      PARAMETER (iim= $im,jjm=$jm,llm=$lm,ndm=$ndm)
58
59!-----------------------------------------------------------------------
60EOF
61
62fi
63
64\rm ../dimensions.h
65tar cf - $fichdim | ( cd .. ; tar xf - ; mv $fichdim dimensions.h )
Note: See TracBrowser for help on using the repository browser.