Unix Scripts

FORTRAN Code

SnowballEarth_Sim2.R Model II 8/24/2000Owner: Dr. Mark Chandler, chandler@giss.nasa.govGroup: Paleoclimate GroupThis experiment simulates a time period approximately 600 million years ago.Object modules:MainC9DiagC9RadC9FFTC9UTILC9Data input files:7=G8X10_600Ma9=NOV1910.rsf_snowball15=O8X10_600Ma17=25=Modern_OceanTransports19=CD8X10_600Ma23=V8X10_600Ma26=Z8X101_600Ma21=RTAU.G25L1522=RPLK2529=Snowball_Earth_RegionsLabel and Namelist:Snowball_sim2 (Snowball Earth Experiment: 600 million years ago) &INPUTZ TAUI=10176.,IYEAR=1900, KOCEAN=1, SRCOR=.95485638151, S0X=1.,CO2=.31746031746031, USET=0.,TAUE=35040., USESLP=-12., ISTART=3,KCOPY=2,NDPRNT=-1,TAUE=10177.,TAUP=95616., &END

C**** INITIALIZE SOME ARRAYS AT THE BEGINNING OF SPECIFIED DAYS 82.

fName = './prt/'//JMNTH0(1:3)//CYEAR//'.prt'//LABEL1(1:LLAB1)

IF(JDAY.NE.32) GO TO 294

c ** END (CHANGED)

JEQ=1+JM/2 83.01

DO 292 J=JEQ,JM 83.02

DO 292 I=1,IM 83.03

292 TSFREZ(I,J,1)=JDAY 83.04

JEQM1=JEQ-1 83.05

DO 293 J=1,JEQM1 83.06

DO 293 I=1,IM 83.07

293 TSFREZ(I,J,2)=JDAY 83.08

GO TO 296 83.09

294 IF(JDAY.NE.213) GO TO 296 83.1

JEQM1=JM/2 83.11

DO 295 J=1,JEQM1 83.12

DO 295 I=1,IM 83.13

295 TSFREZ(I,J,1)=JDAY 83.14

C**** INITIALIZE SOME ARRAYS AT THE BEGINNING OF EACH DAY 83.4

296 DO 297 J=1,JM 83.5

DO 297 I=1,IM 83.51

TDIURN(I,J,1)=1000. 83.511

TDIURN(I,J,2)=-1000. 83.512

TDIURN(I,J,3)=1000. 83.513

TDIURN(I,J,4)=-1000. 83.514

TDIURN(I,J,5)=0. 83.52

TDIURN(I,J,6)=-1000. 83.521

PEARTH=FDATA(I,J,2)*(1.-FDATA(I,J,3)) 83.53

IF(PEARTH.GT.0.) GO TO 297 83.54

TSFREZ(I,J,1)=365. 83.55

TSFREZ(I,J,2)=365. 83.56

297 CONTINUE 83.57

C**** 84.

C**** INTEGRATE DYNAMIC TERMS 85.

C**** 86.

300 MODD5D=MOD(NSTEP,NDA5D) 87.

IF(MODD5D.EQ.0) CALL DIAG5A (2,0) 88.