source: LMDZ5/branches/LMDZ5V2.0-dev/libf/grid/dimension/makdim @ 1959

Last change on this file since 1959 was 1146, checked in by Laurent Fairhead, 16 years ago

Réintegration dans le tronc des modifications issues de la branche LMDZ-dev
comprises entre la révision 1074 et 1145
Validation: une simulation de 1 jour en séquentiel sur PC donne les mêmes
résultats entre la trunk et la dev
LF

  • 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.