| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
1020 |
TIME_BOUND |
integer month,day,nyear,midmon1,midmon,midmon2 |
|
./pkg/fizhi/fizhi_clockstuff.F |
1036 |
TIME_BOUND |
daysm = days(month ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
1037 |
TIME_BOUND |
days0 = days(month+1) |
|
./pkg/fizhi/fizhi_clockstuff.F |
1038 |
TIME_BOUND |
daysp = days(month+2) |
|
./pkg/fizhi/fizhi_clockstuff.F |
1044 |
TIME_BOUND |
if( month.eq.3 ) daysm = daysm+1 |
|
./pkg/fizhi/fizhi_clockstuff.F |
1045 |
TIME_BOUND |
if( month.eq.2 ) days0 = days0+1 |
|
./pkg/fizhi/fizhi_clockstuff.F |
1046 |
TIME_BOUND |
if( month.eq.1 ) daysp = daysp+1 |
|
./pkg/fizhi/fizhi_clockstuff.F |
1055 |
TIME_BOUND |
imnm = month |
|
./pkg/fizhi/fizhi_clockstuff.F |
1056 |
TIME_BOUND |
imnp = month + 1 |
|
./pkg/fizhi/fizhi_clockstuff.F |
1057 |
TIME_BOUND |
nymd2 = (nymd/10000)*10000 + month*100 + midmon |
|
./pkg/fizhi/fizhi_clockstuff.F |
1066 |
TIME_BOUND |
nymd1 = (nymd/10000)*10000 + month*100 + midmon |
|
./pkg/fizhi/fizhi_clockstuff.F |
1112 |
TIME2FREQ2 |
integer year, month, day, sec |
|
./pkg/fizhi/fizhi_clockstuff.F |
365 |
GET_TIME |
month = month + nsegm |
|
./pkg/fizhi/fizhi_clockstuff.F |
366 |
GET_TIME |
If( month.gt.12 ) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
367 |
GET_TIME |
month = month - 12 |
|
./pkg/fizhi/fizhi_clockstuff.F |
884 |
ASTRO |
integer year, day, sec, month, iday, idayp1 |
|
./pkg/fizhi/update_earth_exports.F |
102 |
UPDATE_EARTH_EXPORTS |
call GETALB(sec,month,day,cosz,snodep,fraci,fracl,im2,jm2,nchp, |
|
./pkg/fizhi/update_earth_exports.F |
43 |
UPDATE_EARTH_EXPORTS |
integer sec, day, month |
|
./pkg/fizhi/update_earth_exports.F |
57 |
UPDATE_EARTH_EXPORTS |
month = nmonf(nymd) |
|
./pkg/fizhi/update_earth_exports.F |
812 |
GETALB |
subroutine GETALB(sec,month,day,cosz,snodep,fraci,fracg,im,jm, |
|
./pkg/fizhi/update_earth_exports.F |
854 |
GETALB |
integer sec,month,day,im,jm,nchp,nchptot,nchpland,nSx,nSy,bi,bj |
|
./pkg/fizhi/update_earth_exports.F |
88 |
UPDATE_EARTH_EXPORTS |
call GETLGR (sec,month,day,chlt,ityp,nchpland(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 |