| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_cost_concentration.F |
105 |
SEAICE_COST_CONCENTRATION |
integer yday, ymod |
|
./pkg/seaice/seaice_cost_concentration.F |
173 |
SEAICE_COST_CONCENTRATION |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/seaice/seaice_cost_concentration.F |
183 |
SEAICE_COST_CONCENTRATION |
print *,'yday : ', yday |
|
./pkg/seaice/seaice_cost_concentration.F |
187 |
SEAICE_COST_CONCENTRATION |
print *,'ymod, yday ', ymod,yday |
|
./pkg/seaice/seaice_cost_concentration.F |
192 |
SEAICE_COST_CONCENTRATION |
if ( ymod .EQ. yday ) then |
|
./pkg/seaice/seaice_cost_concentration.F |
195 |
SEAICE_COST_CONCENTRATION |
middate(1) = yday*10000+100+1 |
|
./pkg/seaice/seaice_cost_concentration.F |
216 |
SEAICE_COST_CONCENTRATION |
& localobsfile(1:il), '_', yday |
|
./pkg/seaice/seaice_cost_sss.F |
106 |
SEAICE_COST_SSS |
integer yday, ymod |
|
./pkg/seaice/seaice_cost_sss.F |
191 |
SEAICE_COST_SSS |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/seaice/seaice_cost_sss.F |
201 |
SEAICE_COST_SSS |
print *,'yday : ', yday |
|
./pkg/seaice/seaice_cost_sss.F |
205 |
SEAICE_COST_SSS |
print *,'ymod, yday ', ymod,yday |
|
./pkg/seaice/seaice_cost_sss.F |
210 |
SEAICE_COST_SSS |
if ( ymod .EQ. yday ) then |
|
./pkg/seaice/seaice_cost_sss.F |
213 |
SEAICE_COST_SSS |
middate(1) = yday*10000+100+1 |
|
./pkg/seaice/seaice_cost_sss.F |
234 |
SEAICE_COST_SSS |
& localobsfile(1:il), '_', yday |
|
./pkg/seaice/seaice_cost_sst.F |
104 |
SEAICE_COST_SST |
integer yday, ymod |
|
./pkg/seaice/seaice_cost_sst.F |
191 |
SEAICE_COST_SST |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/seaice/seaice_cost_sst.F |
201 |
SEAICE_COST_SST |
print *,'yday : ', yday |
|
./pkg/seaice/seaice_cost_sst.F |
205 |
SEAICE_COST_SST |
print *,'ymod, yday ', ymod,yday |
|
./pkg/seaice/seaice_cost_sst.F |
210 |
SEAICE_COST_SST |
if ( ymod .EQ. yday ) then |
|
./pkg/seaice/seaice_cost_sst.F |
213 |
SEAICE_COST_SST |
middate(1) = yday*10000+100+1 |
|
./pkg/seaice/seaice_cost_sst.F |
234 |
SEAICE_COST_SST |
& localobsfile(1:il), '_', yday |
|
./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_gencost_seaicev4.F |
115 |
COST_GENCOST_SEAICEV4 |
integer yday, ymod |
|
./pkg/ecco/cost_gencost_seaicev4.F |
272 |
COST_GENCOST_SEAICEV4 |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
274 |
COST_GENCOST_SEAICEV4 |
if ( ymod .EQ. yday ) then |
|
./pkg/ecco/cost_gencost_seaicev4.F |
277 |
COST_GENCOST_SEAICEV4 |
middate(1) = yday*10000+100+1 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
296 |
COST_GENCOST_SEAICEV4 |
yday = mody + INT((modm-1+irec-1)/12) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
302 |
COST_GENCOST_SEAICEV4 |
& localobsfile(1:il), '_', yday |
|
./pkg/ecco/cost_gencost_seaicev4.F |
333 |
COST_GENCOST_SEAICEV4 |
& localobswfile(1:il), '_', yday |
|
./pkg/ecco/cost_gencost_sstv4.F |
102 |
COST_GENCOST_SSTV4 |
integer yday, ymod |
|
./pkg/ecco/cost_gencost_sstv4.F |
188 |
COST_GENCOST_SSTV4 |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
190 |
COST_GENCOST_SSTV4 |
if ( ymod .GE. yday ) then |
|
./pkg/ecco/cost_gencost_sstv4.F |
195 |
COST_GENCOST_SSTV4 |
tempDate_1 = yday*10000+100+1 |
|
./pkg/ecco/cost_gencost_sstv4.F |
205 |
COST_GENCOST_SSTV4 |
& gencost_datafile(igen_amsre)(1:il), '_', yday |
|
./pkg/ecco/cost_gencost_sstv4.F |
210 |
COST_GENCOST_SSTV4 |
& yday,' ',ymod,' ',localrec,' ',diffsecs |
|
./pkg/ecco/cost_gencost_sstv4.F |
340 |
COST_GENCOST_SSTV4 |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
342 |
COST_GENCOST_SSTV4 |
if ( ymod .GE. yday ) then |
|
./pkg/ecco/cost_gencost_sstv4.F |
347 |
COST_GENCOST_SSTV4 |
tempDate_1 = yday*10000+100+1 |
|
./pkg/ecco/cost_gencost_sstv4.F |
357 |
COST_GENCOST_SSTV4 |
& gencost_datafile(igen_amsre)(1:il), '_', yday |
|
./pkg/ecco/cost_gencost_sstv4.F |
362 |
COST_GENCOST_SSTV4 |
& yday,' ',ymod,' ',localrec,' ',diffsecs |
|
./pkg/ecco/cost_generic.F |
108 |
COST_GENERIC |
integer yday, ymod |
|
./pkg/ecco/cost_generic.F |
202 |
COST_GENERIC |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_generic.F |
207 |
COST_GENERIC |
tempDate_1 = yday*10000+100+1 |
|
./pkg/ecco/cost_generic.F |
208 |
COST_GENERIC |
if ( ymod .GE. yday ) then |
|
./pkg/ecco/cost_generic.F |
228 |
COST_GENERIC |
yday = mody + INT((modm-1+irec-1)/12) |
|
./pkg/ecco/cost_generic.F |
234 |
COST_GENERIC |
& localobsfile(1:il), '_', yday |
|
./pkg/ecco/cost_readers.F |
101 |
COST_READERS |
tempDate_1 = yday*10000+100+1 |
|
./pkg/ecco/cost_readers.F |
112 |
COST_READERS |
& ersfile(1:il), '_', yday |
|
./pkg/ecco/cost_readers.F |
66 |
COST_READERS |
integer yday, ymod |
|
./pkg/ecco/cost_readers.F |
95 |
COST_READERS |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_readers.F |
98 |
COST_READERS |
if ( ymod .GE. yday ) then |
|
./pkg/ecco/cost_readgfo.F |
101 |
COST_READGFO |
tempDate_1 = yday*10000+100+1 |
|
./pkg/ecco/cost_readgfo.F |
112 |
COST_READGFO |
& gfofile(1:il), '_', yday |
|
./pkg/ecco/cost_readgfo.F |
66 |
COST_READGFO |
integer yday, ymod |
|
./pkg/ecco/cost_readgfo.F |
95 |
COST_READGFO |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_readgfo.F |
98 |
COST_READGFO |
if ( ymod .GE. yday ) then |
|
./pkg/ecco/cost_readscatxfields.F |
119 |
COST_READSCATXFIELDS |
yday = mody + INT((modm-1+irec-1)/12) |
|
./pkg/ecco/cost_readscatxfields.F |
127 |
COST_READSCATXFIELDS |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_readscatxfields.F |
129 |
COST_READSCATXFIELDS |
if ( ymod .GE. yday ) then |
|
./pkg/ecco/cost_readscatxfields.F |
132 |
COST_READSCATXFIELDS |
tempDate_1 = yday*10000+100+1 |
|
./pkg/ecco/cost_readscatxfields.F |
143 |
COST_READSCATXFIELDS |
& scatxdatfile(1:il), '_', yday |
|
./pkg/ecco/cost_readscatxfields.F |
73 |
COST_READSCATXFIELDS |
integer yday, ymod |
|
./pkg/ecco/cost_readscatyfields.F |
119 |
COST_READSCATYFIELDS |
yday = mody + INT((modm-1+irec-1)/12) |
|
./pkg/ecco/cost_readscatyfields.F |
127 |
COST_READSCATYFIELDS |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_readscatyfields.F |
129 |
COST_READSCATYFIELDS |
if ( ymod .GE. yday ) then |
|
./pkg/ecco/cost_readscatyfields.F |
132 |
COST_READSCATYFIELDS |
tempDate_1 = yday*10000+100+1 |
|
./pkg/ecco/cost_readscatyfields.F |
142 |
COST_READSCATYFIELDS |
& scatydatfile(1:il), '_', yday |
|
./pkg/ecco/cost_readscatyfields.F |
73 |
COST_READSCATYFIELDS |
integer yday, ymod |
|
./pkg/ecco/cost_readtopex.F |
104 |
COST_READTOPEX |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_readtopex.F |
107 |
COST_READTOPEX |
if ( ymod .GE. yday ) then |
|
./pkg/ecco/cost_readtopex.F |
110 |
COST_READTOPEX |
tempDate_1 = yday*10000+100+1 |
|
./pkg/ecco/cost_readtopex.F |
121 |
COST_READTOPEX |
& topexfile(1:il), '_', yday |
|
./pkg/ecco/cost_readtopex.F |
124 |
COST_READTOPEX |
& yday,' ',ymod,' ',sshrec,' ',diffsecs |
|
./pkg/ecco/cost_readtopex.F |
141 |
COST_READTOPEX |
& yday,' ',ymod,' ',sshrec,' ',diffsecs |
|
./pkg/ecco/cost_readtopex.F |
66 |
COST_READTOPEX |
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 |
192 |
ECCO_CHECK_FILES |
INTEGER irec, mody, modm, yday, locy, il |
|
./pkg/ecco/ecco_check.F |
231 |
ECCO_CHECK_FILES |
yday = mody + INT((modm-1+irec-1)/12) |
|
./pkg/ecco/ecco_check.F |
237 |
ECCO_CHECK_FILES |
& localobsfile(1:il), '_', yday |
|
./pkg/ecco/ecco_check.F |
240 |
ECCO_CHECK_FILES |
IF ( (.NOT.exst).AND.(yday.GE.locy) ) THEN |
|
./pkg/ecco/ecco_check.F |
249 |
ECCO_CHECK_FILES |
ELSEIF ( (exst).AND.(yday.GE.locy) ) THEN |