source: LMDZ.3.3/branches/rel-LF/libf/grid/dimension/makdim @ 341

Last change on this file since 341 was 2, checked in by lmdz, 25 years ago

Initial revision

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