| File |
Line number |
Procedure |
Code |
|
./pkg/atm2d/forward_step_atm2d.F |
125 |
FORWARD_STEP_ATM2D |
IF(iyr.gt.1000) THEN |
|
./pkg/atm2d/forward_step_atm2d.F |
126 |
FORWARD_STEP_ATM2D |
nfile=iyr |
|
./pkg/atm2d/forward_step_atm2d.F |
128 |
FORWARD_STEP_ATM2D |
nfile=1000+iyr |
|
./pkg/atm2d/forward_step_atm2d.F |
153 |
FORWARD_STEP_ATM2D |
call KVCARBON(iyr) |
|
./pkg/atm2d/forward_step_atm2d.F |
161 |
FORWARD_STEP_ATM2D |
CALL ROBSO3(iyr) |
|
./pkg/atm2d/forward_step_atm2d.F |
168 |
FORWARD_STEP_ATM2D |
CALL EPPAEMISSION (iyr) |
|
./pkg/atm2d/forward_step_atm2d.F |
294 |
FORWARD_STEP_ATM2D |
WRITE (277) iyr,monid,ch4mn,n2omn,nepmn, |
|
./pkg/atm2d/forward_step_atm2d.F |
347 |
FORWARD_STEP_ATM2D |
IF (iyr.ge.1981.and.iyr.le.1990) THEN |
|
./pkg/atm2d/forward_step_atm2d.F |
348 |
FORWARD_STEP_ATM2D |
PRINT *,'Uptake avegaging year=',iyr |
|
./pkg/atm2d/forward_step_atm2d.F |
351 |
FORWARD_STEP_ATM2D |
IF (iyr.eq.1990) THEN |
|
./pkg/atm2d/forward_step_atm2d.F |
362 |
FORWARD_STEP_ATM2D |
IF (iyr.eq.endYear) THEN |
|
./pkg/atm2d/forward_step_atm2d.F |
376 |
FORWARD_STEP_ATM2D |
IF ((mod(iyr,taveDump).EQ.0).AND.(idyear.GE.taveDump)) THEN |
|
./pkg/atm2d/forward_step_atm2d.F |
378 |
FORWARD_STEP_ATM2D |
ELSEIF (mod(iyr,taveDump).EQ.0) THEN |
|
./pkg/atm2d/forward_step_atm2d.F |
381 |
FORWARD_STEP_ATM2D |
CALL YR_END_DIAGS(iyr,myTime,myIter,myThid) |
|
./pkg/atm2d/forward_step_atm2d.F |
392 |
FORWARD_STEP_ATM2D |
PRINT '(a6,i6,2(a5,f10.4))','Year=',iyr, |
|
./pkg/atm2d/forward_step_atm2d.F |
395 |
FORWARD_STEP_ATM2D |
PRINT '(a6,i6,(a5,f10.4))','Year=',iyr, |
|
./pkg/atm2d/forward_step_atm2d.F |
406 |
FORWARD_STEP_ATM2D |
WRITE(333,'(i7,3e15.5)')iyr,ocuptp |
|
./pkg/atm2d/forward_step_atm2d.F |
410 |
FORWARD_STEP_ATM2D |
WRITE(333,'(i7,3e15.5)')iyr,nepan,nepan-1.e-12*ch4ann*12./16. |
|
./pkg/atm2d/forward_step_atm2d.F |
413 |
FORWARD_STEP_ATM2D |
WRITE(333,'(i7,3e15.5)')iyr,nepan,nepan-1.e-12*ch4ann*12./16. |
|
./pkg/atm2d/forward_step_atm2d.F |
419 |
FORWARD_STEP_ATM2D |
WRITE(602)iyr |
|
./pkg/atm2d/forward_step_atm2d.F |
45 |
FORWARD_STEP_ATM2D |
INTEGER iyr ! year # of simulation, starting from specified inyear |
|
./pkg/atm2d/forward_step_atm2d.F |
88 |
FORWARD_STEP_ATM2D |
iyr= idyear + startYear -1 |
|
./pkg/atm2d/yr_end_diags.F |
29 |
YR_END_DIAGS |
INTEGER iyr |
|
./pkg/atm2d/yr_end_diags.F |
50 |
YR_END_DIAGS |
WRITE(25,*) 'YEAR MEAN', iyr |
|
./pkg/atm2d/yr_end_diags.F |
8 |
YR_END_DIAGS |
SUBROUTINE YR_END_DIAGS( iyr, myTime, myIter, myThid ) |
|
./pkg/cal/cal_timepassed.F |
157 |
CAL_TIMEPASSED |
do iyr = yi+1,yf-1 |
|
./pkg/cal/cal_timepassed.F |
159 |
CAL_TIMEPASSED |
& cal_IsLeap( iyr, myThid ) |
|
./pkg/cal/cal_timepassed.F |
60 |
CAL_TIMEPASSED |
INTEGER iyr |