| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_cost_concentration.F |
120 |
SEAICE_COST_CONCENTRATION |
integer yday, ymod |
|
./pkg/seaice/seaice_cost_concentration.F |
186 |
SEAICE_COST_CONCENTRATION |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/seaice/seaice_cost_concentration.F |
196 |
SEAICE_COST_CONCENTRATION |
print *,'yday : ', yday |
|
./pkg/seaice/seaice_cost_concentration.F |
200 |
SEAICE_COST_CONCENTRATION |
print *,'ymod, yday ', ymod,yday |
|
./pkg/seaice/seaice_cost_concentration.F |
205 |
SEAICE_COST_CONCENTRATION |
if ( ymod .EQ. yday ) then |
|
./pkg/seaice/seaice_cost_concentration.F |
208 |
SEAICE_COST_CONCENTRATION |
middate(1) = yday*10000+100+1 |
|
./pkg/seaice/seaice_cost_concentration.F |
229 |
SEAICE_COST_CONCENTRATION |
& localobsfile(1:il), '_', yday |
|
./pkg/seaice/seaice_cost_sss.F |
118 |
SEAICE_COST_SSS |
integer yday, ymod |
|
./pkg/seaice/seaice_cost_sss.F |
201 |
SEAICE_COST_SSS |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/seaice/seaice_cost_sss.F |
211 |
SEAICE_COST_SSS |
print *,'yday : ', yday |
|
./pkg/seaice/seaice_cost_sss.F |
215 |
SEAICE_COST_SSS |
print *,'ymod, yday ', ymod,yday |
|
./pkg/seaice/seaice_cost_sss.F |
220 |
SEAICE_COST_SSS |
if ( ymod .EQ. yday ) then |
|
./pkg/seaice/seaice_cost_sss.F |
223 |
SEAICE_COST_SSS |
middate(1) = yday*10000+100+1 |
|
./pkg/seaice/seaice_cost_sss.F |
244 |
SEAICE_COST_SSS |
& localobsfile(1:il), '_', yday |
|
./pkg/seaice/seaice_cost_sst.F |
116 |
SEAICE_COST_SST |
integer yday, ymod |
|
./pkg/seaice/seaice_cost_sst.F |
201 |
SEAICE_COST_SST |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/seaice/seaice_cost_sst.F |
211 |
SEAICE_COST_SST |
print *,'yday : ', yday |
|
./pkg/seaice/seaice_cost_sst.F |
215 |
SEAICE_COST_SST |
print *,'ymod, yday ', ymod,yday |
|
./pkg/seaice/seaice_cost_sst.F |
220 |
SEAICE_COST_SST |
if ( ymod .EQ. yday ) then |
|
./pkg/seaice/seaice_cost_sst.F |
223 |
SEAICE_COST_SST |
middate(1) = yday*10000+100+1 |
|
./pkg/seaice/seaice_cost_sst.F |
244 |
SEAICE_COST_SST |
& localobsfile(1:il), '_', yday |
|
./pkg/bling/bling_light.F |
114 |
BLING_LIGHT |
yday = 2. _d 0*PI*dayfrac !convert to radians |
|
./pkg/bling/bling_light.F |
116 |
BLING_LIGHT |
& -(0.399912 _d 0*cos(yday)) !cosine zenith angle |
|
./pkg/bling/bling_light.F |
117 |
BLING_LIGHT |
& +(0.070257 _d 0*sin(yday)) !(paltridge+platt) |
|
./pkg/bling/bling_light.F |
118 |
BLING_LIGHT |
& -(0.006758 _d 0*cos(2. _d 0*yday)) |
|
./pkg/bling/bling_light.F |
119 |
BLING_LIGHT |
& +(0.000907 _d 0*sin(2. _d 0*yday)) |
|
./pkg/bling/bling_light.F |
120 |
BLING_LIGHT |
& -(0.002697 _d 0*cos(3. _d 0*yday)) |
|
./pkg/bling/bling_light.F |
121 |
BLING_LIGHT |
& +(0.001480 _d 0*sin(3. _d 0*yday)) ) |
|
./pkg/bling/bling_light.F |
69 |
BLING_LIGHT |
_RL dayfrac, yday, delta |
|
./pkg/dic/insol.F |
41 |
INSOL |
_RL dayfrac, yday, delta |
|
./pkg/dic/insol.F |
58 |
INSOL |
yday = 2. _d 0*PI*dayfrac !convert to radians |
|
./pkg/dic/insol.F |
60 |
INSOL |
& -(0.399912 _d 0*cos(yday)) !cosine zenith angle |
|
./pkg/dic/insol.F |
61 |
INSOL |
& +(0.070257 _d 0*sin(yday)) !(paltridge+platt) |
|
./pkg/dic/insol.F |
62 |
INSOL |
& -(0.006758 _d 0*cos(2. _d 0*yday)) |
|
./pkg/dic/insol.F |
63 |
INSOL |
& +(0.000907 _d 0*sin(2. _d 0*yday)) |
|
./pkg/dic/insol.F |
64 |
INSOL |
& -(0.002697 _d 0*cos(3. _d 0*yday)) |
|
./pkg/dic/insol.F |
65 |
INSOL |
& +(0.001480 _d 0*sin(3. _d 0*yday)) ) |
|
./pkg/ecco/cost_gencal.F |
100 |
COST_GENCAL |
tempDate_1 = yday*10000+100+1 |
|
./pkg/ecco/cost_gencal.F |
101 |
COST_GENCAL |
if ( ymod .GE. yday ) then |
|
./pkg/ecco/cost_gencal.F |
115 |
COST_GENCAL |
yday = mody + INT((modm-1+irec-1)/12) |
|
./pkg/ecco/cost_gencal.F |
121 |
COST_GENCAL |
& localobsfile(1:il), '_', yday |
|
./pkg/ecco/cost_gencal.F |
65 |
COST_GENCAL |
integer yday, ymod |
|
./pkg/ecco/cost_gencal.F |
88 |
COST_GENCAL |
yday = 0 |
|
./pkg/ecco/cost_gencal.F |
95 |
COST_GENCAL |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
205 |
COST_GENCOST_SSTV4 |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
207 |
COST_GENCOST_SSTV4 |
if ( ymod .GE. yday ) then |
|
./pkg/ecco/cost_gencost_sstv4.F |
212 |
COST_GENCOST_SSTV4 |
tempDate_1 = yday*10000+100+1 |
|
./pkg/ecco/cost_gencost_sstv4.F |
222 |
COST_GENCOST_SSTV4 |
& gencost_datafile(kgen)(1:il), '_', yday |
|
./pkg/ecco/cost_gencost_sstv4.F |
227 |
COST_GENCOST_SSTV4 |
& yday,' ',ymod,' ',localrec,' ',diffsecs |
|
./pkg/ecco/cost_gencost_sstv4.F |
363 |
COST_GENCOST_SSTV4 |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
365 |
COST_GENCOST_SSTV4 |
if ( ymod .GE. yday ) then |
|
./pkg/ecco/cost_gencost_sstv4.F |
370 |
COST_GENCOST_SSTV4 |
tempDate_1 = yday*10000+100+1 |
|
./pkg/ecco/cost_gencost_sstv4.F |
380 |
COST_GENCOST_SSTV4 |
& gencost_datafile(kgen)(1:il), '_', yday |
|
./pkg/ecco/cost_gencost_sstv4.F |
385 |
COST_GENCOST_SSTV4 |
& yday,' ',ymod,' ',localrec,' ',diffsecs |
|
./pkg/ecco/cost_gencost_sstv4.F |
97 |
COST_GENCOST_SSTV4 |
integer yday, ymod |
|
./pkg/ecco/cost_sla_read.F |
100 |
COST_SLA_READ |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_sla_read.F |
103 |
COST_SLA_READ |
if ( ymod .GE. yday ) then |
|
./pkg/ecco/cost_sla_read.F |
106 |
COST_SLA_READ |
tempDate_1 = yday*10000+100+1 |
|
./pkg/ecco/cost_sla_read.F |
117 |
COST_SLA_READ |
& sla_file(1:il), '_', yday |
|
./pkg/ecco/cost_sla_read.F |
71 |
COST_SLA_READ |
integer yday, ymod |
|
./pkg/ecco/cost_sla_read_yd.F |
71 |
COST_SLA_READ_YD |
integer yday, ymod |
|
./pkg/ecco/ecco_check.F |
712 |
ECCO_CHECK_FILES |
INTEGER irec, mody, modm, yday, locy, il |
|
./pkg/ecco/ecco_check.F |
751 |
ECCO_CHECK_FILES |
yday = mody + INT((modm-1+irec-1)/12) |
|
./pkg/ecco/ecco_check.F |
757 |
ECCO_CHECK_FILES |
& localobsfile(1:il), '_', yday |
|
./pkg/ecco/ecco_check.F |
760 |
ECCO_CHECK_FILES |
IF ( (.NOT.exst).AND.(yday.GE.locy) ) THEN |
|
./pkg/ecco/ecco_check.F |
769 |
ECCO_CHECK_FILES |
ELSEIF ( (exst).AND.(yday.GE.locy) ) THEN |