#PBS -S /bin/ksh
#PBS -N C927
#PBS -j o
#PBS -T mpisx
#PBS -b 1
#PBS -l elapstim_req="360,390"
#PBS -l cputim_job="140,130"
#PBS -l cpunum_job=5
#PBS -l memsz_job=32000mb
#PBS -q vector

export DR_HOOK=0
export DR_HOOK_IGNORE_SIGNALS=-1
export F_UFMTENDIAN=31
export F_SYSLEN=1000
export F_FMTBUF=131072
export F_PROGINF=DETAIL
export F_FTRACE=FMT2
export F_RECLUNIT=BYTE
export MPIPROGINF=ALL_DETAIL
export MPISEPSELECT=0
export MPIEXPORT="F_FTRACE,F_FMTBUF,F_RECLUNIT,MPIPROGINF,PATH,DR_HOOK,DR_HOOK_IGNORE_SIGNALS"

# basculement sur un espace de travail.
# move on a workspace.
export TEMPORAIRE=$TMP_LOC
cd $TEMPORAIRE

# transformation fichier issu du CEP en fichier Arpege a la bonne troncature
#-----------------------------------------------
#
set -x
#
export NPROC=5
#
REP_JAG=$WORKDIR
MONTH=10
CLIM_T358=/mf/dp/marp/marp001/tampon/const/clim_arpege/tl358/clim_arpege.tl358.05.m${MONTH}
MASTER_ARPEGE=/mf/dp/marp/marp001/tampon/bin/arp/cy31/cy31t1_op1NEC.04.SX8RV20.x.exe
#
# fichier issu de C901 T799 isba en entree!
\cp -b 32768 ${REP_JAG}/CN90xa001INIT.T ICMSHARPEINIT
#
#-----------------------------------------------
# Fichier climatologique de la geometrie de depart.
#-----------------------------------------------
\cp -b 32768 ${REP_JAG}/Const.Clim.m${MONTH} Const.Clim
#
#-----------------------------------------------
# Fichier climatologique de la geometrie d'arrivee.
#-----------------------------------------------
#
\cp -b 32768 $CLIM_T358 const.clim.000
#
#-----------------------------------------------
# Namelists.
#-----------------------------------------------
#
cat < fort.4
&NAECOAPHY
/
&NAMARPHY
/
&NAMJFH
/
&NAMPARAR
/
&NAMTS
/
&NEMJK
/
&NAEPHY
/
&NAERAD
/
&NAMAFN
/
&NAMANCS
/
&NAMCAPE
/
&NAMCFU
/
&NAMCHET
/
&NAMCHK
/
&NAMCOM
/
&NAMCT0
NSPPR=0,
LFPOS=.TRUE.,
LOPT_SCALAR=.FALSE.,
NPRINTLEV=1,
/
&NAMCT1
N1HIS=0,
LRFILAF=.FALSE.,
/
&NAMCUMFS
/
&NAMCVER
/
&NAMDDH
/
&NAMDFHD
/
&NAMDFI
/
&NAMDIF
/
&NAMDIM
NPROMA=1359,
/
&NAMDMSP
/
&NAMDPHY
/
&NAMDYN
/
&NAMDYNA
/
&NAMFA
NBITCS=-1,
NSTRON=-1,
NBITPG=-1,
NVGRIB=0,
/
&NAMFPC
CFPFMT='GAUSS',
CFP3DF(1)='TEMPERATURE',
CFP3DF(2)='FONC.COURANT',
CFP3DF(3)='POT.VITESSE',
CFP3DF(4)='HUMI.SPECIFIQUE',
CFP2DF(1)='SURFPRESSION',
CFP2DF(2)='SPECSURFGEOPOTENTIEL',
CFPPHY(1)='SURFTEMPERATURE',
CFPPHY(2)='PROFTEMPERATURE',
CFPPHY(3)='PROFRESERV.EAU',
CFPPHY(4)='SURFRESERV.NEIGE',
CFPPHY(5)='SURFRESERV.EAU',
CFPPHY(6)='SURFZ0.FOIS.G',
CFPPHY(7)='SURFALBEDO',
CFPPHY(8)='SURFEMISSIVITE',
CFPPHY(9)='SURFET.GEOPOTENT',
CFPPHY(10)='SURFIND.TERREMER',
CFPPHY(11)='SURFPROP.VEGETAT',
CFPPHY(12)='SURFVAR.GEOP.ANI',
CFPPHY(13)='SURFVAR.GEOP.DIR',
CFPPHY(14)='SURFIND.VEG.DOMI',
CFPPHY(15)='SURFRESI.STO.MIN',
CFPPHY(16)='SURFPROP.ARGILE',
CFPPHY(17)='SURFPROP.SABLE',
CFPPHY(18)='SURFEPAIS.SOL',
CFPPHY(19)='SURFIND.FOLIAIRE',
CFPPHY(20)='SURFRES.EVAPOTRA',
CFPPHY(21)='SURFGZ0.THERM',
CFPPHY(22)='PROFRESERV.GLACE',
CFPPHY(23)='SURFRESERV.INTER',
CFPPHY(24)='SURFRESERV.GLACE',
CFPPHY(25)='SURFDENSIT.NEIGE',
CFPPHY(26)='SURFALBEDO NEIGE',
CFPPHY(27)='SURFALBEDO.SOLNU',
CFPPHY(28)='SURFALBEDO.VEG',
CFPPHY(29)='SURFA.OF.OZONE ',
CFPPHY(30)='SURFB.OF.OZONE ',
CFPPHY(31)='SURFC.OF.OZONE ',
CFPPHY(32)='SURFAEROS.SEA ',
CFPPHY(33)='SURFAEROS.LAND ',
CFPPHY(34)='SURFAEROS.SOOT ',
CFPPHY(35)='SURFAEROS.DESERT',
NFPCLI=3,
LFPSPEC=.TRUE.,
LFPMOIS=.FALSE.,
NRFP3S=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,
/
&NAMFPD
NLAT=360,
NLON=720,
/
&NAMFPEZO
/
&NAMFPF
/
&NAMFPG
NFPRGRI( 1)=18,
NFPRGRI( 2)=30,
NFPRGRI( 3)=36,
NFPRGRI( 4)=48,
NFPRGRI( 5)=50,
NFPRGRI( 6)=60,
NFPRGRI( 7)=64,
NFPRGRI( 8)=80,
NFPRGRI( 9)=80,
NFPRGRI( 10)=90,
NFPRGRI( 11)=96,
NFPRGRI( 12)=100,
NFPRGRI( 13)=120,
NFPRGRI( 14)=120,
NFPRGRI( 15)=128,
NFPRGRI( 16)=144,
NFPRGRI( 17)=144,
NFPRGRI( 18)=144,
NFPRGRI( 19)=150,
NFPRGRI( 20)=160,
NFPRGRI( 21)=180,
NFPRGRI( 22)=180,
NFPRGRI( 23)=180,
NFPRGRI( 24)=192,
NFPRGRI( 25)=192,
NFPRGRI( 26)=200,
NFPRGRI( 27)=216,
NFPRGRI( 28)=216,
NFPRGRI( 29)=216,
NFPRGRI( 30)=240,
NFPRGRI( 31)=240,
NFPRGRI( 32)=240,
NFPRGRI( 33)=250,
NFPRGRI( 34)=250,
NFPRGRI( 35)=256,
NFPRGRI( 36)=270,
NFPRGRI( 37)=270,
NFPRGRI( 38)=288,
NFPRGRI( 39)=288,
NFPRGRI( 40)=288,
NFPRGRI( 41)=300,
NFPRGRI( 42)=300,
NFPRGRI( 43)=320,
NFPRGRI( 44)=320,
NFPRGRI( 45)=320,
NFPRGRI( 46)=324,
NFPRGRI( 47)=360,
NFPRGRI( 48)=360,
NFPRGRI( 49)=360,
NFPRGRI( 50)=360,
NFPRGRI( 51)=360,
NFPRGRI( 52)=360,
NFPRGRI( 53)=384,
NFPRGRI( 54)=384,
NFPRGRI( 55)=384,
NFPRGRI( 56)=384,
NFPRGRI( 57)=400,
NFPRGRI( 58)=400,
NFPRGRI( 59)=400,
NFPRGRI( 60)=432,
NFPRGRI( 61)=432,
NFPRGRI( 62)=432,
NFPRGRI( 63)=432,
NFPRGRI( 64)=432,
NFPRGRI( 65)=432,
NFPRGRI( 66)=450,
NFPRGRI( 67)=450,
NFPRGRI( 68)=450,
NFPRGRI( 69)=480,
NFPRGRI( 70)=480,
NFPRGRI( 71)=480,
NFPRGRI( 72)=480,
NFPRGRI( 73)=480,
NFPRGRI( 74)=480,
NFPRGRI( 75)=486,
NFPRGRI( 76)=500,
NFPRGRI( 77)=500,
NFPRGRI( 78)=500,
NFPRGRI( 79)=512,
NFPRGRI( 80)=512,
NFPRGRI( 81)=512,
NFPRGRI( 82)=540,
NFPRGRI( 83)=540,
NFPRGRI( 84)=540,
NFPRGRI( 85)=540,
NFPRGRI( 86)=540,
NFPRGRI( 87)=540,
NFPRGRI( 88)=576,
NFPRGRI( 89)=576,
NFPRGRI( 90)=576,
NFPRGRI( 91)=576,
NFPRGRI( 92)=576,
NFPRGRI( 93)=576,
NFPRGRI( 94)=576,
NFPRGRI( 95)=576,
NFPRGRI( 96)=600,
NFPRGRI( 97)=600,
NFPRGRI( 98)=600,
NFPRGRI( 99)=600,
NFPRGRI(100)=600,
NFPRGRI(101)=600,
NFPRGRI(102)=640,
NFPRGRI(103)=640,
NFPRGRI(104)=640,
NFPRGRI(105)=640,
NFPRGRI(106)=640,
NFPRGRI(107)=640,
NFPRGRI(108)=640,
NFPRGRI(109)=640,
NFPRGRI(110)=640,
NFPRGRI(111)=640,
NFPRGRI(112)=640,
NFPRGRI(113)=640,
NFPRGRI(114)=648,
NFPRGRI(115)=648,
NFPRGRI(116)=720,
NFPRGRI(117)=720,
NFPRGRI(118)=720,
NFPRGRI(119)=720,
NFPRGRI(120)=720,
NFPRGRI(121)=720,
NFPRGRI(122)=720,
NFPRGRI(123)=720,
NFPRGRI(124)=720,
NFPRGRI(125)=720,
NFPRGRI(126)=720,
NFPRGRI(127)=720,
NFPRGRI(128)=720,
NFPRGRI(129)=720,
NFPRGRI(130)=720,
NFPRGRI(131)=720,
NFPRGRI(132)=720,
NFPRGRI(133)=720,
NFPRGRI(134)=720,
NFPRGRI(135)=720,
NFPRGRI(136)=720,
NFPRGRI(137)=720,
NFPRGRI(138)=720,
NFPRGRI(139)=720,
NFPRGRI(140)=720,
NFPRGRI(141)=720,
NFPRGRI(142)=720,
NFPRGRI(143)=720,
NFPRGRI(144)=720,
NFPRGRI(145)=720,
NFPRGRI(146)=720,
NFPRGRI(147)=720,
NFPRGRI(148)=720,
NFPRGRI(149)=720,
NFPRGRI(150)=720,
NFPRGRI(151)=720,
NFPRGRI(152)=720,
NFPRGRI(153)=720,
NFPRGRI(154)=720,
NFPRGRI(155)=720,
NFPRGRI(156)=720,
NFPRGRI(157)=720,
NFPRGRI(158)=720,
NFPRGRI(159)=720,
NFPRGRI(160)=720,
NFPRGRI(161)=720,
NFPRGRI(162)=720,
NFPRGRI(163)=720,
NFPRGRI(164)=720,
NFPRGRI(165)=720,
NFPRGRI(166)=720,
NFPRGRI(167)=720,
NFPRGRI(168)=720,
NFPRGRI(169)=720,
NFPRGRI(170)=720,
NFPRGRI(171)=720,
NFPRGRI(172)=720,
NFPRGRI(173)=720,
NFPRGRI(174)=720,
NFPRGRI(175)=720,
NFPRGRI(176)=720,
NFPRGRI(177)=720,
NFPRGRI(178)=720,
NFPRGRI(179)=720,
NFPRGRI(180)=720,
FPLOCEN=0.045,
FPMUCEN=0.725,
FPNLGINC=0.,
FPSTRET=2.4,
NFPHTYP=2,
NFPLEV=46,
NFPMAX=358,
NFPTTYP=2,
FPVALH(0)=0.,
FPVALH(1)=10.873127,
FPVALH(2)=30.803424,
FPVALH(3)=72.058023,
FPVALH(4)=130.833383,
FPVALH(5)=234.126846,
FPVALH(6)=458.253235,
FPVALH(7)=516.473511,
FPVALH(8)=734.981567,
FPVALH(9)=928.397766,
FPVALH(10)=1097.767700,
FPVALH(11)=1244.136719,
FPVALH(12)=1368.550293,
FPVALH(13)=1472.054077,
FPVALH(14)=1555.693481,
FPVALH(15)=1620.514160,
FPVALH(16)=1667.561401,
FPVALH(17)=1697.880737,
FPVALH(18)=1712.517578,
FPVALH(19)=1712.517456,
FPVALH(20)=1698.926147,
FPVALH(21)=1672.788818,
FPVALH(22)=1635.151123,
FPVALH(23)=1587.058350,
FPVALH(24)=1529.556152,
FPVALH(25)=1463.690186,
FPVALH(26)=1390.505737,
FPVALH(27)=1311.048096,
FPVALH(28)=1226.363403,
FPVALH(29)=1137.496460,
FPVALH(30)=1045.493042,
FPVALH(31)=951.398682,
FPVALH(32)=856.258728,
FPVALH(33)=761.118896,
FPVALH(34)=667.024536,
FPVALH(35)=575.021118,
FPVALH(36)=486.154266,
FPVALH(37)=401.469360,
FPVALH(38)=322.011841,
FPVALH(39)=248.827347,
FPVALH(40)=182.961258,
FPVALH(41)=125.459160,
FPVALH(42)=77.366501,
FPVALH(43)=39.728729,
FPVALH(44)=13.591413,
FPVALH(45)=0.000000,
FPVALH(46)=0.000000,
FPVBH(0)=0.,
FPVBH(1)=0.0000000000,
FPVBH(2)=0.0000000000,
FPVBH(3)=0.0000000000,
FPVBH(4)=0.0000000000,
FPVBH(5)=0.0000000000,
FPVBH(6)=0.0000000000,
FPVBH(7)=0.0034566391,
FPVBH(8)=0.0101978322,
FPVBH(9)=0.0200514905,
FPVBH(10)=0.0328455307,
FPVBH(11)=0.0484078601,
FPVBH(12)=0.0665664002,
FPVBH(13)=0.0871490464,
FPVBH(14)=0.1099837348,
FPVBH(15)=0.1348983943,
FPVBH(16)=0.1617208868,
FPVBH(17)=0.1902791560,
FPVBH(18)=0.2204010785,
FPVBH(19)=0.2519146502,
FPVBH(20)=0.2846477032,
FPVBH(21)=0.3184281588,
FPVBH(22)=0.3530840278,
FPVBH(23)=0.3884431124,
FPVBH(24)=0.4243333638,
FPVBH(25)=0.4605826735,
FPVBH(26)=0.4970190227,
FPVBH(27)=0.5334702730,
FPVBH(28)=0.5697643161,
FPVBH(29)=0.6057290435,
FPVBH(30)=0.6411924958,
FPVBH(31)=0.6759824157,
FPVBH(32)=0.7099269032,
FPVBH(33)=0.7428537607,
FPVBH(34)=0.7745908499,
FPVBH(35)=0.8049662113,
FPVBH(36)=0.8338077664,
FPVBH(37)=0.8609431386,
FPVBH(38)=0.8862006068,
FPVBH(39)=0.9094079137,
FPVBH(40)=0.9303930998,
FPVBH(41)=0.9489839077,
FPVBH(42)=0.9650081992,
FPVBH(43)=0.9782941937,
FPVBH(44)=0.9886693358,
FPVBH(45)=0.9959621429,
FPVBH(46)=1.0000000000,
/
&NAMFPIOS
/
&NAMFPSC2
/
&NAMGEM
/
&NAMGFL
/
&NAMGMS
/
&NAMGOES
/
&NAMGOM
/
&NAMGRIB
/
&NAMHCP
/
&NAMHLOPT
/
&NAMINI
NEINI=0,
/
&NAMIOMI
/
&NAMIOS
/
&NAMJBCODES
/
&NAMJG
/
&NAMJO
/
&NAMLCZ
/
&NAMLSFORC
/
&NAMMCC
/
&NAMMCUF
/
&NAMMETEOSAT
/
&NAMMKODB
/
&NAMMODERR
/
&NAMMTS
/
&NAMNASA
/
&NAMNMI
/
&NAMNN
/
&NAMNPROF
/
&NAMNUD
/
&NAMOBS
/
&NAMOPH
NCADFORM=1,
/
&NAMPAR0
MP_TYPE=2,
NOUTPUT=1,
NPROC=NBPROC,
NPRGPNS=NBPROC,
NPRGPEW=1,
NPRTRW=NBPROC,
NPRTRV=1,
/
&NAMPAR1
NSTRIN=NBPROC,
NSTROUT=NBPROC,
LSPLIT=.TRUE.,
/
&NAMPARAR
/
&NAMPHY
LNEBN=.FALSE.,
LVGSN=.TRUE.,
LO3ABC=.TRUE.,
LAEROSEA=.TRUE.,
LAEROLAN=.TRUE.,
LAEROSOO=.TRUE.,
LAERODES=.TRUE.,
/
&NAMPHY0
/
&NAMPHY1
/
&NAMPHY2
/
&NAMPHY3
/
&NAMPHYDS
/
&NAMPONG
/
&NAMPPC
/
&NAMRCOEF
/
&NAMRES
/
&NAMRINC
/
&NAMRIP
/
&NAMSCAT
/
&NAMSCEN
/
&NAMSCM
/
&NAMSENS
/
&NAMSIMPHL
/
&NAMSSMI
/
&NAMSTA
/
&NAMSTOPH
/
&NAMTESTVAR
/
&NAMTLEVOL
/
&NAMTOPH
/
&NAMTOVS
/
&NAMTRAJP
/
&NAMTRANS
/
&NAMVAR
/
&NAMVAREPS
/
&NAMVDOZ
/
&NAMVFP
/
&NAMVRTL
/
&NAMVV1
/
&NAMVWRK
/
&NAMXFU
/
&NAM_DISTRIBUTED_VECTORS
/
&NAPHLC
/
FIN
cat fort.4
#
#-----------------------------------------------
# Executable
#-----------------------------------------------
\cp -b 32768 $MASTER_ARPEGE ARPEGE

mpirun -nn 1 -nnp $NPROC ARPEGE -c001 -vmeteo -eARPE -t1800. -ft1 -asli >>lola 2>&1
CODREP=$?
ls -lrt
cat -s lola
cat -s NODE.001_01

if [ $CODREP -ne 0 ]
then
exit 180
fi
#

# ajout des champs supplementaires

#ADDOZOAER PFARPE000+0000 const.clim.000
#CODREP=$?
\rm -f core*
ls -lrt
if [ $CODREP -ne 0 ]
then
exit 180
fi
#-----------------------------------------------
# Sauvegarde des fichiers historiques et post-processing.
#-----------------------------------------------
#
\cp -b 32768 PFARPE000+0000 ${REP_JAG}/PFARPE000+0000

/usr/local/bin/ja