| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
1035 |
TIME_BOUND |
integer month,day,nyear,midmon1,midmon,midmon2 |
|
./pkg/fizhi/fizhi_clockstuff.F |
1051 |
TIME_BOUND |
daysm = days(month ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
1052 |
TIME_BOUND |
days0 = days(month+1) |
|
./pkg/fizhi/fizhi_clockstuff.F |
1053 |
TIME_BOUND |
daysp = days(month+2) |
|
./pkg/fizhi/fizhi_clockstuff.F |
1059 |
TIME_BOUND |
if( month.eq.3 ) daysm = daysm+1 |
|
./pkg/fizhi/fizhi_clockstuff.F |
1060 |
TIME_BOUND |
if( month.eq.2 ) days0 = days0+1 |
|
./pkg/fizhi/fizhi_clockstuff.F |
1061 |
TIME_BOUND |
if( month.eq.1 ) daysp = daysp+1 |
|
./pkg/fizhi/fizhi_clockstuff.F |
1070 |
TIME_BOUND |
imnm = month |
|
./pkg/fizhi/fizhi_clockstuff.F |
1071 |
TIME_BOUND |
imnp = month + 1 |
|
./pkg/fizhi/fizhi_clockstuff.F |
1072 |
TIME_BOUND |
nymd2 = (nymd/10000)*10000 + month*100 + midmon |
|
./pkg/fizhi/fizhi_clockstuff.F |
1081 |
TIME_BOUND |
nymd1 = (nymd/10000)*10000 + month*100 + midmon |
|
./pkg/fizhi/fizhi_clockstuff.F |
1127 |
TIME2FREQ2 |
integer year, month, day, sec |
|
./pkg/fizhi/fizhi_clockstuff.F |
379 |
GET_TIME |
month = month + nsegm |
|
./pkg/fizhi/fizhi_clockstuff.F |
380 |
GET_TIME |
If( month.gt.12 ) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
381 |
GET_TIME |
month = month - 12 |
|
./pkg/fizhi/fizhi_clockstuff.F |
898 |
ASTRO |
integer year, day, sec, month, iday, idayp1 |
|
./pkg/fizhi/update_earth_exports.F |
100 |
UPDATE_EARTH_EXPORTS |
call GETLGR (sec,month,day,chlt,ityp,nchpland(bi,bj), |
|
./pkg/fizhi/update_earth_exports.F |
114 |
UPDATE_EARTH_EXPORTS |
call GETALB(sec,month,day,cosz,snodep,fraci,fracl,im2,jm2,nchp, |
|
./pkg/fizhi/update_earth_exports.F |
55 |
UPDATE_EARTH_EXPORTS |
INTEGER sec, day, month |
|
./pkg/fizhi/update_earth_exports.F |
69 |
UPDATE_EARTH_EXPORTS |
month = nmonf(nymd) |
|
./pkg/fizhi/update_earth_exports.F |
820 |
GETALB |
SUBROUTINE GETALB(sec,month,day,cosz,snodep,fraci,fracg,im,jm, |
|
./pkg/fizhi/update_earth_exports.F |
862 |
GETALB |
INTEGER sec,month,day,im,jm,nchp,nchptot,nchpland,nSx,nSy,bi,bj |
|
./pkg/chronos/chronos.F |
334 |
GET_TIME |
month = month + nsegm |
|
./pkg/chronos/chronos.F |
335 |
GET_TIME |
If( month.gt.12 ) then |
|
./pkg/chronos/chronos.F |
336 |
GET_TIME |
month = month - 12 |
|
./pkg/chronos/chronos.F |
735 |
ASTRO |
integer year, day, sec, month, iday, idayp1 |
|
./pkg/chronos/chronos.F |
868 |
TIME_BOUND |
integer month,day,nyear,midmon1,midmon,midmon2 |
|
./pkg/chronos/chronos.F |
884 |
TIME_BOUND |
daysm = days(month ) |
|
./pkg/chronos/chronos.F |
885 |
TIME_BOUND |
days0 = days(month+1) |
|
./pkg/chronos/chronos.F |
886 |
TIME_BOUND |
daysp = days(month+2) |
|
./pkg/chronos/chronos.F |
892 |
TIME_BOUND |
if( month.eq.3 ) daysm = daysm+1 |
|
./pkg/chronos/chronos.F |
893 |
TIME_BOUND |
if( month.eq.2 ) days0 = days0+1 |
|
./pkg/chronos/chronos.F |
894 |
TIME_BOUND |
if( month.eq.1 ) daysp = daysp+1 |
|
./pkg/chronos/chronos.F |
903 |
TIME_BOUND |
imnm = month |
|
./pkg/chronos/chronos.F |
904 |
TIME_BOUND |
imnp = month + 1 |
|
./pkg/chronos/chronos.F |
905 |
TIME_BOUND |
nymd2 = (nymd/10000)*10000 + month*100 + midmon |
|
./pkg/chronos/chronos.F |
914 |
TIME_BOUND |
nymd1 = (nymd/10000)*10000 + month*100 + midmon |