source: LMDZ6/trunk/libf/grid/dimension/makdim @ 5128

Last change on this file since 5128 was 4554, checked in by musat, 19 months ago

Correction if
Ionela Musat

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 1.7 KB
Line 
1#!/bin/bash
2#set -xv
3
4# sanity check: do we have the required argument ?
5if (( $# < 1 )) || (( $# > 3 ))
6then
7    echo "Wrong number of parameters in $0 !!!"
8    echo " Usage:"
9    echo $0 [im] [jm] lm"
10    echo " where im, jm and lm are the dimensions"
11    exit 1
12fi
13
14if ( (( $1 % 8 != 0 )) && (( $# == 3 )) || (( $1 == 1 )) )
15then
16    echo "The number of longitudes must be a multiple of 8."
17    echo "See the files dyn3d/groupe.F and dyn3dmem/groupe_loc.F."
18    exit 1
19fi
20
21# build "fichnom", the relevant 'dimensions.im.jm.lm' file name
22for i in $*
23do
24    list=$list.$i
25done
26fichdim=dimensions${list}
27
28if [ ! -f $fichdim ]
29then
30#    echo "$fichdim does not exist"
31
32    # assign values of im, jm and lm
33    if [ $# -ge 3 ]
34    then
35        im=$1
36        jm=$2
37        lm=$3
38        ndm=1
39    elif [ $# -ge 2 ]
40    then
41        im=1
42        jm=$1
43        lm=$2
44        ndm=1
45    elif [ $# -ge 1 ]
46    then
47        im=1
48        jm=1
49        lm=$1
50        ndm=1
51    fi
52
53# since the file doesn't exist, we create it
54    cat << EOF > $fichdim
55!-----------------------------------------------------------------------
56!   INCLUDE 'dimensions.h'
57!
58!   dimensions.h contient les dimensions du modele
59!   ndm est tel que iim=2**ndm
60!-----------------------------------------------------------------------
61
62      INTEGER iim,jjm,llm,ndm
63
64      PARAMETER (iim= $im,jjm=$jm,llm=$lm,ndm=$ndm)
65
66!-----------------------------------------------------------------------
67EOF
68
69fi
70
71# remove 'old' dimensions.h file (if any) and replace it with new one
72if [ -f ../dimensions.h ] ; then
73    \rm ../dimensions.h
74fi
75tar cf - $fichdim | ( cd .. ; tar xf - ; mv $fichdim dimensions.h )
76# line above is a trick to preserve time of creation of dimensions.h files
Note: See TracBrowser for help on using the repository browser.