| File |
Line number |
Procedure |
Code |
|
./pkg/dic/insol.F |
36 |
INSOL |
_RL dayfrac, yday, delta |
|
./pkg/dic/insol.F |
50 |
INSOL |
yday = 2.0*3.1416*dayfrac !convert to radians |
|
./pkg/dic/insol.F |
51 |
INSOL |
delta = (0.006918 - (0.399912*cos(yday)) !cosine zenith angle |
|
./pkg/dic/insol.F |
52 |
INSOL |
& +(0.070257*sin(yday)) !(paltridge+platt) |
|
./pkg/dic/insol.F |
53 |
INSOL |
& -(0.006758*cos(2.0*yday)) |
|
./pkg/dic/insol.F |
54 |
INSOL |
& +(0.000907*sin(2.0*yday)) |
|
./pkg/dic/insol.F |
55 |
INSOL |
& -(0.002697*cos(3.0*yday)) |
|
./pkg/dic/insol.F |
56 |
INSOL |
& +(0.001480*sin(3.0*yday)) ) |
|
./pkg/ecco/cost_readgfo.F |
111 |
COST_READGFO |
& gfofile(1:il), '_', yday |
|
./pkg/ecco/cost_readgfo.F |
64 |
COST_READGFO |
integer yday, ymod |
|
./pkg/ecco/cost_readgfo.F |
93 |
COST_READGFO |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_readgfo.F |
96 |
COST_READGFO |
if ( ymod .EQ. yday ) then |
|
./pkg/ecco/cost_readgfo.F |
99 |
COST_READGFO |
middate(1) = yday*10000+100+1 |
|
./pkg/ecco/cost_generic.F |
105 |
COST_GENERIC |
integer yday, ymod |
|
./pkg/ecco/cost_generic.F |
170 |
COST_GENERIC |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_generic.F |
172 |
COST_GENERIC |
if ( ymod .EQ. yday ) then |
|
./pkg/ecco/cost_generic.F |
175 |
COST_GENERIC |
middate(1) = yday*10000+100+1 |
|
./pkg/ecco/cost_generic.F |
194 |
COST_GENERIC |
yday = mody + INT((modm-1+irec-1)/12) |
|
./pkg/ecco/cost_generic.F |
200 |
COST_GENERIC |
& localobsfile(1:il), '_', yday |
|
./pkg/ecco/cost_readtopex.F |
111 |
COST_READTOPEX |
& topexfile(1:il), '_', yday |
|
./pkg/ecco/cost_readtopex.F |
64 |
COST_READTOPEX |
integer yday, ymod |
|
./pkg/ecco/cost_readtopex.F |
93 |
COST_READTOPEX |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_readtopex.F |
96 |
COST_READTOPEX |
if ( ymod .EQ. yday ) then |
|
./pkg/ecco/cost_readtopex.F |
99 |
COST_READTOPEX |
middate(1) = yday*10000+100+1 |
|
./pkg/ecco/cost_readers.F |
111 |
COST_READERS |
& ersfile(1:il), '_', yday |
|
./pkg/ecco/cost_readers.F |
64 |
COST_READERS |
integer yday, ymod |
|
./pkg/ecco/cost_readers.F |
93 |
COST_READERS |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_readers.F |
96 |
COST_READERS |
if ( ymod .EQ. yday ) then |
|
./pkg/ecco/cost_readers.F |
99 |
COST_READERS |
middate(1) = yday*10000+100+1 |