Contents of /MITgcm/verification/tutorial_global_oce_optim/input_ad/cycsh

#!/bin/csh
set name=tutorial
set itermax=15
module load ifc

set ite=`egrep 'optimcycle' data.optim | sed 's/ optimcycle=//'| sed 's/,$//'`
set i=`expr $ite + 1`
while ( $i <= $itermax )
 set ii=`add0upto3c $i`
 echo "Beginning of iteration $ii"
 cp -p OPTIM/ctrlhflux_tut_MITgcm.opt0$ii .
 set ite=`expr $i - 1`
 sed "s/ optimcycle=$ite/ optimcycle=$i/" data.optim > TTT.tmp
 mv -f TTT.tmp data.optim
 set fich=output$name$ii
 echo "Running mitcgm_ad: iteration $ii" 
 ./mitgcmuv_ad > $fich
 egrep optimcycle data.optim >> fcost$name
 grep "objf_temp_tut(" $fich >> fcost$name
 grep "objf_hflux_tut(" $fich >> fcost$name
 egrep 'global fc =' $fich >> fcost$name
 echo Cleaning 
 \rm tapelev*
 set direc=run$name$ii
 mkdir $direc
 mv *.data *.meta $direc
 mv ctrlhflux_tut_MITgcm.opt0$ii $fich $direc
 mv costhflux_tut_MITgcm.opt0$ii OPTIM/
 echo "Line-search: iteration $ii"
 cd OPTIM/
 egrep optimcycle data.optim
 ./optim.x > std$ii
 cd ..
 set i=`expr $i + 1`
end
1	#!/bin/csh
2	set name=tutorial
3	set itermax=15
4	module load ifc
5
6	set ite=`egrep 'optimcycle' data.optim \| sed 's/ optimcycle=//'\| sed 's/,$//'`
7	set i=`expr $ite + 1`
8	while ( $i <= $itermax )
9	set ii=`add0upto3c $i`
10	echo "Beginning of iteration $ii"
11	cp -p OPTIM/ctrlhflux_tut_MITgcm.opt0$ii .
12	set ite=`expr $i - 1`
13	sed "s/ optimcycle=$ite/ optimcycle=$i/" data.optim > TTT.tmp
14	mv -f TTT.tmp data.optim
15	set fich=output$name$ii
16	echo "Running mitcgm_ad: iteration $ii"
17	./mitgcmuv_ad > $fich
18	egrep optimcycle data.optim >> fcost$name
19	grep "objf_temp_tut(" $fich >> fcost$name
20	grep "objf_hflux_tut(" $fich >> fcost$name
21	egrep 'global fc =' $fich >> fcost$name
22	echo Cleaning
23	\rm tapelev*
24	set direc=run$name$ii
25	mkdir $direc
26	mv .data .meta $direc
27	mv ctrlhflux_tut_MITgcm.opt0$ii $fich $direc
28	mv costhflux_tut_MITgcm.opt0$ii OPTIM/
29	echo "Line-search: iteration $ii"
30	cd OPTIM/
31	egrep optimcycle data.optim
32	./optim.x > std$ii
33	cd ..
34	set i=`expr $i + 1`
35	end