[cig-commits] r5402 - geodyn/3D/MAG/trunk/src

[wei at geodynamics.org]

Author: wei
Date: 2006-11-30 16:37:41 -0800 (Thu, 30 Nov 2006)
New Revision: 5402

Added:
   geodyn/3D/MAG/trunk/src/par.Rev
Modified:
   geodyn/3D/MAG/trunk/src/param.f
   geodyn/3D/MAG/trunk/src/param32s1.f
Log:
Add parameter file for reversal dynamo

Added: geodyn/3D/MAG/trunk/src/par.Rev
===================================================================
--- geodyn/3D/MAG/trunk/src/par.Rev	2006-11-30 23:38:30 UTC (rev 5401)
+++ geodyn/3D/MAG/trunk/src/par.Rev	2006-12-01 00:37:41 UTC (rev 5402)
@@ -0,0 +1,39 @@
+ &contrl
+ outfile="rev",
+ runid="Ra=1.2E4 Ek=2.0E-2 Els=5 Pr=1 Pm=10 RR TT H=0",
+ init=1,
+ treset=.true.,
+ samp=0.1000,
+ nstep=3000,
+ nprnt=8,
+ nstor=8,
+ nplog=0,
+ nlogstep=150,
+ ngform=1,
+ ngrad=01,
+ ngcolat=1,
+ nglon=1,
+ dtmax=1.5E-4,
+ courfac=5.0,
+ alffac=0.1,
+ radratio=0.35,
+ ra=1.2E4,
+ ek=2.0E-2,
+ pr=1.0,
+ prmag=10.0,
+ bpeak=-5.0,
+ ifbfrz=.false.,
+ imagcon=0,
+ ktops=1,
+ kbots=1,
+ epsc0=0.0,
+ ktopv=2,
+ kbotv=2,
+ difamp=0,
+ imovopt=000,
+ tmovstart=0.0,
+ tmovstep=0.0,
+ iframes=00,
+ icour=4 /
+ &bounds /
+

Modified: geodyn/3D/MAG/trunk/src/param.f
===================================================================
--- geodyn/3D/MAG/trunk/src/param.f	2006-11-30 23:38:30 UTC (rev 5401)
+++ geodyn/3D/MAG/trunk/src/param.f	2006-12-01 00:37:41 UTC (rev 5402)
@@ -1 +1 @@
-link param32s4.f
\ No newline at end of file
+link param32s1.f
\ No newline at end of file

Modified: geodyn/3D/MAG/trunk/src/param32s1.f
===================================================================
--- geodyn/3D/MAG/trunk/src/param32s1.f	2006-11-30 23:38:30 UTC (rev 5401)
+++ geodyn/3D/MAG/trunk/src/param32s1.f	2006-12-01 00:37:41 UTC (rev 5402)
@@ -1,7 +1,7 @@
       parameter (nn=25,ni=48,nj=096,nnaf=23,minc=1)
 c
 c This file is an example of a input grid parameter file 
-c to be linked to 'param.f' using command 'ln -sf param32s6.f param.f'
+c to be linked to 'param.f' using command 'ln -sf param32s1.f param.f'
 c after linking, run the makefile with command 'make'.
 c
       parameter (nnp2=nn+2,nnp1=nn+1,nn1=nn-1,nn2=nn-2,nn3=nn-3,