| File |
Line number |
Procedure |
Code |
|
./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, |
|
./pkg/fizhi/fizhi_clockstuff.F |
1127 |
TIME2FREQ2 |
integer year, month, day, sec |
|
./pkg/fizhi/fizhi_clockstuff.F |
382 |
GET_TIME |
year = year + 1 |
|
./pkg/fizhi/fizhi_clockstuff.F |
898 |
ASTRO |
integer year, day, sec, month, iday, idayp1 |
|
./pkg/cal/cal_isleap.F |
36 |
NO PROCEDURE |
INTEGER year |
|
./pkg/cal/cal_isleap.F |
45 |
NO PROCEDURE |
& 'year=', year |
|
./pkg/cal/cal_isleap.F |
54 |
NO PROCEDURE |
if ( mod(year,4) .ne. 0 ) then |
|
./pkg/cal/cal_isleap.F |
58 |
NO PROCEDURE |
if ( (mod(year,100) .eq. 0) .and. |
|
./pkg/cal/cal_isleap.F |
59 |
NO PROCEDURE |
& (mod(year,400) .ne. 0) ) then |
|
./pkg/cal/cal_isleap.F |
64 |
NO PROCEDURE |
if ( mod(year,4) .ne. 0 ) then |
|
./pkg/cal/cal_isleap.F |
7 |
NO PROCEDURE |
I year, |
|
./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 |
151 |
COST_GENCOST_SSHV4 |
integer mdt_y0,mdt_y1,year,day |
|
./pkg/ecco/cost_gencost_sshv4.F |
381 |
COST_GENCOST_SSHV4 |
do year=mdt_y0,mdt_y1 |
|
./pkg/ecco/cost_gencost_sshv4.F |
402 |
COST_GENCOST_SSHV4 |
& year, day, mythid ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
406 |
COST_GENCOST_SSHV4 |
& year, day, mythid ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
410 |
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 |