| 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_readtopex.F |
101 |
COST_READTOPEX |
if ( ymod .EQ. yday ) then |
|
./pkg/ecco/cost_readtopex.F |
104 |
COST_READTOPEX |
middate(1) = yday*10000+100+1 |
|
./pkg/ecco/cost_readtopex.F |
116 |
COST_READTOPEX |
& topexfile(1:il), '_', yday |
|
./pkg/ecco/cost_readtopex.F |
69 |
COST_READTOPEX |
integer yday, ymod |
|
./pkg/ecco/cost_readtopex.F |
98 |
COST_READTOPEX |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_readers.F |
101 |
COST_READERS |
if ( ymod .EQ. yday ) then |
|
./pkg/ecco/cost_readers.F |
104 |
COST_READERS |
middate(1) = yday*10000+100+1 |
|
./pkg/ecco/cost_readers.F |
116 |
COST_READERS |
& ersfile(1:il), '_', yday |
|
./pkg/ecco/cost_readers.F |
69 |
COST_READERS |
integer yday, ymod |
|
./pkg/ecco/cost_readers.F |
98 |
COST_READERS |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |