source: LMDZ6/branches/SETHET_DECOUPLE/libf/grid/dimension/makdim @ 4799

Last change on this file since 4799 was 2239, checked in by Ehouarn Millour, 10 years ago

Reorganizing physics/dynamics interface:

  • what is related to dynamics-physics interface is now in a seperate directory: dynlmdz_phy* for physics in phy*
  • 1d model and related dependencies (including a couple from "dynamics", set up as symbolic links) is now in subdirectory "dyn1d" of phy*.
  • "bibio" directory is now "misc" and should only contain autonomous utilities.
  • "cosp" is now a subdirectory of phylmd.

EM

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