Last change
on this file since 2613 was
955,
checked in by emillour, 12 years ago
|
Generic GCM:
- moved the 'makbands' script from "grid" to (more appropriate) "phystd/bands"
subdirectory, and consequently adapted the makegcm_* scripts
EM
|
-
Property svn:executable set to
*
|
File size:
923 bytes
|
Line | |
---|
1 | #!/bin/bash |
---|
2 | |
---|
3 | for i in $* ; do |
---|
4 | list=$list.$i |
---|
5 | done |
---|
6 | fichdim=bands${list} |
---|
7 | |
---|
8 | if [ ! -f $fichdim ] ; then |
---|
9 | # if the file doesn't exist, we create it |
---|
10 | |
---|
11 | if [ $# -ge 2 ] ; then |
---|
12 | NBinfrared=$1 |
---|
13 | NBvisible=$2 |
---|
14 | else |
---|
15 | echo "you need bands in IR and in the visible" |
---|
16 | exit |
---|
17 | fi |
---|
18 | |
---|
19 | cat << EOF > $fichdim |
---|
20 | !----------------------------------------------------------------------- |
---|
21 | ! INCLUDE 'bands.h' |
---|
22 | ! |
---|
23 | ! bands.h contains the visible & infrared bands in the model |
---|
24 | ! |
---|
25 | ! NBinfrared = L_NSPECTI in the model |
---|
26 | ! NBvisible = L_NSPECTV in the model |
---|
27 | !----------------------------------------------------------------------- |
---|
28 | |
---|
29 | INTEGER, parameter :: NBinfrared=$NBinfrared |
---|
30 | INTEGER, parameter :: NBvisible=$NBvisible |
---|
31 | |
---|
32 | |
---|
33 | !----------------------------------------------------------------------- |
---|
34 | EOF |
---|
35 | |
---|
36 | else |
---|
37 | echo "bands file already exists!" |
---|
38 | fi |
---|
39 | |
---|
40 | \rm ../bands.h |
---|
41 | tar cf - $fichdim | ( cd .. ; tar xf - ; mv $fichdim bands.h ) |
---|
Note: See
TracBrowser
for help on using the repository browser.