| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
1112 |
TIME2FREQ2 |
integer year, month, day, sec |
|
./pkg/fizhi/fizhi_clockstuff.F |
368 |
GET_TIME |
year = year + 1 |
|
./pkg/fizhi/fizhi_clockstuff.F |
884 |
ASTRO |
integer year, day, sec, month, iday, idayp1 |
|
./verification/global1x1_tot/code_taueddy/cfc_atmos.F |
30 |
CFC_ATMOS |
_RL year(100) |
|
./verification/global1x1_tot/code_taueddy/cfc_atmos.F |
64 |
CFC_ATMOS |
READ(Iunit,*) year(it),ACFC11(it,1),ACFC12(it,1), |
|
./pkg/cal/cal_isleap.F |
43 |
NO PROCEDURE |
integer year |
|
./pkg/cal/cal_isleap.F |
49 |
NO PROCEDURE |
if ( mod(year,4) .ne. 0 ) then |
|
./pkg/cal/cal_isleap.F |
53 |
NO PROCEDURE |
if ( (mod(year,100) .eq. 0) .and. |
|
./pkg/cal/cal_isleap.F |
54 |
NO PROCEDURE |
& (mod(year,400) .ne. 0) ) then |
|
./pkg/cal/cal_isleap.F |
59 |
NO PROCEDURE |
if ( mod(year,4) .ne. 0 ) then |
|
./pkg/cal/cal_isleap.F |
7 |
NO PROCEDURE |
I year, |
|
./pkg/cfc/cfc_atmos.F |
31 |
CFC_ATMOS |
_RL year(100) |
|
./pkg/cfc/cfc_atmos.F |
67 |
CFC_ATMOS |
READ(iUnit,*) year(it),ACFC11(it,1),ACFC12(it,1), |
|
./pkg/chronos/chronos.F |
337 |
GET_TIME |
year = year + 1 |
|
./pkg/chronos/chronos.F |
735 |
ASTRO |
integer year, day, sec, month, iday, idayp1 |
|
./pkg/ecco/cost_gencost_sshv4.F |
128 |
COST_GENCOST_SSHV4 |
integer tpmean_y0,tpmean_y1,year,day |
|
./pkg/ecco/cost_gencost_sshv4.F |
217 |
COST_GENCOST_SSHV4 |
do year=tpmean_y0,tpmean_y1 |
|
./pkg/ecco/cost_gencost_sshv4.F |
222 |
COST_GENCOST_SSHV4 |
& year, day, mythid ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
227 |
COST_GENCOST_SSHV4 |
& year, day, mythid ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
232 |
COST_GENCOST_SSHV4 |
& year, day, mythid ) |
|
./pkg/ecco/cost_sla_read_yd.F |
100 |
COST_SLA_READ_YD |
& (cal_IsLeap(year,mythid).eq.2).AND.(day.LE.366) |
|
./pkg/ecco/cost_sla_read_yd.F |
106 |
COST_SLA_READ_YD |
& sla_file(1:il), '_', year |
|
./pkg/ecco/cost_sla_read_yd.F |
11 |
COST_SLA_READ_YD |
I year,day, mythid ) |
|
./pkg/ecco/cost_sla_read_yd.F |
39 |
COST_SLA_READ_YD |
integer year,day |
|
./pkg/ecco/cost_sshv4.F |
122 |
COST_SSHV4 |
integer tpmean_y0,tpmean_y1,year,day |
|
./pkg/ecco/cost_sshv4.F |
197 |
COST_SSHV4 |
do year=tpmean_y0,tpmean_y1 |
|
./pkg/ecco/cost_sshv4.F |
202 |
COST_SSHV4 |
& year, day, mythid ) |
|
./pkg/ecco/cost_sshv4.F |
207 |
COST_SSHV4 |
& year, day, mythid ) |
|
./pkg/ecco/cost_sshv4.F |
212 |
COST_SSHV4 |
& year, day, mythid ) |
|
./pkg/exf/exf_getyearlyfieldname.F |
31 |
EXF_GETYEARLYFIELDNAME |
integer year |
|
./pkg/exf/exf_getyearlyfieldname.F |
55 |
EXF_GETYEARLYFIELDNAME |
yearLoc = year-1900 |
|
./pkg/exf/exf_getyearlyfieldname.F |
56 |
EXF_GETYEARLYFIELDNAME |
if (year.ge.2000) yearLoc = year-2000 |
|
./pkg/exf/exf_getyearlyfieldname.F |
59 |
EXF_GETYEARLYFIELDNAME |
write(genfileout(1:128),'(2a,i4.4)') genfile(1:il),'_',year |
|
./pkg/exf/exf_getyearlyfieldname.F |
6 |
EXF_GETYEARLYFIELDNAME |
I useYearlyFields, twoDigitYear, genperiod, year, genfile, |