| File |
Line number |
Procedure |
Code |
|
./pkg/profiles/profiles_init_fixed.F |
37 |
PROFILES_INIT_FIXED |
_RL tmpyymmdd(1000),tmphhmmss(1000),diffsecs |
|
./pkg/profiles/profiles_init_fixed.F |
392 |
PROFILES_INIT_FIXED |
call CAL_TOSECONDS (tmpdiff,diffsecs,mythid) |
|
./pkg/profiles/profiles_init_fixed.F |
393 |
PROFILES_INIT_FIXED |
diffsecs=diffsecs+nIter0*deltaTclock |
|
./pkg/profiles/profiles_init_fixed.F |
396 |
PROFILES_INIT_FIXED |
diffsecs=-deltaTclock |
|
./pkg/profiles/profiles_init_fixed.F |
413 |
PROFILES_INIT_FIXED |
prof_time(num_file,length_for_tile,bi,bj)=diffsecs |
|
./pkg/profiles/profiles_init_fixed.F |
431 |
PROFILES_INIT_FIXED |
prof_time(num_file,length_for_tile,bi,bj)=diffsecs |
|
./pkg/profiles/profiles_init_fixed.F |
455 |
PROFILES_INIT_FIXED |
prof_time(num_file,length_for_tile,bi,bj)=diffsecs |
|
./pkg/seaice/seaice_cost_concentration.F |
100 |
SEAICE_COST_CONCENTRATION |
_RL diffsecs |
|
./pkg/seaice/seaice_cost_concentration.F |
203 |
SEAICE_COST_CONCENTRATION |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/seaice/seaice_cost_concentration.F |
205 |
SEAICE_COST_CONCENTRATION |
localrec = int(diffsecs/localperiod) + 1 |
|
./pkg/seaice/seaice_cost_concentration.F |
210 |
SEAICE_COST_CONCENTRATION |
print *,'difftime,diffsecs',difftime,diffsecs |
|
./pkg/seaice/seaice_cost_sss.F |
101 |
SEAICE_COST_SSS |
_RL diffsecs |
|
./pkg/seaice/seaice_cost_sss.F |
221 |
SEAICE_COST_SSS |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/seaice/seaice_cost_sss.F |
223 |
SEAICE_COST_SSS |
localrec = int(diffsecs/localperiod) + 1 |
|
./pkg/seaice/seaice_cost_sss.F |
228 |
SEAICE_COST_SSS |
print *,'difftime,diffsecs',difftime,diffsecs |
|
./pkg/seaice/seaice_cost_sst.F |
221 |
SEAICE_COST_SST |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/seaice/seaice_cost_sst.F |
223 |
SEAICE_COST_SST |
localrec = int(diffsecs/localperiod) + 1 |
|
./pkg/seaice/seaice_cost_sst.F |
228 |
SEAICE_COST_SST |
print *,'difftime,diffsecs',difftime,diffsecs |
|
./pkg/seaice/seaice_cost_sst.F |
99 |
SEAICE_COST_SST |
_RL diffsecs |
|
./pkg/cal/cal_getmonthsrec.F |
193 |
CAL_GETMONTHSREC |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/cal/cal_getmonthsrec.F |
203 |
CAL_GETMONTHSREC |
fac = (midsecs - currentsecs)/diffsecs |
|
./pkg/cal/cal_getmonthsrec.F |
206 |
CAL_GETMONTHSREC |
& diffsecs |
|
./pkg/cal/cal_getmonthsrec.F |
75 |
CAL_GETMONTHSREC |
_RL diffsecs |
|
./pkg/ctrl/ctrl_init_rec.F |
100 |
CTRL_INIT_REC |
call CAL_TOSECONDS ( difftime, diffsecs, mythid ) |
|
./pkg/ctrl/ctrl_init_rec.F |
101 |
CTRL_INIT_REC |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init_rec.F |
103 |
CTRL_INIT_REC |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init_rec.F |
64 |
CTRL_INIT_REC |
_RL diffsecs |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
55 |
CTRL_MASK_SET_XZ |
_RL diffsecs |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
55 |
CTRL_MASK_SET_YZ |
_RL diffsecs |
|
./pkg/ctrl/ctrl_readparms.F |
50 |
CTRL_READPARMS |
_RL diffsecs |
|
./pkg/ecco/cost_gencost_seaicev4.F |
110 |
COST_GENCOST_SEAICEV4 |
_RL diffsecs |
|
./pkg/ecco/cost_gencost_seaicev4.F |
283 |
COST_GENCOST_SEAICEV4 |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
284 |
COST_GENCOST_SEAICEV4 |
localrec = int(diffsecs/localperiod) + 1 |
|
./pkg/ecco/cost_gencost_sstv4.F |
199 |
COST_GENCOST_SSTV4 |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
201 |
COST_GENCOST_SSTV4 |
localrec = int(diffsecs/86400.) + 1 |
|
./pkg/ecco/cost_gencost_sstv4.F |
210 |
COST_GENCOST_SSTV4 |
& yday,' ',ymod,' ',localrec,' ',diffsecs |
|
./pkg/ecco/cost_gencost_sstv4.F |
218 |
COST_GENCOST_SSTV4 |
if ( ( localrec .GT. 0 ).AND.(diffsecs .GT. 0.d0) ) then |
|
./pkg/ecco/cost_gencost_sstv4.F |
351 |
COST_GENCOST_SSTV4 |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
353 |
COST_GENCOST_SSTV4 |
localrec = int(diffsecs/86400.) + 1 |
|
./pkg/ecco/cost_gencost_sstv4.F |
362 |
COST_GENCOST_SSTV4 |
& yday,' ',ymod,' ',localrec,' ',diffsecs |
|
./pkg/ecco/cost_gencost_sstv4.F |
370 |
COST_GENCOST_SSTV4 |
if ( ( localrec .GT. 0 ).AND.(diffsecs .GT. 0.d0) ) then |
|
./pkg/ecco/cost_gencost_sstv4.F |
94 |
COST_GENCOST_SSTV4 |
_RL diffsecs |
|
./pkg/ecco/cost_generic.F |
102 |
COST_GENERIC |
_RL diffsecs |
|
./pkg/ecco/cost_generic.F |
214 |
COST_GENERIC |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/ecco/cost_generic.F |
216 |
COST_GENERIC |
localrec = int(diffsecs/localperiod) + 1 |
|
./pkg/ecco/cost_readers.F |
106 |
COST_READERS |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/ecco/cost_readers.F |
108 |
COST_READERS |
sshrec = int(diffsecs/ersperiod) + 1 |
|
./pkg/ecco/cost_readers.F |
117 |
COST_READERS |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/ecco/cost_readers.F |
119 |
COST_READERS |
sshrec = int(diffsecs/ersperiod) + 1 |
|
./pkg/ecco/cost_readers.F |
57 |
COST_READERS |
_RL diffsecs |
|
./pkg/ecco/cost_readgfo.F |
106 |
COST_READGFO |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/ecco/cost_readgfo.F |
108 |
COST_READGFO |
sshrec = int(diffsecs/gfoperiod) + 1 |
|
./pkg/ecco/cost_readgfo.F |
117 |
COST_READGFO |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/ecco/cost_readgfo.F |
119 |
COST_READGFO |
sshrec = int(diffsecs/gfoperiod) + 1 |
|
./pkg/ecco/cost_readgfo.F |
57 |
COST_READGFO |
_RL diffsecs |
|
./pkg/ecco/cost_readscatxfields.F |
136 |
COST_READSCATXFIELDS |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/ecco/cost_readscatxfields.F |
138 |
COST_READSCATXFIELDS |
localrec = int(diffsecs/86400. _d 0) + 1 |
|
./pkg/ecco/cost_readscatxfields.F |
159 |
COST_READSCATXFIELDS |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/ecco/cost_readscatxfields.F |
161 |
COST_READSCATXFIELDS |
localrec = int(diffsecs/86400. _d 0) + 1 |
|
./pkg/ecco/cost_readscatxfields.F |
67 |
COST_READSCATXFIELDS |
_RL diffsecs |
|
./pkg/ecco/cost_readscatyfields.F |
136 |
COST_READSCATYFIELDS |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/ecco/cost_readscatyfields.F |
138 |
COST_READSCATYFIELDS |
localrec = int(diffsecs/86400. _d 0) + 1 |
|
./pkg/ecco/cost_readscatyfields.F |
158 |
COST_READSCATYFIELDS |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/ecco/cost_readscatyfields.F |
160 |
COST_READSCATYFIELDS |
localrec = int(diffsecs/86400. _d 0) + 1 |
|
./pkg/ecco/cost_readscatyfields.F |
67 |
COST_READSCATYFIELDS |
_RL diffsecs |
|
./pkg/ecco/cost_readtopex.F |
115 |
COST_READTOPEX |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/ecco/cost_readtopex.F |
117 |
COST_READTOPEX |
sshrec = int(diffsecs/topexperiod) + 1 |
|
./pkg/ecco/cost_readtopex.F |
124 |
COST_READTOPEX |
& yday,' ',ymod,' ',sshrec,' ',diffsecs |
|
./pkg/ecco/cost_readtopex.F |
135 |
COST_READTOPEX |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/ecco/cost_readtopex.F |
137 |
COST_READTOPEX |
sshrec = int(diffsecs/topexperiod) + 1 |
|
./pkg/ecco/cost_readtopex.F |
141 |
COST_READTOPEX |
& yday,' ',ymod,' ',sshrec,' ',diffsecs |
|
./pkg/ecco/cost_readtopex.F |
57 |
COST_READTOPEX |
_RL diffsecs |
|
./pkg/ecco/cost_sla_read.F |
111 |
COST_SLA_READ |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/ecco/cost_sla_read.F |
113 |
COST_SLA_READ |
sshrec = int(diffsecs/sla_period) + 1 |
|
./pkg/ecco/cost_sla_read.F |
54 |
COST_SLA_READ |
_RL diffsecs |
|
./pkg/ecco/cost_sla_read_yd.F |
62 |
COST_SLA_READ_YD |
_RL diffsecs |