-
Notifications
You must be signed in to change notification settings - Fork 1
/
openaccfxtran.sh
executable file
·123 lines (116 loc) · 4.73 KB
/
openaccfxtran.sh
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
#!/bin/bash
export PATH=/home/gmap/mrpm/marguina/fxtran-acdc/bin:$PATH
function resolve ()
{
f=$1
for view in $(cat .gmkview)
do
g="src/$view/$f"
if [ -f $g ]
then
echo $g
break
fi
done
}
for f in \
arpifs/phys_dmn/actke.F90 \
arpifs/phys_dmn/acbl89.F90 \
arpifs/phys_dmn/acturb.F90 \
arpifs/phys_dmn/acevolet.F90 \
arpifs/phys_dmn/aclender.F90 \
arpifs/phys_dmn/hl2fl.F90 \
arpifs/phys_dmn/fl2hl.F90 \
arpifs/phys_dmn/dprecips.F90 \
arpifs/pp_obs/ppwetpoint.F90 \
arpifs/phys_dmn/acdrag.F90 \
arpifs/phys_dmn/acpluis.F90 \
arpifs/phys_dmn/acdnshf.F90 \
arpifs/phys_radi/radozcmf.F90 \
arpifs/phys_dmn/suozon.F90 \
arpifs/adiab/cpphinp.F90 \
arpifs/phys_dmn/aplpar_init.F90 \
arpifs/phys_dmn/actqsat.F90 \
arpifs/phys_dmn/acsol.F90 \
arpifs/phys_dmn/acsolw.F90 \
arpifs/phys_dmn/achmt.F90 \
arpifs/phys_dmn/acntcls.F90 \
arpifs/phys_dmn/achmtls.F90 \
arpifs/phys_dmn/acclph.F90 \
arpifs/phys_dmn/qngcor.F90 \
arpifs/phys_dmn/acdrme.F90 \
arpifs/phys_dmn/acevadcape.F90 \
arpifs/phys_dmn/accldia.F90 \
arpifs/phys_dmn/acvisih.F90 \
arpifs/phys_dmn/mf_phys_precips.F90 \
arpifs/phys_dmn/mf_phys_bayrad.F90 \
arpifs/phys_dmn/acfluso.F90 \
arpifs/phys_radi/radaer.F90 \
arpifs/phys_dmn/acnebcond.F90 \
arpifs/phys_dmn/acnebsm.F90 \
arpifs/phys_dmn/acnebn.F90 \
arpifs/phys_dmn/acnebxrs.F90 \
arpifs/phys_dmn/acnpart.F90 \
arpifs/phys_dmn/acnpart_cloud_cover_wmo.F90 \
arpifs/phys_dmn/acnpart_cloud_cover.F90 \
arpifs/phys_dmn/acnpart_conv_base_top.F90 \
arpifs/phys_radi/radheat.F90 \
arpifs/phys_dmn/acdayd.F90 \
arpifs/phys_radi/acrso.F90 \
arpifs/phys_dmn/acveg.F90 \
arpifs/phys_dmn/acdifv1.F90 \
arpifs/phys_dmn/arp_ground_param.F90 \
arpifs/phys_dmn/acdifv2.F90 \
arpifs/phys_dmn/tridifv1.F90 \
arpifs/phys_dmn/acuptq.F90 \
arpifs/phys_dmn/acpluiz.F90 \
arpifs/phys_dmn/acmicro.F90 \
arpifs/phys_dmn/advprcs.F90 \
arpifs/phys_dmn/acdrov.F90 \
arpifs/phys_dmn/acdrov.F90 \
arpifs/adiab/cpwts.F90 \
arpifs/adiab/cptends.F90 \
arpifs/adiab/cptend_new.F90 \
arpifs/adiab/cpmvvps.F90
do
echo "==> $f <=="
dir=$(dirname $f)
mkdir -p src/local/ifsaux/openacc/$dir
# --only-if-newer
openacc.pl $* \
--dir src/local/ifsaux/openacc/$dir \
--nocompute ABOR1 --version \
$(resolve $f)
done
for f in \
arpifs/phys_dmn/cucalln_mf.F90 \
arpifs/phys_ec/cuadjtq.F90 \
arpifs/phys_ec/cuascn.F90 \
arpifs/phys_ec/cubasen.F90 \
arpifs/phys_ec/cuddrafn.F90 \
arpifs/phys_ec/cudlfsn.F90 \
arpifs/phys_ec/cududv.F90 \
arpifs/phys_ec/cuinin.F90 \
arpifs/phys_ec/cuadjtqs.F90 \
arpifs/phys_ec/cubasmcn.F90 \
arpifs/phys_ec/cubidiag.F90 \
arpifs/phys_ec/cuccdia.F90 \
arpifs/phys_ec/cuctracer.F90 \
arpifs/phys_ec/cudtdqn.F90 \
arpifs/phys_ec/cuentr.F90 \
arpifs/phys_ec/cuflxn.F90 \
arpifs/phys_ec/cumastrn.F90 \
arpifs/phys_ec/culight.F90 \
arpifs/phys_ec/satur.F90
do
echo "==> $f <=="
dir=$(dirname $f)
mkdir -p src/local/ifsaux/openacc/$dir
# --only-if-newer \
openacc.pl $* \
--inlined cuadjtq.F90,cubasmcn.F90,cuentr.F90,cuadjtqs.F90 \
--dir src/local/ifsaux/openacc/$dir \
--nocompute ABOR1 --version \
--jljk2jlonjlev --cycle 49 \
$(resolve $f)
done